fact: Definition DoWrite_steps (d : option move) (tps1 tps2 : list (tape sig)) := match d with | Some Lmove => 37 + 8 * length (encode_list (@encode_tape sig) tps1) | Some Rmove => 37 + 8 * length (encode_list (@encode_tape sig) tps2) | Some Nmove => 1 | None => 73 + 8 * length (encode_list (@encode_tape sig) tps1) + 8 * length (encode_list (@encode_tape sig) tps2) end.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)