X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freduction%2Fcnr.ma;h=d68be168026e618aa715a8ce8f09a25961ff8b26;hb=1555848a5546d0154964286d3400114481d78962;hp=e0e84742f9c9668328d5ce8886536bf9b90a21af;hpb=548f2d3f410c05e2eb332f5c2d074f5e6c6985e1;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr.ma index e0e84742f..d68be1680 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cnr.ma @@ -69,9 +69,9 @@ lemma cnr_inv_appl: ∀G,L,V,T. ⦃G, L⦄ ⊢ ➡ 𝐍⦃ⓐV.T⦄ → ∧∧ ] qed-. -lemma cnr_inv_tau: ∀G,L,V,T. ⦃G, L⦄ ⊢ ➡ 𝐍⦃ⓝV.T⦄ → ⊥. +lemma cnr_inv_eps: ∀G,L,V,T. ⦃G, L⦄ ⊢ ➡ 𝐍⦃ⓝV.T⦄ → ⊥. #G #L #V #T #H lapply (H T ?) -H -/2 width=4 by cpr_tau, discr_tpair_xy_y/ +/2 width=4 by cpr_eps, discr_tpair_xy_y/ qed-. (* Basic properties *********************************************************)