fact: Definition tape_eq_stacks (t : tape) (lft : list bool) (rt : list bool) := match t with (l,b,r) => l = lft /\ b::r = rt end.
imports: List Arith Lia Bool Undecidability.Synthetic(ReducibilityFacts) Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss compiler_correction) Undecidability.StackMachines.BSM(bsm_defs) Undecidability.TM(SBTM pctm_defs)