X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Freducibility%2Ftnf_tif.ma;h=2a8ea3c498af5f72a00c8d4d0c73d004c2e29265;hb=5ac2dc4e01aca542ddd13c02b304c646d8df9799;hp=ecfc2f160e095fe0549abc764d8f5e9fd88ab572;hpb=a386e0eb6b20909ae78c825203d77647b8fde30c;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/reducibility/tnf_tif.ma b/matita/matita/contribs/lambda_delta/basic_2/reducibility/tnf_tif.ma index ecfc2f160..2a8ea3c49 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/reducibility/tnf_tif.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/reducibility/tnf_tif.ma @@ -20,7 +20,7 @@ include "basic_2/reducibility/tnf.ma". (* Main properties properties ***********************************************) -lemma tpr_tif_eq: ∀T1,T2. T1 ➡ T2 → 𝐈[T1] → T1 = T2. +lemma tpr_tif_eq: ∀T1,T2. T1 ➡ T2 → 𝐈⦃T1⦄ → T1 = T2. #T1 #T2 #H elim H -T1 -T2 [ // | * #V1 #V2 #T1 #T2 #_ #_ #IHV1 #IHT1 #H @@ -47,11 +47,11 @@ lemma tpr_tif_eq: ∀T1,T2. T1 ➡ T2 → 𝐈[T1] → T1 = T2. ] qed. -theorem tif_tnf: ∀T1. 𝐈[T1] → 𝐍[T1]. +theorem tif_tnf: ∀T1. 𝐈⦃T1⦄ → 𝐍⦃T1⦄. /3 width=1/ qed. (* Note: this property is unusual *) -lemma tnf_trf_false: ∀T1. 𝐑[T1] → 𝐍[T1] → ⊥. +lemma tnf_trf_false: ∀T1. 𝐑⦃T1⦄ → 𝐍⦃T1⦄ → ⊥. #T1 #H elim H -T1 [ #V #T #_ #IHV #H elim (tnf_inv_abst … H) -H /2 width=1/ | #V #T #_ #IHT #H elim (tnf_inv_abst … H) -H /2 width=1/ @@ -64,11 +64,11 @@ lemma tnf_trf_false: ∀T1. 𝐑[T1] → 𝐍[T1] → ⊥. ] qed. -theorem tnf_tif: ∀T1. 𝐍[T1] → 𝐈[T1]. +theorem tnf_tif: ∀T1. 𝐍⦃T1⦄ → 𝐈⦃T1⦄. /2 width=3/ qed. -lemma tnf_abst: ∀V,T. 𝐍[V] → 𝐍[T] → 𝐍[ⓛV.T]. +lemma tnf_abst: ∀V,T. 𝐍⦃V⦄ → 𝐍⦃T⦄ → 𝐍⦃ⓛV.T⦄. /4 width=1/ qed. -lemma tnf_appl: ∀V,T. 𝐍[V] → 𝐍[T] → 𝐒[T] → 𝐍[ⓐV.T]. +lemma tnf_appl: ∀V,T. 𝐍⦃V⦄ → 𝐍⦃T⦄ → 𝐒⦃T⦄ → 𝐍⦃ⓐV.T⦄. /4 width=1/ qed.