X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpr_ext.ma;h=c22674ee2f372f63e111f73b0f1ede5738aa9d62;hb=ca7327c20c6031829fade8bb84a3a1bb66113f54;hp=c76a80fcc1728e489ea982ce82fc542c514f8b33;hpb=f129bbbfda0e65a5f92ec086246f6e288376d4f9;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma
index c76a80fcc..c22674ee2 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma
@@ -12,14 +12,14 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "basic_2/syntax/cext2.ma".
+include "static_2/syntax/cext2.ma".
 include "basic_2/rt_transition/cpm.ma".
 
 (* CONTEXT-SENSITIVE PARALLEL R-TRANSITION FOR BINDERS **********************)
 
-definition cpr_ext (h) (G): relation3 lenv bind bind ≝
-                            cext2 (λL. cpm h G L 0).
+definition cpr_ext (h) (n) (G): relation3 lenv bind bind ≝
+           cext2 (λL. cpm h G L n).
 
 interpretation
    "context-sensitive parallel r-transition (binder)"
-   'PRed h G L I1 I2 = (cpr_ext h G L I1 I2).
+   'PRed h n G L I1 I2 = (cpr_ext h n G L I1 I2).