(* *)
(**************************************************************************)
-include "Apps_2/functional/rtm.ma".
+include "apps_2/functional/rtm.ma".
(* REDUCTION AND TYPE MACHINE ***********************************************)
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_step (mk_rtm G u E S (â\93£W. T))
+ rtm_step (mk_rtm G u E S (â\93\9dW. T))
(mk_rtm G u E S T)
| rtm_appl : ∀G,u,E,S,V,T.
rtm_step (mk_rtm G u E S (ⓐV. T))
- (mk_rtm G u E ({E, V} :: S) T)
+ (mk_rtm G u E ({E, V} @ S) T)
| rtm_beta : ∀G,u,E,F,V,S,W,T.
- rtm_step (mk_rtm G u E ({F, V} :: S) (ⓛW. T))
+ rtm_step (mk_rtm G u E ({F, V} @ S) (+ⓛW. T))
(mk_rtm G u (E. ④{Abbr} {u, F, V}) S T)
| rtm_push : ∀G,u,E,W,T.
- rtm_step (mk_rtm 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_theta : ∀G,u,E,S,V,T.
- rtm_step (mk_rtm 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)
.