Proof fun e : env => rst_trans term (ctxt R e).

(* Specifications: *)
Lemma conv_sym : forall (e : env) (x y : term), conv e x y -> conv e y x.
Proof fun e : env => rst_sym term (ctxt R e).
Lemma red_conv : forall (e : env) (x y : term), red e x y -> conv e x y.
Proof fun e : env => clos_rt_clos_rst term (ctxt R e).
Lemma red_sym_conv : forall (e : env) (x y : term), red e x y -> conv e y x.
intros.