Section search_tree_basic_properties.
Variable n : nat.
Variable t1 t2 : nat_tree.
Hypothesis se : search (bin n t1 t2).
(* inversion lemmas *)
(********************)
(**************************)
Hint Resolve search_l: searchtrees.
(***************************)
Hint Resolve search_r: searchtrees.
(***********************)
Hint Resolve maj_l: searchtrees.
(***********************)
Hint Resolve min_r: searchtrees.
(* Exclusion lemmas *)

Lemma not_right : forall p : nat, p <= n -> ~ occ t2 p.