(** Properties of [deleteMin]. *)

(* Specifications: *)
Lemma In_deleteMin:
forall h x y,
findMin h = Some x ->
(In y h <-> E.eq y x \/ In y (deleteMin h)).
Lemma In_deleteMin:
forall h x y,
findMin h = Some x ->
(In y h <-> E.eq y x \/ In y (deleteMin h)).