Require Export VST.msl.Axioms.
(* NO AXIOMS AFTER THIS POINT *)
(* From EqdepTh we obtain inj_pair and inj_pairT2 without use of excluded middle: *)
Module EqdepElim: EqdepElimination.

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