fact: Definition main_init := empty_stack s i ++ empty_stack a (3+i) ++ empty_stack h (6+i) ++ empty_stack l (9+i) ++ PUSH s Zero :: nil.
imports: List Arith Lia Bool Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss) Undecidability.StackMachines.BSM(tiles_solvable bsm_defs)