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_interactive : Vernacexpr.fixpoint_expr list -> Lemmas.t
val do_generate_principle : Vernacexpr.fixpoint_expr list -> unit
val make_graph : Names.GlobRef.t -> unit
exception
No_graph_found
val build_scheme : (Names.Id.t * Libnames.qualid * Sorts.family) list -> unit
val build_case_scheme : (Names.Id.t * Libnames.qualid * Sorts.family) -> unit