fact: Definition Loop_T q : tRel sigSim 1 := fun tin k => exists T kn outc, loopM (mk_mconfig q T) kn = Some outc /\ tin[@Fin0] ≃ T /\ Loop_steps q T kn <= k.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)