X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcsx_simple.ma;h=c3d8b95d45ef7c3e820dd723474535acaab98b3d;hb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;hp=1f732d61de1301712fd21341983588b9f64ead04;hpb=613d8642b1154dde0c026cbdcd96568910198251;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple.ma index 1f732d61d..c3d8b95d4 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple.ma @@ -21,7 +21,7 @@ include "basic_2/rt_computation/csx_csx.ma". lemma csx_appl_simple (G) (L): ∀V. ❪G,L❫ ⊢ ⬈*𝐒 V → ∀T1. - (∀T2. ❪G,L❫ ⊢ T1 ⬈ T2 → (T1 ≛ T2 → ⊥) → ❪G,L❫ ⊢ ⬈*𝐒 ⓐV.T2) → + (∀T2. ❪G,L❫ ⊢ T1 ⬈ T2 → (T1 ≅ T2 → ⊥) → ❪G,L❫ ⊢ ⬈*𝐒 ⓐV.T2) → 𝐒❪T1❫ → ❪G,L❫ ⊢ ⬈*𝐒 ⓐV.T1. #G #L #V #H @(csx_ind … H) -V #V #_ #IHV #T1 #IHT1 #HT1