Module ext_invert (subst : ext_subst_sig) <: ext_invert_sig.
Include subst.
Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.

Lemma invert_a_Const : forall G T A,
Typing G (a_Const T) A ->
exists B, DataTy B a_Star /\ DefEq G (dom G) A B  a_Star
/\ binds T (Cs B) toplevel.