fact: Definition increment_erase := increment s a i ++ empty_stack h (15+i) ++ empty_stack l (18+i) ++ empty_stack a (21+i) ++ PUSH l Zero :: POP l p p :: nil.
imports: List Arith Lia Bool Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss) Undecidability.StackMachines.BSM(tiles_solvable bsm_defs)