X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops_seq.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops_seq.ma;h=5d2fed25ed3df6060fbbc92a7b3f27c755beeca9;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=8047fdd68a941b5ed2fde99f0c2ed24f8fc0603b;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma index 8047fdd68..5d2fed25e 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma @@ -30,7 +30,7 @@ lemma seq_co_dropable_dx: co_dropable_dx seq. (* Basic_2A1: includes: lreq_drop_trans_be *) lemma seq_drops_trans_next: ∀f2,L1,L2. L1 ≡[f2] L2 → - ∀b,f,I,K2. ⇩*[b,f] L2 ≘ K2.ⓘ[I] → 𝐔❪f❫ → + ∀b,f,I,K2. ⇩*[b,f] L2 ≘ K2.ⓘ[I] → 𝐔❨f❩ → ∀f1. f ~⊚ ↑f1 ≘ f2 → ∃∃K1. ⇩*[b,f] L1 ≘ K1.ⓘ[I] & K1 ≡[f1] K2. #f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 @@ -41,7 +41,7 @@ qed-. (* Basic_2A1: includes: lreq_drop_conf_be *) lemma seq_drops_conf_next: ∀f2,L1,L2. L1 ≡[f2] L2 → - ∀b,f,I,K1. ⇩*[b,f] L1 ≘ K1.ⓘ[I] → 𝐔❪f❫ → + ∀b,f,I,K1. ⇩*[b,f] L1 ≘ K1.ⓘ[I] → 𝐔❨f❩ → ∀f1. f ~⊚ ↑f1 ≘ f2 → ∃∃K2. ⇩*[b,f] L2 ≘ K2.ⓘ[I] & K1 ≡[f1] K2. #f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2