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 mk_srconf_inj (c1 c2: conf) : mk_srconf c1 = mk_srconf c2 <-> c1 = c2.