fact: Definition list_constructors (ind : inductive) : TemplateMonad (list (ident * term * context)) := A <- tmQuoteInductive (inductive_mind ind) ;; match ind_bodies A with | [ B ] => tmReturn (map (fun cstr => (cstr.(cstr_name), cstr.(cstr_type), cstr.(cstr_args))) (ind_ctors B)) | _ => tmFail "error: no mutual inductives supported" end.
imports: Ascii String Undecidability.L(Util.L_facts) MetaCoq(Template.All Template.Checker) Undecidability.Shared.Libs.PSL.Base MetaCoq.Utils.bytestring