]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/unfold.ma
packaging cleanup: get rid of ancient debhelpers, use dh_install
[helm.git] / helm / matita / tests / unfold.ma
index ff68d5fd1e8cbb111bb13fda979665d60b49809e..28ffcf3f2d7dba97aeec48b497ef9b7d030758ca 100644 (file)
@@ -14,6 +14,8 @@
 
 set "baseuri" "cic:/matita/unfold".
 
+include "coq.ma".
+
 alias symbol "plus" (instance 0) = "Coq's natural plus".
 definition myplus \def \lambda x,y. x+y.
 
@@ -21,9 +23,10 @@ lemma lem: \forall n. S (n + n) = (S n) + n.
  intro; reflexivity.
 qed.
 
-theorem trivial: \forall n. S (myplus n n) = (S n) + n.
- unfold myplus.
+theorem trivial: \forall n. S (myplus n n) = myplus (S n) n.
+ unfold myplus in \vdash \forall _.(? ? ? %).
  intro.
+ unfold myplus.
  rewrite > lem.
  reflexivity.
-qed.
\ No newline at end of file
+qed.