{-|

**NB**: `unit` would ideally be defined with `: cat.arrow cat.unit m`, but
there’s no Kind-level `{}` to use there.
-}
λ(cat : ../Category/Monoidal/Sort) →
λ(m : Kind) →
  { unit : m } ⩓ ../Quasigroup/Kind cat m