fact: Definition encode_Instruction (op: Instruction) : SSM.instruction := match op with | (([], [a], x), ([b], [], y)) => (x, y, a, b, false) | (([a], [], x), ([], [b], y)) => (x, y, a, b, true) | _ => (0, 0, true, true, true) end.
imports: List Lia Relation_Operators Operators_Properties Undecidability.StackMachines.SMN Undecidability.StackMachines.Util(Nat_facts List_facts SMN_facts) Undecidability.StackMachines.Util.SMN_transform ssreflect ssrbool ssrfun