X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnx.ma;h=cc2397d0f8dbf569165da561cac9bd99fc340cb1;hp=13e746d7fc05bd8104ae62444dab0e551bb52a9d;hb=fb4c641d43be3d601104751363782553bea0fb6b;hpb=765848c4d9a3f5434fae623f3e623d1b73ac76a5

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma
index 13e746d7f..cc2397d0f 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma
@@ -33,7 +33,7 @@ lapply (H (⋆(next h s)) ?) -H /2 width=2 by cpx_ess/ -G -L #H
 elim (tdeq_inv_sort1 … H) -H #s0 #d #H1 #H2 #H destruct
 lapply (deg_next … H1) #H0
 lapply (deg_mono … H0 … H2) -H0 -H2 #H
-<(pred_inv_refl … H) -H //
+>(pred_inv_fix_sn … H) -H //
 qed-.
 
 lemma cnx_inv_abst: ∀h,o,p,G,L,V,T. ⦃G, L⦄ ⊢ ⬈[h, o] 𝐍⦃ⓛ{p}V.T⦄ →