Module `Monadic.Per_axis`

val zap_to_floor : 
  'a Mode.Value.Monadic.Axis.t ->
  ('a, 'l * Mode.allowed) Mode.mode ->
  'a

val zap_to_ceil : 
  'a Mode.Value.Monadic.Axis.t ->
  ('a, Mode.allowed * 'r) Mode.mode ->
  'a

Module Monadic.Per_axis