Arrow_apply.WITH_ARROW_AND_FST
Minimal definition using arrow and fst and apply.
arrow
fst
apply
type ('a, 'b) t
The type held by the Arrow_apply.
Arrow_apply
val apply : (('a, 'b) t * 'a, 'b) t
application of an arrow to an input.
val arrow : ('a -> 'b) -> ('a, 'b) t
Lift a function to an Arrow.
Arrow
val fst : ('a, 'b) t -> ('a * 'd, 'b * 'd) t
Send the first component of the input through the argument Arrow, and copy the rest unchanged to the output.