X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpxs_teqo_vector.ma;h=96e1fbb615152f2a5165460b9c460919ef5a46f8;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=b3236af74387e02b43290bb74bd1345749085450;hpb=25c634037771dff0138e5e8e3d4378183ff49b86;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_teqo_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_teqo_vector.ma index b3236af74..96e1fbb61 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_teqo_vector.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_teqo_vector.ma @@ -172,7 +172,7 @@ qed-. (* Basic_1: was just: nf2_iso_appls_lref *) lemma cpxs_fwd_cnx_vector (h) (G) (L): - ∀T. 𝐒❪T❫ → ❪G,L❫ ⊢ ⬈[h] 𝐍❪T❫ → + ∀T. 𝐒❪T❫ → ❪G,L❫ ⊢ ⬈𝐍[h] T → ∀Vs,X2. ❪G,L❫ ⊢ ⒶVs.T ⬈*[h] X2 → ⒶVs.T ⩳ X2. #h #G #L #T #H1T #H2T #Vs elim Vs -Vs [ @(cpxs_fwd_cnx … H2T) ] (**) (* /2 width=3 by cpxs_fwd_cnx/ does not work *) #V #Vs #IHVs #X2 #H