Expression.Assignmentand ('M, 'T) t = {operator : operator option;left : ('M, 'T) Pattern.t;right : ('M, 'T) Expression.t;comments : ('M, unit) Syntax.t option;}val pp_operator : Format.formatter -> operator -> unitval show_operator : operator -> stringval pp :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) t ->
unitval show :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) t ->
string