fact: Definition decide : { P : list (mm_instr (pos 2)) & vec nat 2 } -> bool := fun '(existT _ P v) => match decision P v with | inl _ => true | inr _ => false end.
imports: PeanoNat Lia List Undecidability.MinskyMachines(MM MM_sss) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) ssreflect ssrbool ssrfun Undecidability.Synthetic.Definitions