X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Freducibility%2Ftif.ma;h=653ed47002d99ce924550028f162b8504fa00e85;hb=78d4844bcccb3deb58a3179151c3045298782b18;hp=5b89755a7261d49a202f30a598ae2bd93621fdc5;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/reducibility/tif.ma b/matita/matita/contribs/lambda_delta/basic_2/reducibility/tif.ma index 5b89755a7..653ed4700 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/reducibility/tif.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/reducibility/tif.ma @@ -12,18 +12,18 @@ (* *) (**************************************************************************) -include "Basic_2/reducibility/trf.ma". +include "basic_2/reducibility/trf.ma". (* CONTEXT-FREE IRREDUCIBLE TERMS *******************************************) -definition tif: predicate term ≝ λT. 𝐑[T] → False. +definition tif: predicate term ≝ λT. 𝐑[T] → ⊥. interpretation "context-free irreducibility (term)" 'NotReducible T = (tif T). (* Basic inversion lemmas ***************************************************) -lemma tif_inv_abbr: ∀V,T. 𝐈[ⓓV.T] → False. +lemma tif_inv_abbr: ∀V,T. 𝐈[ⓓV.T] → ⊥. /2 width=1/ qed-. lemma tif_inv_abst: ∀V,T. 𝐈[ⓛV.T] → 𝐈[V] ∧ 𝐈[T]. @@ -35,7 +35,7 @@ generalize in match HVT; -HVT elim T -T // * // * #U #T #_ #_ #H elim (H ?) -H /2 width=1/ qed-. -lemma tif_inv_cast: ∀V,T. 𝐈[ⓣV.T] → False. +lemma tif_inv_cast: ∀V,T. 𝐈[ⓣV.T] → ⊥. /2 width=1/ qed-. (* Basic properties *********************************************************)