X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Ftinycals.ma;h=465d7c06e0953702c2b23104c18493e457eae183;hb=fbdd1cc46819d19ed135391a4a954c19d1b92c0c;hp=7bc18926126b859973c08f6b76fb1d7868877279;hpb=da415a61eb8ecfc58817196363fad86b35efe490;p=helm.git diff --git a/matita/tests/tinycals.ma b/matita/tests/tinycals.ma index 7bc189261..465d7c06e 100644 --- a/matita/tests/tinycals.ma +++ b/matita/tests/tinycals.ma @@ -12,15 +12,17 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/test/tinycals". +set "baseuri" "cic:/matita/tests/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 ]