X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Frtm.ma;h=e8ac123704222175de0ab6c494af6f460a507607;hb=3c8da07d7a5d7cf0432a83732a6d103f527afaef;hp=c7acff72e070939f853e90340b01ac54b478fd84;hpb=e8998d29ab83e7b6aa495a079193705b2f6743d3;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
index c7acff72e..e8ac12370 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
@@ -12,8 +12,9 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "basic_2/grammar/term_vector.ma".
-include "basic_2/grammar/genv.ma".
+include "basic_2/syntax/term_vector.ma".
+include "basic_2/syntax/genv.ma".
+include "apps_2/functional/notation.ma".
 
 (* REDUCTION AND TYPE MACHINE ***********************************************)
 
@@ -43,18 +44,18 @@ record rtm: Type[0] ≝
 
 (* initial state *)
 definition rtm_i: genv → term → rtm ≝
-                  λG,T. mk_rtm G 0 (⋆) (⟠) T.
+                  λG,T. mk_rtm G 0 (⋆) (Ⓔ) T.
 
 (* update code *)
 definition rtm_t: rtm → term → rtm ≝
                   λM,T. match M with
-                  [ mk_rtm G u E _ _ ⇒ mk_rtm G u E (⟠) T
+                  [ mk_rtm G u E _ _ ⇒ mk_rtm G u E (Ⓔ) T
                   ].
 
 (* update closure *)
 definition rtm_u: rtm → xenv → term → rtm ≝
                   λM,E,T. match M with
-                  [ mk_rtm G u _ _ _ ⇒ mk_rtm G u E (⟠) T
+                  [ mk_rtm G u _ _ _ ⇒ mk_rtm G u E (Ⓔ) T
                   ].
 
 (* get global environment *)