fact: Definition tmNumConstructors (n : kername) : TemplateMonad nat := i <- tmQuoteInductive n ;; match ind_bodies i with [ i ] => tmEval cbv (| ind_ctors i |) | _ => tmFail "Mutual inductive types are not supported" end.
imports: Ascii String Undecidability.L(Util.L_facts) MetaCoq(Template.All Template.Checker) Undecidability.Shared.Libs.PSL.Base MetaCoq.Utils.bytestring