fact: Definition decide : { M: list mm2_instr | mm2_reversible M } * mm2_state -> bool := fun '(exist _ M HM, c) => match decision M HM c with | inl _ => true | inr _ => false end.
imports: List PeanoNat Lia Relation_Operators Operators_Properties Transitive_Closure Undecidability.MinskyMachines.MM2 Undecidability.MinskyMachines.Util.MM2_facts ssreflect ssrbool ssrfun Undecidability.Synthetic.Definitions