X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Funfold.ma;h=28ffcf3f2d7dba97aeec48b497ef9b7d030758ca;hb=f981a524748846acc29b76b6e616af110b4ee13d;hp=ff68d5fd1e8cbb111bb13fda979665d60b49809e;hpb=d73bd6d966d4aeb509a3cf776708d55560464ec2;p=helm.git

diff --git a/helm/matita/tests/unfold.ma b/helm/matita/tests/unfold.ma
index ff68d5fd1..28ffcf3f2 100644
--- a/helm/matita/tests/unfold.ma
+++ b/helm/matita/tests/unfold.ma
@@ -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.