X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fstatic%2Flsuba_ldrop.ma;h=1094133f03ab5b7b56459db7ac02b9c42ee6f6fd;hb=2ba7ef901a6b72210692792f2396c08bc0cff52c;hp=f055c01f5670da4a2306d18da7d871fcd281b483;hpb=a8c166f1e1baeeae04553058bd179420ada8bbe7;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/static/lsuba_ldrop.ma b/matita/matita/contribs/lambda_delta/basic_2/static/lsuba_ldrop.ma index f055c01f5..1094133f0 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/static/lsuba_ldrop.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/static/lsuba_ldrop.ma @@ -20,8 +20,8 @@ include "basic_2/static/lsuba.ma". (* Note: the constant 0 cannot be generalized *) -lemma lsuba_ldrop_O1_conf: ∀L1,L2. L1 ÷⊑ L2 → ∀K1,e. ⇩[0, e] L1 ≡ K1 → - ∃∃K2. K1 ÷⊑ K2 & ⇩[0, e] L2 ≡ K2. +lemma lsuba_ldrop_O1_conf: ∀L1,L2. L1 ⁝⊑ L2 → ∀K1,e. ⇩[0, e] L1 ≡ K1 → + ∃∃K2. K1 ⁝⊑ K2 & ⇩[0, e] L2 ≡ K2. #L1 #L2 #H elim H -L1 -L2 [ /2 width=3/ | #I #L1 #L2 #V #_ #IHL12 #K1 #e #H @@ -41,8 +41,8 @@ lemma lsuba_ldrop_O1_conf: ∀L1,L2. L1 ÷⊑ L2 → ∀K1,e. ⇩[0, e] L1 ≡ K ] qed-. -lemma lsuba_ldrop_O1_trans: ∀L1,L2. L1 ÷⊑ L2 → ∀K2,e. ⇩[0, e] L2 ≡ K2 → - ∃∃K1. K1 ÷⊑ K2 & ⇩[0, e] L1 ≡ K1. +lemma lsuba_ldrop_O1_trans: ∀L1,L2. L1 ⁝⊑ L2 → ∀K2,e. ⇩[0, e] L2 ≡ K2 → + ∃∃K1. K1 ⁝⊑ K2 & ⇩[0, e] L1 ≡ K1. #L1 #L2 #H elim H -L1 -L2 [ /2 width=3/ | #I #L1 #L2 #V #_ #IHL12 #K2 #e #H