claudio, please have a look at this

[helm.git] / helm / software / matita / tests / decompose.ma

diff --git a/helm/software/matita/tests/decompose.ma b/helm/software/matita/tests/decompose.ma
index fe72f710a7a4b8fed5dfba289fee2ae411768a26..39d04755e617802559a13e9018ace01ffedd012c 100644 (file)
--- a/helm/software/matita/tests/decompose.ma
+++ b/helm/software/matita/tests/decompose.ma
@@ -12,17 +12,18 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/tests/decompose".
-include "legacy/coq.ma".
-alias symbol "and" (instance 0) = "Coq's logical and".
-alias symbol "or" (instance 0) = "Coq's logical or".
 
 
+include "logic/connectives.ma".
 
 theorem stupid: 
   \forall a,b,c:Prop.
   (a \land c \lor b \land c) \to (c \land (b \lor a)).
-  intros.decompose H.split.assumption.right.assumption.
+  intros.decompose.split.assumption.right.assumption.
   split.assumption.left.assumption.qed.
 
+definition MyFalse \def False.
 
+theorem ex_falso_quodlibet: \forall (P:Prop). MyFalse \to P.
+ intros. decompose.
+qed.