fact: Definition MOVE_L := [ POP CURR (8 + i) (5 + i) ; POP LEFT (14 + i) (12 + i) ; PUSH CURR true ; PUSH RIGHT true; JMP END ; POP LEFT (17 + i) END ; PUSH CURR true ; JMP END ; POP LEFT (21 + i) (19 + i) ; PUSH CURR true ; PUSH RIGHT false ; JMP END ; PUSH RIGHT true ; JMP END ; PUSH CURR false ; PUSH RIGHT true ; JMP END ; PUSH CURR false ; JMP END ; PUSH RIGHT false ; JMP END ; PUSH CURR false ; PUSH RIGHT false ].
imports: Undecidability.TM.KOSBTM.KOSBTM Undecidability.Shared.Libs.PSL.Vectors.FinNotation Undecidability.Shared.Libs.PSL.Vectors.Vectors Undecidability.Shared.Libs.PSL.EqDec List Arith Lia Bool Undecidability.Shared.Libs.DLW(utils list_bool pos vec subcode sss) Undecidability.StackMachines.BSM(bsm_defs)