Ppred
val pr_with_occurrences : ('v -> Pp.t) -> ('a -> Pp.t) -> (string -> Pp.t) -> ('v Locus.occurrences_gen * 'a) -> Pp.t
val pr_short_red_flag : ('a -> Pp.t) -> 'a Genredexpr.glob_red_flag -> Pp.t
val pr_red_flag : ('a -> Pp.t) -> 'a Genredexpr.glob_red_flag -> Pp.t
val pr_red_expr_env : 'env -> 'sigma -> (('env -> 'sigma -> 'a -> Pp.t) * ('env -> 'sigma -> 'a -> Pp.t) * ('b -> Pp.t) * ('env -> 'sigma -> 'c -> Pp.t) * ('v -> Pp.t)) -> (string -> Pp.t) -> ('a, 'b, 'c, 'v) Genredexpr.red_expr_gen -> Pp.t
Compared to pr_red_expr
, this immediately applied the tuple elements to the extra arguments.