(** The module [DecidableEqDepSet] collects equality properties for decidable set in [Set] *)
Module DecidableEqDepSet (M:DecidableSet).
Module N:=DecidableEqDep(M).
(** Invariance by Substitution of Reflexive Equality Proofs *)

Lemma eq_rect_eq :
forall (p:U) (Q:U -> Type) (x:Q p) (h:p = p), x = eq_rect p Q x p h.