val warn_cannot_define_graph : ?loc:Loc.t -> (Pp.t * Pp.t) -> unit
val warn_cannot_define_principle : ?loc:Loc.t -> (Pp.t * Pp.t) -> unit
val do_generate_principle : pstate:Proof_global.t option -> bool -> (Vernacexpr.fixpoint_expr * Vernacexpr.decl_notation list) list -> Proof_global.t option
val functional_induction : bool -> EConstr.constr -> (EConstr.constr * EConstr.constr Tactypes.bindings) option -> Ltac_plugin.Tacexpr.or_and_intro_pattern option -> Goal.goal Evd.sigma -> Goal.goal list Evd.sigma
val make_graph : pstate:Proof_global.t option -> Names.GlobRef.t -> Proof_global.t option