From 6272b4e84650b9833a53239b354770e0deba7b9a Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Tue, 9 Dec 2025 13:25:39 -0600 Subject: Add shorter name for singleton setoid --- Data/CMonoid.agda | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Data/CMonoid.agda') 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 -- cgit v1.2.3