val warn_cannot_define_graph : ?loc:Loc.t -> (Pp.t * Pp.t) -> unitval warn_cannot_define_principle : ?loc:Loc.t -> (Pp.t * Pp.t) -> unitval do_generate_principle_interactive : Vernacexpr.fixpoint_expr list -> Declare.Proof.tval do_generate_principle : Vernacexpr.fixpoint_expr list -> unitval make_graph : Names.GlobRef.t -> unit
exception No_graph_found
val build_scheme : (Names.Id.t * Libnames.qualid * Sorts.family) list -> unitval build_case_scheme : (Names.Id.t * Libnames.qualid * Sorts.family) -> unit