(* *)
(**************************************************************************)
-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.
- try rewrite > P in Q.
-(*
-theorem pippo2: \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.
-*)
+inline procedural
+ "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/pr0/props/pr0_subst0.con".