X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Frtm_step.ma;h=1b456b5219e95417e30c729a552a243f9823a1e9;hb=41b61472d2c475e0f69e3dfc85539da3ad2bac1e;hp=ed16d509193deffb3cf4f64f108b311f0c527b1b;hpb=e8998d29ab83e7b6aa495a079193705b2f6743d3;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
index ed16d5091..1b456b521 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
@@ -18,15 +18,15 @@ include "apps_2/functional/rtm.ma".
 
 (* transitions *)
 inductive rtm_step: relation rtm ≝
-| rtm_ldrop : ∀G,u,E,I,t,F,V,S,i.
-              rtm_step (mk_rtm G u (E. ④{I} {t, F, V}) S (#(i + 1)))
+| rtm_drop : ∀G,u,E,I,t,D,V,S,i.
+              rtm_step (mk_rtm G u (E. ④{I} {t, D, V}) S (#(i + 1)))
                        (mk_rtm G u E S (#i))
-| rtm_ldelta: ∀G,u,E,t,F,V,S.
-              rtm_step (mk_rtm G u (E. ④{Abbr} {t, F, V}) S (#0))
-                       (mk_rtm G u F S V)
-| rtm_ltype : ∀G,u,E,t,F,V,S.
-              rtm_step (mk_rtm G u (E. ④{Abst} {t, F, V}) S (#0))
-                       (mk_rtm G u F S V)
+| rtm_ldelta: ∀G,u,E,t,D,V,S.
+              rtm_step (mk_rtm G u (E. ④{Abbr} {t, D, V}) S (#0))
+                       (mk_rtm G u D S V)
+| rtm_ltype : ∀G,u,E,t,D,V,S.
+              rtm_step (mk_rtm G u (E. ④{Abst} {t, D, V}) S (#0))
+                       (mk_rtm G u D S V)
 | rtm_gdrop : ∀G,I,V,u,E,S,p. p < |G| →
               rtm_step (mk_rtm (G. ⓑ{I} V) u E S (§p))
                        (mk_rtm G u E S (§p))
@@ -36,18 +36,18 @@ inductive rtm_step: relation rtm ≝
 | rtm_gtype : ∀G,V,u,E,S,p. p = |G| →
               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_eps   : ∀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)
-| rtm_beta  : ∀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_beta  : ∀G,u,E,D,V,S,W,T.
+              rtm_step (mk_rtm G u E ({D, V} @ S) (+ⓛW. T))
+                       (mk_rtm G u (E. ④{Abbr} {u, D, V}) S T)
 | rtm_push  : ∀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_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))
                        (mk_rtm G u (E. ④{Abbr} {u, E, V}) S T)