Proof (fun A eq_dec => eq_dep_eq__UIP A (eq_dep_eq_dec eq_dec)).
Unset Implicit Arguments.
(************************************************************************)
(** ** Definition of the functor that builds properties of dependent equalities on decidable sets in Type *)
(** The signature of decidable sets in [Type] *)
Module Type DecidableType.
Monomorphic Parameter U:Type.

(* Specifications: *)
Axiom eq_dec : forall x y:U, {x = y} + {x <> y}.
End DecidableType.