(** Renamings are extensional *)

(* Specifications: *)
Lemma ren_ext_t t rho1 rho2 :
(forall p, p el consts_t t -> rho1 p = rho2 p) ->
ren_t rho1 t = ren_t rho2 t.
Lemma ren_ext {b : logic} phi rho1 rho2 :
(forall p, p el consts phi -> rho1 p = rho2 p) ->
ren rho1 phi = ren rho2 phi.
Lemma ren_ext_ctx {b : logic} B rho1 rho2 :
(forall p, p el consts_l B -> rho1 p = rho2 p) ->
ren_ctx rho1 B = ren_ctx rho2 B.