bug fix in ththe notation for lists:

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

diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
index c7acff72e070939f853e90340b01ac54b478fd84..2e92ea0cca64f3d207b5610cacd8f2bb40a046f2 100644 (file)
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
@@ -14,6 +14,7 @@
 
 include "basic_2/grammar/term_vector.ma".
 include "basic_2/grammar/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 (â\8b\86) (â\9f ) T.
+                  λG,T. mk_rtm G 0 (â\8b\86) (â\97\8a) T.
 
 (* update code *)
 definition rtm_t: rtm → term → rtm ≝
                   λM,T. match M with
-                  [ mk_rtm G u E _ _ â\87\92 mk_rtm G u E (â\9f ) T
+                  [ mk_rtm G u E _ _ â\87\92 mk_rtm G u E (â\97\8a) T
                   ].
 
 (* update closure *)
 definition rtm_u: rtm → xenv → term → rtm ≝
                   λM,E,T. match M with
-                  [ mk_rtm G u _ _ _ â\87\92 mk_rtm G u E (â\9f ) T
+                  [ mk_rtm G u _ _ _ â\87\92 mk_rtm G u E (â\97\8a) T
                   ].
 
 (* get global environment *)