X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Frtm.ma;h=2e92ea0cca64f3d207b5610cacd8f2bb40a046f2;hb=d6909ee6f43e0f29efbaf28b75b69723634c3af2;hp=5153b713fcd4f48b3edd57dca0afa4db049f1bd4;hpb=886d7c4b7a21b4ca8f148d42555a5d89e8222fc8;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 5153b713f..2e92ea0cc 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/rtm.ma
@@ -44,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 *)