X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fprova.ma;h=84331106d1f5587ef774bc80db7359115f5e160a;hb=2c4dd8bdb55dff0c590ee6abd94aab0e7417c626;hp=457899a8ce8d4c9d3c0a6a5950557214a41fb7e3;hpb=72858765956176eebbd67669db6e2cee8cdb0de0;p=helm.git

diff --git a/helm/software/matita/contribs/prova.ma b/helm/software/matita/contribs/prova.ma
index 457899a8c..84331106d 100644
--- a/helm/software/matita/contribs/prova.ma
+++ b/helm/software/matita/contribs/prova.ma
@@ -12,16 +12,15 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/test/".
+set "baseuri" "cic:/matita/tests".
 
-include "nat/nat.ma".
+alias id "subst0" = "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/subst0/defs/subst0.ind#xpointer(1/1)".
+alias id "pr0" = "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/pr0/defs/pr0.ind#xpointer(1/1)".
+alias id "or" = "cic:/Coq/Init/Logic/or.ind#xpointer(1/1)".
+alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
+alias id "ex2" = "cic:/Coq/Init/Logic/ex2.ind#xpointer(1/1)".
+alias id "T" = "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs/T.ind#xpointer(1/1)".
+alias id "pr0_ind" = "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/pr0/defs/pr0_ind.con".
 
-theorem pippo: \forall (P,Q,R:nat \to Prop).
-               \forall x,y. x=y \to P x \to Q x \to R x.
-               intros.
-               rewrite > P in Q.  
-(*             
-theorem pippo: \forall (P,Q,R:nat \to Prop).
-               \forall x,y. x=y \to P x \to Q x \to R x.
-               intros. rewrite > H in y.
-*)
\ No newline at end of file
+inline procedural
+   "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/pr0/props/pr0_subst0.con".