Module type SetMap.Projection2
val proj2_monadic :
'parameters ->
'exceptions_caught_and_uncaught ->
(elt_a -> elt_b) ->
(elt_a -> elt_c) ->
'b ->
('parameters ->
'exceptions_caught_and_uncaught ->
'b ->
'a ->
'exceptions_caught_and_uncaught * 'b) ->
'a map_a ->
'exceptions_caught_and_uncaught * 'b map_c map_b