X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Frewrite.ma;h=a1956c9b5fe5b397faf83183e1ee3702644fcf27;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=580ad13ed524bba3bbf99b98a578879e8b270491;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/matita/tests/rewrite.ma b/helm/software/matita/tests/rewrite.ma
index 580ad13ed..a1956c9b5 100644
--- a/helm/software/matita/tests/rewrite.ma
+++ b/helm/software/matita/tests/rewrite.ma
@@ -12,11 +12,11 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/tests/rewrite/".
-include "legacy/coq.ma".
+
+include "coq.ma".
 
 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
-alias num (instance 0) = "natural number".
+alias num (instance 0) = "Coq natural number".
 alias symbol "eq" (instance 0) = "Coq's leibnitz's equality". 
 alias symbol "plus" (instance 0) = "Coq's natural plus".
 alias id "plus_n_O" = "cic:/Coq/Init/Peano/plus_n_O.con".
@@ -62,3 +62,10 @@ theorem test_rewrite_in_hyp2:
  rewrite < plus_n_O in H H1 \vdash (? ? %).
  split; [ exact H | exact H1].
 qed.
+
+alias id "O" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)".
+theorem test_rewrite_under_pi: \forall x,y. x = O \to y = O \to x = x \to O = x.
+intros 3.
+rewrite > H in \vdash (? \to ? ? % % \to ? ? ? %).
+intros. reflexivity.
+qed.