Global Instance finType_rsig: finTypeC (EqType rsig).Definition rsig_finType : finType := (@FinType (EqType rsig) finType_rsig).Definition halting_states : list (states T) :=
    List.filter (fun s => halt s) (elem (states T)).Definition not_halting_states : list (states T) :=
    List.filter (fun s => negb (halt s)) (elem (states T)).

Lemma halting (q: states T) : halt q = true <-> q el halting_states.