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

Lemma erase_a_Const : forall G0 a0 A0 A1 T,
erase a0 = a_Const T ->
binds T (Cs A1) an_toplevel ->
AnnTyping G0 a0 A0   ->
exists g, AnnDefEq G0 (dom G0) g A0 A1.