fact: Definition Loop_Rel q : pRel sigSim F 1 := fun tin '(yout, tout) => forall (T : tapes sig n), tin[@Fin0] ≃ T -> let c := {| cstate := q; ctapes := T |} in exists c' k, loopM c k = Some c' /\ tout[@Fin0] ≃ ctapes c' /\ yout = projT2 pM (cstate c').
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)