X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcnuw_simple.ma;h=8e5f5527a24e40577aad958667683d86ac625afe;hp=2e193c21f0868319d6567ce25edfbf2033267931;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cnuw_simple.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cnuw_simple.ma index 2e193c21f..8e5f5527a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cnuw_simple.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cnuw_simple.ma @@ -21,7 +21,7 @@ include "basic_2/rt_computation/cnuw.ma". (* Advanced properties with simple terms ************************************) lemma cnuw_appl_simple (h) (G) (L): - ∀V,T. 𝐒⦃T⦄ → ⦃G,L⦄ ⊢ ➡𝐍𝐖*[h] T → ⦃G,L⦄ ⊢ ➡𝐍𝐖*[h] ⓐV.T. + ∀V,T. 𝐒❪T❫ → ❪G,L❫ ⊢ ➡𝐍𝐖*[h] T → ❪G,L❫ ⊢ ➡𝐍𝐖*[h] ⓐV.T. #h #G #L #V1 #T1 #H1T1 #H2T1 #n #X #H elim (cpms_inv_appl_sn … H) -H * [ #V2 #T2 #_ #HT12 #H destruct -H1T1