X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpx_drops_basic.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpx_drops_basic.ma;h=560df775bd6e89a42f39904d47ab81751e67a85f;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=4be41497df56bf067a1a0618d28b03f30a8096e9;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops_basic.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops_basic.ma index 4be41497d..560df775b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops_basic.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_drops_basic.ma @@ -21,7 +21,7 @@ include "basic_2/rt_transition/cpx_drops.ma". lemma cpx_subst (G) (L) (U1) (i): ∀I,K,V. ⇩[i] L ≘ K.ⓑ[I]V → - ∃∃U2,T2. ❪G,L❫ ⊢ U1 ⬈ U2 & ⇧[i,1] T2 ≘ U2. + ∃∃U2,T2. ❨G,L❩ ⊢ U1 ⬈ U2 & ⇧[i,1] T2 ≘ U2. #G #L #U1 @(fqup_wf_ind_eq (Ⓣ) … G L U1) -G -L -U1 #G0 #L0 #U0 #IH #G #L * * [ #s #HG #HL #HT #i #I #K #V #_ destruct -IH