fact: Fixpoint Shift_steps (rs : list sig) := match rs with | nil => 4 | c :: rs => if f c then 4 else 4 + Shift_steps rs end.
imports: Undecidability(TM.Util.Prelim) Undecidability(TM.Basic.Mono) Undecidability(TM.Combinators.Combinators) Undecidability(TM.Compound.TMTac) Undecidability(TM.Compound.Multi) Coq(FunInd) Coq(Recdef)