X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Ftests%2Ftinycals.ma;h=9600516722e89ff1648507d0cf0f9bb41fd33dbd;hb=cd3f7fdf54fa106c58004f1ab8d7c1ecfc06aec0;hp=7bc18926126b859973c08f6b76fb1d7868877279;hpb=da415a61eb8ecfc58817196363fad86b35efe490;p=helm.git diff --git a/matita/tests/tinycals.ma b/matita/tests/tinycals.ma index 7bc189261..960051672 100644 --- a/matita/tests/tinycals.ma +++ b/matita/tests/tinycals.ma @@ -15,12 +15,14 @@ set "baseuri" "cic:/matita/test/tinycals". theorem prova: - \forall A,B:Prop. - \forall H:A \to A \to A \to A \to A \to B.A \to B. + \forall A,B,C:Prop. + \forall H:A \to A \to C \to A \to A \to B.A \to C \to B. intros. apply H; [assumption - |3,5:assumption; + |3,5: + [ exact H2; + | exact H1 ] |4:assumption |*:assumption ]