X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freduction%2Fcnx_crx.ma;h=ec9abbd335b040744f761ac1610476f14c911ede;hb=fdb2c62b58006b82c015ba70b494d50c7860e28f;hp=f5d125f08f3eea7341e6cdc3cbb3fc833657fa52;hpb=4aa431513ffa0ce0accf81e6e9ea4b9314d468e3;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cnx_crx.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cnx_crx.ma index f5d125f08..ec9abbd33 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cnx_crx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cnx_crx.ma @@ -24,7 +24,7 @@ lemma cnx_inv_crx: ∀h,g,G,L,T. ⦃G, L⦄ ⊢ 𝐑[h, g]⦃T⦄ → ⦃G, L⦄ #h #g #G #L #T #H elim H -L -T [ #L #k #l #Hkl #H lapply (cnx_inv_sort … H) -H #H - lapply (deg_mono … H Hkl) -h -L -k