Choice.Over_profunctor_via_left
module P : Preface_specs.Profunctor.CORE
module L : Preface_specs.Choice.WITH_LEFT with type ('a, 'b) t = ('a, 'b) P.t
type ('a, 'b) t = ('a, 'b) L.t
The type held by the Choice
.
Act on the left parameter of the sum.