X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Flambda%2Fsubterms%2Fbooleanized.ma;h=cc6f1e9806db60c74fc3c9d394e0e708ff8f1799;hb=613d8642b1154dde0c026cbdcd96568910198251;hp=b3258d224544754e69bba9d770f0a332000ebeb2;hpb=aa9654656f7d0aeb9345e0b86a9e35f861687580;p=helm.git diff --git a/matita/matita/lib/lambda/subterms/booleanized.ma b/matita/matita/lib/lambda/subterms/booleanized.ma index b3258d224..cc6f1e980 100644 --- a/matita/matita/lib/lambda/subterms/booleanized.ma +++ b/matita/matita/lib/lambda/subterms/booleanized.ma @@ -12,7 +12,11 @@ (* *) (**************************************************************************) -include "subterms/boolean.ma". +include "lambda/subterms/boolean.ma". + +include "lambda/notation/functions/projectsame_2.ma". + +include "lambda/xoa/ex_4_3.ma". (* BOOLEANIZED SUBSET (EMPTY OR FULL) ***************************************) @@ -22,10 +26,6 @@ definition booleanized: bool → subterms → subterms ≝ interpretation "booleanized (subterms)" 'ProjectSame b F = (booleanized b F). -notation "hvbox( { term 46 b } ⇕ break term 46 F)" - non associative with precedence 46 - for @{ 'ProjectSame $b $F }. - lemma booleanized_inv_vref: ∀j,c,b,F. {b}⇕ F = {c}#j → ∃∃b1. b = c & F = {b1}#j. #j #c #b #F #H