fact: Definition shift_instr (mm2i : mm2_instr) : mm2_instr := match mm2i with | mm2_dec_a q => mm2_dec_a (if q is 0 then 0 else q+a0+b0) | mm2_dec_b q => mm2_dec_b (if q is 0 then 0 else q+a0+b0) | _ => mm2i end.
imports: List PeanoNat Lia Relations.Relation_Operators Relations.Operators_Properties Undecidability.MinskyMachines.MM2 Undecidability.MinskyMachines.Util.MM2_facts ssreflect ssrbool ssrfun