fact: Definition encode_config (q : state M) (t : tape) : SR.string nat := match t with | (ls, a, rs) => ⦇ :: (rev (map encode_symbol ls)) ++ [encode_symbol a] ++ [encode_state q] ++ (map encode_symbol rs) ++ [⦈] end.
imports: Undecidability(TM.SBTM TM.Util.SBTM_facts) PeanoNat Lia List ssreflect ssrbool ssrfun