(** Properties of [findMin] *)

(* Specifications: *)
Lemma findMin_empty:
forall h y, findMin h = None -> ~In y h.
Lemma findMin_min:
forall h x y, findMin h = Some x -> In y h -> E.eq x y \/ E.lt x y.
Lemma findMin_empty:
forall h y, findMin h = None -> ~In y h.
Lemma findMin_min:
forall h x y, findMin h = Some x -> In y h -> E.eq x y \/ E.lt x y.