Definition encModEquivP (x : D) : r (ED (DE x)) x.
Canonical encoded_equiv_equiv_rel := EquivRelPack encoded_equiv_is_equiv.

(* Specifications: *)
Lemma encoded_equivP x : e' (DE (ED x)) x.
Definition pi := locked (fun x => EquivQuotient (canon_id x)).
Lemma ereprK : cancel erepr pi.
Local Notation encDE := (encModRelE encD).