fact: Definition ToggleMarked_Rel : pRel sigSim unit 1 := ignoreParam (fun tin tout => forall ls m rs, tin[@Fin0] = midtape ls (inr (sigList_X m)) rs -> tout[@Fin0] = midtape ls (inr (sigList_X (toggle_marked m))) rs).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)