val declare_beq_scheme : Names.MutInd.t -> unit
val declare_eq_decidability : Names.MutInd.t -> unit
val declare_congr_scheme : Names.inductive -> unit
val declare_rewriting_schemes : Names.inductive -> unit
val do_mutual_induction_scheme : ?force_mutual:bool -> (Names.lident * bool * Names.inductive * Sorts.family) list -> unit
val do_scheme : (Names.lident option * Vernacexpr.scheme) list -> unit
val build_combined_scheme : Environ.env -> Names.Constant.t list -> Evd.evar_map * Constr.constr * Constr.types
val do_combined_scheme : Names.lident -> Names.lident list -> unit
val declare_default_schemes : Names.MutInd.t -> unit