PpredSourceval pr_with_occurrences :
('a -> Pp.t) ->
(string -> Pp.t) ->
'a Locus.with_occurrences ->
Pp.tval pr_red_expr_env :
'env ->
'sigma ->
(('env ->
'sigma ->
'a ->
Pp.t)
* ('env ->
'sigma ->
'a ->
Pp.t)
* ('b ->
Pp.t)
* ('env ->
'sigma ->
'c ->
Pp.t)) ->
(string -> Pp.t) ->
('a, 'b, 'c) Genredexpr.red_expr_gen ->
Pp.tCompared to pr_red_expr, this immediately applied the tuple elements to the extra arguments.