Accessor.Of_applicative3See Of_applicative.
module A : sig ... endval sum :
(module Base.Container.Summable with type t = 'sum) ->
(Base.unit -> 'a -> _, Base.unit -> 'at -> _, [> Subtyping.many_getter ])
General.t ->
'at ->
f:('a -> ('sum, 'd, 'e) A.t) ->
('sum, 'd, 'e) A.tval sumi :
(module Base.Container.Summable with type t = 'sum) ->
('i -> 'a -> _, Base.unit -> 'at -> _, [> Subtyping.many_getter ]) General.t ->
'at ->
f:('i Index.t -> 'a -> ('sum, 'd, 'e) A.t) ->
('sum, 'd, 'e) A.t