X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Flambda%2Fsubterms%2Fboolean.ma;h=566bfb0a3f976d2fd6680eaa2f2524e6a9c40528;hb=613d8642b1154dde0c026cbdcd96568910198251;hp=f49b23b299b4761e5a26fe9eb9d2866340e655c9;hpb=aa9654656f7d0aeb9345e0b86a9e35f861687580;p=helm.git

diff --git a/matita/matita/lib/lambda/subterms/boolean.ma b/matita/matita/lib/lambda/subterms/boolean.ma
index f49b23b29..566bfb0a3 100644
--- a/matita/matita/lib/lambda/subterms/boolean.ma
+++ b/matita/matita/lib/lambda/subterms/boolean.ma
@@ -12,7 +12,12 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "subterms/carrier.ma".
+include "lambda/subterms/carrier.ma".
+
+include "lambda/notation/functions/projectup_2.ma".
+
+include "lambda/xoa/ex_3_1.ma".
+include "lambda/xoa/ex_4_2.ma".
 
 (* BOOLEAN (EMPTY OR FULL) SUBSET *******************************************)
 
@@ -25,10 +30,6 @@ let rec boolean b M on M ≝ match M with
 interpretation "boolean subset (subterms)"
    'ProjectUp b M = (boolean b M).
 
-notation "hvbox( { term 46 b } ⇑ break term 46 M)"
-   non associative with precedence 46
-   for @{ 'ProjectUp $b $M }.
-
 lemma boolean_inv_vref: ∀j,c,b,M. {b}⇑ M = {c}#j → b = c ∧ M = #j.
 #j #c #b * normalize
 [ #i #H destruct /2 width=1/