fact: Definition increment i := PUSH y Zero :: transfer_ones x y (1+i) (5+i) (10+i) One ++ PUSH x One :: transfer_ones y x (6+i) (15+i) (15+i) Zero ++ PUSH x Zero :: transfer_ones y x (11+i) (15+i) (15+i) 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)