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

(* Specifications: *)
Lemma decide_Value_mutual : forall a,
lc_tm a ->
(Value a \/ not (Value a)) /\ (CoercedValue a \/ (not (CoercedValue a))).
Lemma decide_Value : forall a, lc_tm a -> (Value a \/ not (Value a)).
Lemma decide_CoercedValue : forall a, lc_tm a -> (CoercedValue a \/ not (CoercedValue a)).
(* ------------------------------------------ *)
Lemma DataTy_value_type : forall A, DataTy A a_Star -> value_type A.