Module Alloc.Axis

type 'a t =
  1. | Monadic : 'a Monadic.Axis.t -> 'a t
  2. | Comonadic : 'a Comonadic.Axis.t -> 'a t

Represents a mode axis in this product whose constant is 'a, and whose allowance is 'd1 given the product's allowance 'd0.

include Mode_intf.Axis with type 'a t := 'a t
val compare : 'a t -> 'b t -> int

Compare two axes in implication order. If A implies B, then A is before B.

type packed =
  1. | P : 'a t -> packed
val print : Format.formatter -> 'a t -> unit
val all : packed list

List of all axes, ordered by compare.