Module Reductionops.ReductionBehaviour

Machinery to customize the behavior of the reduction

type t =
| NeverUnfold
| UnfoldWhen of when_flags
| UnfoldWhenNoMatch of when_flags
and when_flags = {
recargs : int list;
nargs : int option;
}
module Db : sig ... end
val set : local:bool -> Names.Constant.t -> t option -> unit
val get_from_db : Db.t -> Names.Constant.t -> t option
val get : Names.Constant.t -> t option
val print : Names.Constant.t -> Pp.t