X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Ftinycals.ma;h=3ceba6eaa1346747ce8af3a2f3787d49b3ae4def;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=5cd2548a8b9d8ea3e4f0a137ec9cf1c2d2929fd5;hpb=366d9ed0126462232d5bca9322c1250792f4f0f9;p=helm.git

diff --git a/helm/software/matita/tests/tinycals.ma b/helm/software/matita/tests/tinycals.ma
index 5cd2548a8..3ceba6eaa 100644
--- a/helm/software/matita/tests/tinycals.ma
+++ b/helm/software/matita/tests/tinycals.ma
@@ -12,16 +12,18 @@
 (*                                                                        *)
 (**************************************************************************)
 
-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;
-  4:assumption
+  |3,5:
+   [ exact H2;
+   | exact H1 ]
+  |4:assumption
   |*:assumption
   ]
 qed.
@@ -31,19 +33,21 @@ theorem prova1:
   \forall H:A \to A \to A \to A \to A \to B.A \to B.
 intros.
 apply H;
-  [*:assumption
-  ]
+  [*:assumption]
 qed. 
 
+include "logic/connectives.ma".
+
 theorem prova2: 
   \forall A,B:Prop.
-  \forall H:A \to A \to A \to A \to A \to B.A \to B.
+  \forall H:A \to A \to A \to (A \land A) \to A \to B.A \to B.
 intros.
 apply H;
   [2:assumption
-   |assumption
-   3,5:assumption
-   *:assumption
+  |4:split.assumption
+  |3,5:assumption
+  |*:assumption
   ]
+assumption.
 qed.