split. auto.
intros.
unfold binds in H. inversion H.
Qed.

(* Specifications: *)
Lemma AnnDefEq_consistent : forall S D g A B, AnnDefEq S D g A B -> AnnGood S D -> consistent (erase A) (erase B).
Lemma Paths_are_DataTy : forall T a,
Path T a -> Value a -> forall G A, AnnTyping G a A -> DataTy A a_Star.
Lemma Paths_have_value_types : forall T a,
Path T a -> Value a -> forall G A, AnnTyping G a A -> value_type A.
Lemma values_have_value_types :
forall G D a A, AnnGood G D ->  AnnTyping G a A -> Value a -> value_type A.