X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Felim.ma;h=dbcd0930b9f5c351ddaff68408416bf276cb193f;hb=935efd051844dd7877207c7917eb73016b7c8bc5;hp=d6a4c3f33f7e994f362100e40ec391b0702ce569;hpb=c4a4f4f49e6fe100e328059046c0c5ef5fe788b0;p=helm.git diff --git a/helm/software/matita/tests/elim.ma b/helm/software/matita/tests/elim.ma index d6a4c3f33..dbcd0930b 100644 --- a/helm/software/matita/tests/elim.ma +++ b/helm/software/matita/tests/elim.ma @@ -13,7 +13,7 @@ (**************************************************************************) set "baseuri" "cic:/matita/tests/elim". -include "legacy/coq.ma". +include "../legacy/coq.ma". inductive stupidtype: Set \def | Base : stupidtype @@ -72,7 +72,6 @@ theorem t': \forall x,y. \forall H: sum x y O. (\lambda a,b,K. y=a \to O=b \to match K with [ (k a b p) \Rightarrow a ] = x) ? ? ? H). - goal 16. simplify. intros. generalize in match H1. rewrite < H2; rewrite < H3.intro.