proposition: Lemma ToggleMarked_Sem : ToggleMarked ⊨c(3) ToggleMarked_Rel.
proof: Proof. eapply RealiseIn_monotone. { unfold ToggleMarked. eapply (Switch_RealiseIn (k2 := 1) (R2 := option_sigSim_sigList_X)); [now auto with nocore TMdb|]. intros [[|[| |]]|]. all: auto using le with nocore TMdb. } { reflexivity. } { intros tin ([], tout) H. intros ls m rs Hmidtape. TMSimp. reflexivity. } Qed.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)