diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-12-09 13:25:39 -0600 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-12-09 13:25:39 -0600 |
| commit | 6272b4e84650b9833a53239b354770e0deba7b9a (patch) | |
| tree | d69dfd53369f4630fe9e8beceabad3ac55a1dc0e /Data/CMonoid.agda | |
| parent | 3c62ac510f286f228c9993fe6c37abdcad9e1fb2 (diff) | |
Add shorter name for singleton setoid
Diffstat (limited to 'Data/CMonoid.agda')
| -rw-r--r-- | Data/CMonoid.agda | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Data/CMonoid.agda b/Data/CMonoid.agda index 6aec0c8..8aaf869 100644 --- a/Data/CMonoid.agda +++ b/Data/CMonoid.agda @@ -9,7 +9,6 @@ open import Object.Monoid.Commutative using (CommutativeMonoid; CommutativeMonoi open import Categories.Object.Monoid using (Monoid) open import Data.Monoid {c} {ℓ} using (toMonoid; fromMonoid; toMonoid⇒) -module Setoids-× = SymmetricMonoidalCategory Setoids-× import Algebra.Bundles as Alg @@ -39,7 +38,7 @@ toCMonoid M = record comm x y = commutative {x , y} open import Function.Construct.Constant using () renaming (function to Const) -open import Categories.Category.Instance.SingletonSet using () renaming (SingletonSetoid to ⊤ₛ) +open import Data.Setoid.Unit using (⊤ₛ) fromCMonoid : Alg.CommutativeMonoid c ℓ → CommutativeMonoid Setoids-×.symmetric fromCMonoid M = record |