fact: Definition NopTM : TM sig n := {| trans := fun '(q, s) => (q, Vector.const (None, Nmove) n); start := tt; halt _ := true; |}.
imports: Undecidability(TM.Util.Prelim) Undecidability(TM.Util.TM_facts) Undecidability(TM.Basic.Mono) Undecidability(TM.Combinators.Combinators) Undecidability(TM.Compound.TMTac)