fact: Definition gotos : list (nat * BasicState * BasicState) := map (fun '(i, (j, n)) => (n, #+i, #-i)) iP ++ map (fun '(i, (j, n)) => (0, #?(1+(i:CM.State)), #?(1+(i:CM.State)))) iP ++ map (fun '(i, (j, n)) => (0, $?i, $?i)) iP ++ map (fun '(i, (j, n)) => (0, $+i, $+i)) iP ++ map (fun '(i, (j, n)) => (0, $-i, $-i)) iP ++ [(0, +|, +|)].
imports: Relation_Operators Operators_Properties Lia PeanoNat List Undecidability.StackMachines.Reductions.CM1_HALT_to_SMNdl_UB.SMX_facts Undecidability.StackMachines.Util(Nat_facts List_facts) ssreflect ssrbool ssrfun