Section Context_Closure.
Variable R : red_rule.
Definition red := R_rt (ctxt R).
Definition conv := R_rst (ctxt R).
Hint Unfold red conv: pts.
Proof fun e : env => rt_trans term (ctxt R e).

Lemma conv_trans :
forall (e : env) (x y z : term), conv e x y -> conv e y z -> conv e x z.