intros P base step t.
elim t; clear t.
intros; apply base.
intros k d l ih_l r ih_r b avl_t.
apply step.
inversion_clear avl_t; assumption.
apply ih_l.
inversion_clear avl_t; assumption.
inversion_clear avl_t; assumption.
apply ih_r.
inversion_clear avl_t; assumption.
inversion_clear avl_t; assumption.
inversion_clear avl_t; assumption.
inversion_clear avl_t; assumption.
Qed.

(* Specifications: *)
Lemma inv_is_avl_left :
forall (k : Int) (d : B) (l r : avl_tree) (b : bal),
is_avl (Avl_Node k d l r b) -> is_avl l.