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 --- Functor/Monoidal/Instance/Nat/Pull.agda | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Functor/Monoidal/Instance/Nat/Pull.agda') diff --git a/Functor/Monoidal/Instance/Nat/Pull.agda b/Functor/Monoidal/Instance/Nat/Pull.agda index 1d3d338..b267f97 100644 --- a/Functor/Monoidal/Instance/Nat/Pull.agda +++ b/Functor/Monoidal/Instance/Nat/Pull.agda @@ -14,7 +14,7 @@ open import Categories.Category.Cartesian using (Cartesian) open import Categories.Category.Cocartesian using (Cocartesian; BinaryCoproducts) open import Categories.Category.Instance.Nat using (Nat) open import Categories.Category.Instance.Nat using (Nat-Cocartesian) -open import Categories.Category.Instance.SingletonSet using () renaming (SingletonSetoid to ⊤ₛ) +open import Data.Setoid.Unit using (⊤ₛ) open import Categories.Category.Monoidal.Bundle using (SymmetricMonoidalCategory) open import Categories.Category.Monoidal.Instance.Setoids using (Setoids-Cartesian) open import Categories.Category.Product using (_⁂_) @@ -43,8 +43,6 @@ open import Functor.Instance.Nat.Pull using (Pull; Pull-defs) open import Relation.Binary using (Setoid) open import Relation.Binary.PropositionalEquality as ≡ using (_≡_; _≗_; module ≡-Reasoning) -module Setoids-× = SymmetricMonoidalCategory Setoids-× - open Cartesian (Setoids-Cartesian {0ℓ} {0ℓ}) using (products) open BinaryProducts products using (-×-) -- cgit v1.2.3