X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fapps_2%2Ffunctional%2Frtm_step.ma;h=ed16d509193deffb3cf4f64f108b311f0c527b1b;hb=a2144f09d1bd7022c1f2dfd4909a1fb9772c8d56;hp=5b2a4eb2ce67f5e15497f546de231cf7169c281c;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/apps_2/functional/rtm_step.ma b/matita/matita/contribs/lambda_delta/apps_2/functional/rtm_step.ma
index 5b2a4eb2c..ed16d5091 100644
--- a/matita/matita/contribs/lambda_delta/apps_2/functional/rtm_step.ma
+++ b/matita/matita/contribs/lambda_delta/apps_2/functional/rtm_step.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "Apps_2/functional/rtm.ma".
+include "apps_2/functional/rtm.ma".
 
 (* REDUCTION AND TYPE MACHINE ***********************************************)
 
@@ -37,19 +37,19 @@ inductive rtm_step: relation rtm ≝
               rtm_step (mk_rtm (G. ⓛV) u E S (§p))
                        (mk_rtm G u E S V)
 | rtm_tau   : ∀G,u,E,S,W,T.
-              rtm_step (mk_rtm G u E S (ⓣW. T))
+              rtm_step (mk_rtm G u E S (ⓝW. T))
                        (mk_rtm G u E S T)
 | rtm_appl  : ∀G,u,E,S,V,T.
               rtm_step (mk_rtm G u E S (ⓐV. T))
-                       (mk_rtm G u E ({E, V} :: S) T)
+                       (mk_rtm G u E ({E, V} @ S) T)
 | rtm_beta  : ∀G,u,E,F,V,S,W,T.
-              rtm_step (mk_rtm G u E ({F, V} :: S) (ⓛW. T))
+              rtm_step (mk_rtm G u E ({F, V} @ S) (+ⓛW. T))
                        (mk_rtm G u (E. ④{Abbr} {u, F, V}) S T)
 | rtm_push  : ∀G,u,E,W,T.
-              rtm_step (mk_rtm G u E ⟠ (ⓛW. T))
+              rtm_step (mk_rtm G u E ⟠ (+ⓛW. T))
                        (mk_rtm G (u + 1) (E. ④{Abst} {u, E, W}) ⟠ T)
 | rtm_theta : ∀G,u,E,S,V,T.
-              rtm_step (mk_rtm G u E S (ⓓV. T))
+              rtm_step (mk_rtm G u E S (+ⓓV. T))
                        (mk_rtm G u (E. ④{Abbr} {u, E, V}) S T)
 .