Module Comonadic.Atom

type 'a t =
  1. | Meet_with of 'a
    (*

    Meet_with c takes x and returns meet c x. c can be max in which case it's the identity modality.

    *)