X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Ftinycals.ma;h=465d7c06e0953702c2b23104c18493e457eae183;hb=2231f2820190c8743854004a9efd902d3bb5baa4;hp=7bc18926126b859973c08f6b76fb1d7868877279;hpb=9f49495f5f1e54ccacb8142043cba65ca55b7125;p=helm.git diff --git a/helm/software/matita/tests/tinycals.ma b/helm/software/matita/tests/tinycals.ma index 7bc189261..465d7c06e 100644 --- a/helm/software/matita/tests/tinycals.ma +++ b/helm/software/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 ]