Definition singles (y z x : nat) := if Dec (x = y) then z else x.Notation "f ∘ g" := (fun_comp f g) (at level 20).Definition ren_ctx {b : logic} f := map (ren f).Definition fun_comp {X Y Z} (f : Y -> Z) (g : X -> Y) x := f (g x).

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.