fact: Definition While_trans : (TM.state (projT1 pM)) * Vector.t (option sig) n -> (TM.state (projT1 pM)) * Vector.t (option sig * move) n := fun '(q,s) => if halt q then (start (projT1 pM), nop_action) else trans (q,s).
imports: Undecidability(TM.Util.TM_facts) Undecidability.Shared.Libs.PSL.FiniteTypes.DepPairs EqdepFacts