Ltac etac :=
  match goal with
  | H: interp EE _ |- _ => inv H
  | H: InA _ _ nil |- _ => inv H
  | H: false = true |- _ => inv H
  | H: true = false |- _ => inv H
  | _ => auto
  end.

(* Specifications: *)
Lemma interp_member: forall x t, searchtree None None t -> (member x t = true <-> interp t x).
Lemma interp_makeBlack: forall t x, interp t x <-> interp (makeBlack t) x.