Module Ppred
val pr_with_occurrences : ('a -> Pp.t) -> (string -> Pp.t) -> 'a Locus.with_occurrences -> Pp.tval pr_short_red_flag : ('a -> Pp.t) -> 'a Genredexpr.glob_red_flag -> Pp.tval pr_red_flag : ('a -> Pp.t) -> 'a Genredexpr.glob_red_flag -> Pp.tval pr_red_expr_env : Environ.env -> Evd.evar_map -> ((Environ.env -> Evd.evar_map -> 'a -> Pp.t) * (Environ.env -> Evd.evar_map -> 'a -> Pp.t) * ('b -> Pp.t) * (Environ.env -> Evd.evar_map -> 'c -> Pp.t)) -> (string -> Pp.t) -> ('a, 'b, 'c) Genredexpr.red_expr_gen -> Pp.t