Gen_principle (rocq-runtime.Funind_plugin.Gen

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.fixpoints_expr ->
  Declare.Proof.t

val do_generate_principle : Vernacexpr.fixpoints_expr -> unit

val make_graph : Names.GlobRef.t -> unit

exception No_graph_found

val build_scheme : 
  (Names.lident * Libnames.qualid * UnivGen.QualityOrSet.t) list ->
  unit

val build_case_scheme : 
  (Names.lident * Libnames.qualid * UnivGen.QualityOrSet.t) ->
  unit