X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Finversion.ma;h=07d3a0c4a09f9e90ef82a7048559b473f4517fd7;hb=91387f570cb178315c0f492e66e95c1efe5bab2c;hp=35963ab7392bf2b99fba801b6fb3ebf54795fc42;hpb=3ee4674162a39cb65b08d492278738008057566d;p=helm.git diff --git a/matita/tests/inversion.ma b/matita/tests/inversion.ma index 35963ab73..07d3a0c4a 100644 --- a/matita/tests/inversion.ma +++ b/matita/tests/inversion.ma @@ -13,7 +13,7 @@ (**************************************************************************) set "baseuri" "cic:/matita/tests/inversion_sum/". -include "legacy/coq.ma". +include "../legacy/coq.ma". alias symbol "eq" (instance 0) = "Coq's leibnitz's equality". @@ -42,7 +42,7 @@ theorem t: \forall x,y. \forall H: sum x y O. simplify. intros. generalize in match H1. rewrite < H2; rewrite < H3.intro. - rewrite > H4.auto new. + rewrite > H4.auto new library. qed. theorem t1: \forall x,y. sum x y O \to x = y. @@ -57,5 +57,5 @@ apply (sum_ind ? (\lambda a,b,K. y=a \to O=b \to x=a) ? ? ? s).*) inversion s. intros.simplify. intros. -rewrite > H. rewrite < H2. auto new. +rewrite > H. rewrite < H2. auto new library. qed.