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 *)
(*********************************************)
Hint Resolve not_right: searchtrees.
(*********************************************)
Hint Resolve not_left: searchtrees.
(*****************************************************************)

Lemma go_right :
forall p : nat, occ (bin n t1 t2) p -> n < p -> occ t2 p.