Ltac eauto_lc :=
eauto using lc_tm_of_lc_set_tm,
lc_co_of_lc_set_co,
lc_constraint_of_lc_set_constraint.

Lemma DataTy_Star_dec : forall A, lc_set_tm A -> { DataTy A a_Star } + { not (DataTy A a_Star) }.