fact: Definition ToggleMarked : pTM sigSim unit 1 := Switch ReadChar (fun (s : option sigSim) => match s with | Some (inr (sigList_X m)) => Write (inr (sigList_X (toggle_marked m))) | _ => Nop 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)