Monoidal monads are also groupoids
This commit is contained in:
parent
b116247702
commit
cb0117819b
|
@ -231,3 +231,10 @@ module _ {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
|
||||||
|
|
||||||
Monoidal≡Kleisli : Monoidal.Monad ≡ Kleisli.Monad
|
Monoidal≡Kleisli : Monoidal.Monad ≡ Kleisli.Monad
|
||||||
Monoidal≡Kleisli = isoToPath Monoidal≊Kleisli
|
Monoidal≡Kleisli = isoToPath Monoidal≊Kleisli
|
||||||
|
|
||||||
|
grpdKleisli : isGrpd Kleisli.Monad
|
||||||
|
grpdKleisli = Kleisli.grpdMonad
|
||||||
|
|
||||||
|
grpdMonoidal : isGrpd Monoidal.Monad
|
||||||
|
grpdMonoidal = subst {P = isGrpd}
|
||||||
|
(sym Monoidal≡Kleisli) grpdKleisli
|
||||||
|
|
Loading…
Reference in New Issue