]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/coercions.ma
version 0.7.1
[helm.git] / helm / matita / tests / coercions.ma
index 8a45f29295d067744e28346312b7fd5558393f60..2444b1d74a3a638dddb85a3b42cf84d11acf6a82 100644 (file)
@@ -1,3 +1,5 @@
+set "baseuri" "cic:/matita/tests/coercions/".
+
 inductive pos: Set \def
 | one : pos
 | next : pos \to pos.
@@ -29,10 +31,3 @@ alias symbol "eq" (instance 0) = "leibnitz's equality".
 theorem a: fst O one = fst (positive O) (next one).
 reflexivity.
 qed.
-
-
-
-
-
-
-