]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/coercions.ma
This commit re-commits version 1.61, removing the error (a "." in a regular
[helm.git] / helm / matita / tests / coercions.ma
index 8a45f29295d067744e28346312b7fd5558393f60..5c157368d053b4a708ee84f43bc211e996653b41 100644 (file)
@@ -1,3 +1,5 @@
+set "baseuri" "cic:/matita/tests/coercions/".
+
 inductive pos: Set \def
 | one : pos
 | next : pos \to pos.
@@ -24,15 +26,8 @@ coercion pos2nat.
 coercion nat2int.
 
 definition fst \def \lambda x,y:int.x.
-alias symbol "eq" (instance 0) = "leibnitz's equality".
+alias symbol "eq" (instance 0) = "Coq's leibnitz's equality".
 
 theorem a: fst O one = fst (positive O) (next one).
 reflexivity.
 qed.
-
-
-
-
-
-
-