X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Ftinycals.ma;h=9600516722e89ff1648507d0cf0f9bb41fd33dbd;hb=2bd3b029f7f67d9c616b7756278573cc9e96510c;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..960051672 100644 --- a/helm/software/matita/tests/tinycals.ma +++ b/helm/software/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 ]