fact: Definition MOVE_R := [ POP CURR (8 + i) (5 + i) ; POP RIGHT (14 + i) (12 + i) ; PUSH CURR true ; PUSH LEFT true; JMP END ; POP RIGHT (17 + i) END ; PUSH CURR true ; JMP END ; POP RIGHT (21 + i) (19 + i) ; PUSH CURR true ; PUSH LEFT false ; JMP END ; PUSH LEFT true ; JMP END ; PUSH CURR false ; PUSH LEFT true ; JMP END ; PUSH CURR false ; JMP END ; PUSH LEFT false ; JMP END ; PUSH CURR false ; PUSH LEFT 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)