(** Properties of [insert] *)

(* Specifications: *)
Lemma insert_bst:
forall x h, bst h -> bst (insert x h).
Lemma In_insert:
forall x h y, bst h -> (In y (insert x h) <-> E.eq y x \/ In y h).
Lemma insert_bst:
forall x h, bst h -> bst (insert x h).
Lemma In_insert:
forall x h y, bst h -> (In y (insert x h) <-> E.eq y x \/ In y h).