fact: Definition ts' : Vector.t (tape Σ') 1 := Vector.map (fun t => encode_tape' t) ts.
imports: Undecidability.TM.Compound.TMTac Undecidability.TM.Basic.Mono Undecidability.TM.Compound.Multi Undecidability.TM.Combinators.Combinators Undecidability.TM.Compound.WriteString