fact: Definition WhileTM : TM sig n := Build_TM While_trans (start (projT1 pM)) (fun q => halt q && match projT2 pM q with | Some _ => true | None => false end).
imports: Undecidability(TM.Util.TM_facts) Undecidability.Shared.Libs.PSL.FiniteTypes.DepPairs EqdepFacts