Hint Resolve leaf_search_tree bnode_search_tree: searchtrees.

(* Specifications: *)
Lemma min_leaf : forall k : key, min k leaf.
Hint Resolve min_leaf: searchtrees.
Lemma maj_leaf : forall k : key, maj k leaf.
Hint Resolve maj_leaf: searchtrees.
Lemma maj_not_occ :
forall (k : key) (v : data) (t : btree), maj k t -> ~ occ v k t.