Derived1

type t

derived ident(X:t) = some Y. X = Y

property ident(Z) = Z