definition nat2int \def \lambda x. positive x.
-coercion pos2nat.
+coercion cic:/matita/tests/coercions/pos2nat.con.
-coercion nat2int.
+coercion cic:/matita/tests/coercions/nat2int.con.
definition fst \def \lambda x,y:int.x.
\def
\lambda f:int \to int. \lambda x : pos .f (nat2int (pos2nat x)).
-
\ No newline at end of file
+