X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Finversion.ma;h=35963ab7392bf2b99fba801b6fb3ebf54795fc42;hb=7e30c63fcf9f9fe1780ba7aa4d95fd0d8658548b;hp=3e49e06685d22818abd961fec9774f7708b4ab79;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git diff --git a/helm/software/matita/tests/inversion.ma b/helm/software/matita/tests/inversion.ma index 3e49e0668..35963ab73 100644 --- a/helm/software/matita/tests/inversion.ma +++ b/helm/software/matita/tests/inversion.ma @@ -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. + rewrite > H4.auto new. 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. +rewrite > H. rewrite < H2. auto new. qed.