X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Ftests%2Felim.ma;h=e038c5da2a03e5294fc568ed6829f9cbece7aed3;hb=84dbeab0a11aed6afb529b884bd796dec644c949;hp=67d7fada10a01b0ac27c98625c1d6770127c4c99;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git diff --git a/matita/tests/elim.ma b/matita/tests/elim.ma index 67d7fada1..e038c5da2 100644 --- a/matita/tests/elim.ma +++ b/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,9 +72,8 @@ 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. - rewrite > H4.auto. + rewrite > H4.autobatch library. qed.