fact: Definition IsCons_Rel : pRel sigSim bool 1 := fun tin '(yout, tout) => (forall tps1 tps2 tp, atCons tin[@Fin0] tps1 tps2 tp -> atCons tout[@Fin0] tps1 tps2 tp /\ yout = true) /\ (forall tps, atNil tin[@Fin0] tps -> atNil tout[@Fin0] tps /\ yout = false).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)