]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/test3.ma
Tactic discriminate activated in matita.
[helm.git] / helm / matita / tests / test3.ma
index c4aafaf3c6f64390c0300878d645bae933c0ceb1..cb2cece18730d3828813b2bfe09c1f0fdace3697 100644 (file)
@@ -1,8 +1,14 @@
 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.