Module `Comonadic.Per_axis`

val zap_to_floor : 
  'a Mode.Alloc.Comonadic.Axis.t ->
  ('a, Mode.allowed * 'r) Mode.mode ->
  'a

val zap_to_ceil : 
  'a Mode.Alloc.Comonadic.Axis.t ->
  ('a, 'l * Mode.allowed) Mode.mode ->
  'a

Module Comonadic.Per_axis