fact: Definition tmQuoteInductiveDecl (na : kername) : TemplateMonad (mutual_inductive_body * one_inductive_body) := mdecl <- tmQuoteInductive na ;; match ind_bodies mdecl with [ idecl ] => tmReturn (mdecl, idecl) | _ => 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