(** Properties of [findMax] *)

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