Arrow_choice.WITH_ARROW_AND_FST_AND_CHOOSEMinimal definition using arrow and fst and choose.
Split the input between the two argument arrows, re-tagging and merging their outputs.
val arrow : ('a -> 'b) -> ('a, 'b) tLift a function to an Arrow.