fact: Definition right := fun (t : tape) => match t with | niltape => [] | leftof s r => s :: r | rightof _ _ => [] | midtape _ _ r => r end.
imports: Undecidability.Shared.Libs.PSL.Vectors.Vectors Undecidability.TM.TM