diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-12-06 16:31:59 -0600 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-12-06 16:31:59 -0600 |
| commit | e62bc618513cd9daa9f5cbcc98daa3a4fbf9fb99 (patch) | |
| tree | e4b08aa7b3149e937ff15509822a17a1d036ab09 /Category | |
| parent | be9bb2ed6e1fb7505ccbda3787c59f5f1a378006 (diff) | |
Make setoids monoidal structure opaque
Diffstat (limited to 'Category')
| -rw-r--r-- | Category/Instance/Setoids/SymmetricMonoidal.agda | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/Category/Instance/Setoids/SymmetricMonoidal.agda b/Category/Instance/Setoids/SymmetricMonoidal.agda index 8f448dc..f21124e 100644 --- a/Category/Instance/Setoids/SymmetricMonoidal.agda +++ b/Category/Instance/Setoids/SymmetricMonoidal.agda @@ -17,11 +17,23 @@ open import Categories.Category.Cocartesian (Setoids c (c ⊔ ℓ)) open CocartesianMonoidal (Setoids-Cocartesian {c} {ℓ}) using (+-monoidal) open CocartesianSymmetricMonoidal (Setoids-Cocartesian {c} {ℓ}) using (+-symmetric) +open import Categories.Category using (Category) +open import Categories.Category.Monoidal using (Monoidal) +open import Categories.Category.Monoidal.Symmetric using (Symmetric) + +opaque + + ×-monoidal′ : Monoidal (Setoids c ℓ) + ×-monoidal′ = ×-monoidal {c} {ℓ} + + ×-symmetric′ : Symmetric ×-monoidal′ + ×-symmetric′ = ×-symmetric + Setoids-× : SymmetricMonoidalCategory (suc (c ⊔ ℓ)) (c ⊔ ℓ) (c ⊔ ℓ) Setoids-× = record { U = Setoids c ℓ - ; monoidal = ×-monoidal - ; symmetric = ×-symmetric + ; monoidal = ×-monoidal′ + ; symmetric = ×-symmetric′ } Setoids-+ : SymmetricMonoidalCategory (suc (c ⊔ ℓ)) (c ⊔ ℓ) (c ⊔ ℓ) |