]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/test3.ma
version 0.7.1
[helm.git] / helm / matita / tests / test3.ma
index c4aafaf3c6f64390c0300878d645bae933c0ceb1..9a8958b2175360f26ab23ddadf7adad908725261 100644 (file)
@@ -1,8 +1,16 @@
+set "baseuri" "cic:/matita/tests/test3/".
+
 alias symbol "eq" (instance 0) = "leibnitz's equality".
 theorem a:\forall x.x=x.
 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
-goal 5.
 exact nat.
 intro.
 reflexivity.
-qed.
\ No newline at end of file
+qed.
+alias num (instance 0) = "natural number".
+alias symbol "times" (instance 0) = "natural times".
+
+theorem b:\forall p:nat. p * 0=0.
+intro.
+auto.
+qed.