X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Fdecompose.ma;h=2ba58c158c3adf50edd95475d6330272d3cb87b3;hb=72a91e9bdd1a8c1a3f12522ec9acec4f53afe345;hp=815fcf66c7d57faa6e71d38bf4ccbb71ba6fd9c7;hpb=e8334d2db9b6d618f6a10aaee6d802aa75b63499;p=helm.git

diff --git a/matita/tests/decompose.ma b/matita/tests/decompose.ma
index 815fcf66c..2ba58c158 100644
--- a/matita/tests/decompose.ma
+++ b/matita/tests/decompose.ma
@@ -13,14 +13,17 @@
 (**************************************************************************)
 
 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.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.