X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Frtm_step.ma;h=8f5a61ee83b19ae53d2dc70d905652c510032067;hb=26d2ecb945a881c61d03f3c259996374209f5d7f;hp=e2d859b74bfac32601ffd7513cc3488566545091;hpb=1555848a5546d0154964286d3400114481d78962;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 e2d859b74..8f5a61ee8 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
@@ -18,7 +18,7 @@ include "apps_2/functional/rtm.ma".
 
 (* transitions *)
 inductive rtm_step: relation rtm ≝
-| rtm_ldrop : ∀G,u,E,I,t,D,V,S,i.
+| 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,D,V,S.
@@ -46,8 +46,8 @@ inductive rtm_step: relation rtm ≝
               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)