fact: Definition While_part : state (projT1 pM) -> F := fun q => match projT2 pM q with | Some y => y | None => default end.
imports: Undecidability(TM.Util.TM_facts) Undecidability.Shared.Libs.PSL.FiniteTypes.DepPairs EqdepFacts