proposition: Fact mma_mm2_atom_equiv ρ s1 s2 : ρ /A/ s1 ⇢ s2 <-> mma_mm2_instr ρ /2/ mma_mm2_state s1 ⇢ mma_mm2_state s2.
proof: Proof. split. + apply mma_mm2_atom. + intros H; apply mm2_mma_atom in H. rewrite mm2_mma_mm2_instr in H. do 2 rewrite mm2_mma_mm2_state in H. trivial. Qed.
imports: List Arith Relations Lia Undecidability.Synthetic.Definitions Undecidability.Shared.Libs.DLW(utils pos vec sss subcode) Undecidability.MinskyMachines(MM2 mma_defs)