fact: Definition shift_state (x : mm2_state) : mm2_state := match x with | (p, (a, b)) => ((if p is 0 then 0 else p+a0+b0), (a, b)) end.
imports: List PeanoNat Lia Relations.Relation_Operators Relations.Operators_Properties Undecidability.MinskyMachines.MM2 Undecidability.MinskyMachines.Util.MM2_facts ssreflect ssrbool ssrfun