fact: Definition atCons_current (t : tape sigSim) (tps1 tps2 : list (tape sig)) (tp : tape sig) := match tp with | niltape _ => atCons_current_niltape t tps1 tps2 | leftof r rs => atCons_current_leftof t tps1 tps2 r rs | midtape ls m rs => atCons_current_midtape t tps1 tps2 ls m rs | rightof l ls => atCons_current_rightof t tps1 tps2 l ls end.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)