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

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 5eb721b20..cc2397d0f 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma
@@ -13,16 +13,16 @@
 (**************************************************************************)
 
 include "basic_2/notation/relations/predtynormal_5.ma".
-include "basic_2/syntax/tdeq.ma".
+include "static_2/syntax/tdeq.ma".
 include "basic_2/rt_transition/cpx.ma".
 
-(* NORMAL TERMS FOR UNCOUNTED CONTEXT-SENSITIVE PARALLEL RT-TRANSITION ******)
+(* NORMAL TERMS FOR UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION ********)
 
 definition cnx: ∀h. sd h → relation3 genv lenv term ≝
                 λh,o,G,L. NF … (cpx h G L) (tdeq h o …).
 
 interpretation
-   "normality for uncounted context-sensitive parallel rt-transition (term)"
+   "normality for unbound context-sensitive parallel rt-transition (term)"
    'PRedTyNormal h o G L T = (cnx h o G L T).
 
 (* Basic inversion lemmas ***************************************************)
@@ -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⦄ →