(*  ----------------------------------------------------------- *)

Lemma erasure_AnnDefEq : forall G D g A'' B'' S A' B',
AnnDefEq G D g A'' B'' ->
AnnTyping G A'' S -> erase S = a_Star ->
erase A'' = erase A' -> erase B'' = erase B' ->
AnnTyping G A' a_Star -> AnnTyping G B' a_Star ->
exists g', AnnDefEq G D g' A' B'.