advances on cofrees allows to prove one direction of

[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / functional / rtm_step.ma

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 40f2eddc2bcc41e4df8b7000adc5515e977a18f9..e2d859b74bfac32601ffd7513cc3488566545091 100644 (file)
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm_step.ma
@@ -36,7 +36,7 @@ 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.
@@ -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)