diff options
Diffstat (limited to 'Functor/Monoidal/Instance/Nat')
| -rw-r--r-- | Functor/Monoidal/Instance/Nat/Circ.agda | 4 | ||||
| -rw-r--r-- | Functor/Monoidal/Instance/Nat/Preimage.agda | 4 | ||||
| -rw-r--r-- | Functor/Monoidal/Instance/Nat/Pull.agda | 4 | ||||
| -rw-r--r-- | Functor/Monoidal/Instance/Nat/Push.agda | 2 | ||||
| -rw-r--r-- | Functor/Monoidal/Instance/Nat/System.agda | 2 |
5 files changed, 7 insertions, 9 deletions
diff --git a/Functor/Monoidal/Instance/Nat/Circ.agda b/Functor/Monoidal/Instance/Nat/Circ.agda index 0e2d3eb..1b45a75 100644 --- a/Functor/Monoidal/Instance/Nat/Circ.agda +++ b/Functor/Monoidal/Instance/Nat/Circ.agda @@ -14,7 +14,7 @@ open import Category.Monoidal.Instance.Nat using (Nat,+,0) open import Categories.Category.Construction.Monoids using (Monoids) open import Categories.Category.Instance.Nat using (Nat; Nat-Cocartesian) open import Categories.Category.Monoidal.Bundle using (SymmetricMonoidalCategory) -open import Categories.Category.Instance.SingletonSet using (SingletonSetoid) +open import Data.Setoid.Unit using (⊤ₛ) open import Categories.Category.Monoidal.Instance.Setoids using (Setoids-Cartesian) open import Categories.Category.Cartesian using (Cartesian) open Cartesian (Setoids-Cartesian {suc 0ℓ} {suc 0ℓ}) using (products) @@ -54,7 +54,7 @@ module MultisetOf,++,[] = SymmetricMonoidalFunctor MultisetOf,++,[] open SymmetricMonoidalFunctor -ε⇒ : SingletonSetoid ⟶ₛ Circuitₛ 0 +ε⇒ : ⊤ₛ ⟶ₛ Circuitₛ 0 ε⇒ = mkCircuitₛ ∙ MultisetOf,++,[].ε open Cocartesian Nat-Cocartesian using (-+-) diff --git a/Functor/Monoidal/Instance/Nat/Preimage.agda b/Functor/Monoidal/Instance/Nat/Preimage.agda index 59c9391..844df79 100644 --- a/Functor/Monoidal/Instance/Nat/Preimage.agda +++ b/Functor/Monoidal/Instance/Nat/Preimage.agda @@ -4,7 +4,7 @@ module Functor.Monoidal.Instance.Nat.Preimage where open import Category.Monoidal.Instance.Nat using (Natop,+,0; Natop-Cartesian) open import Categories.Category.Instance.Nat using (Nat-Cocartesian) -open import Categories.Category.Instance.SingletonSet using (SingletonSetoid) +open import Data.Setoid.Unit using (⊤ₛ) open import Categories.NaturalTransformation using (NaturalTransformation; ntHelper) open import Categories.Category.Monoidal.Instance.Setoids using (Setoids-Cartesian) open import Categories.Category.BinaryProducts using (module BinaryProducts) @@ -38,7 +38,7 @@ open import Relation.Binary.PropositionalEquality as ≡ using (_≡_; _≗_; mo open import Data.Bool.Base using (Bool) open Func -Preimage-ε : SingletonSetoid {0ℓ} {0ℓ} ⟶ₛ Subsetₛ 0 +Preimage-ε : ⊤ₛ {0ℓ} {0ℓ} ⟶ₛ Subsetₛ 0 to Preimage-ε x = [] cong Preimage-ε x () 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 (-×-) diff --git a/Functor/Monoidal/Instance/Nat/Push.agda b/Functor/Monoidal/Instance/Nat/Push.agda index b53282d..2e8c0cf 100644 --- a/Functor/Monoidal/Instance/Nat/Push.agda +++ b/Functor/Monoidal/Instance/Nat/Push.agda @@ -10,7 +10,7 @@ open import Function.Bundles using (Func; _⟶ₛ_; _⟨$⟩_) open import Level using (0ℓ; Level) open import Relation.Binary using (Rel; Setoid) open import Functor.Instance.Nat.Push using (Push; Push-defs) -open import Categories.Category.Instance.SingletonSet using () renaming (SingletonSetoid to ⊤ₛ) +open import Data.Setoid.Unit using (⊤ₛ) open import Categories.NaturalTransformation using (NaturalTransformation; ntHelper) open import Data.Vec.Functional as Vec using (Vector) open import Data.Vector using (++-assoc; ++-↑ˡ; ++-↑ʳ) diff --git a/Functor/Monoidal/Instance/Nat/System.agda b/Functor/Monoidal/Instance/Nat/System.agda index 2201c35..6659fb3 100644 --- a/Functor/Monoidal/Instance/Nat/System.agda +++ b/Functor/Monoidal/Instance/Nat/System.agda @@ -29,7 +29,7 @@ open import Categories.Category.Cartesian using (Cartesian) open import Categories.Category.Cocartesian using (Cocartesian) open import Categories.Category.Instance.Nat using (Nat; Nat-Cocartesian; Natop) open import Categories.Category.Instance.Setoids using (Setoids) -open import Categories.Category.Instance.SingletonSet using () renaming (SingletonSetoid to ⊤ₛ) +open import Data.Setoid.Unit using (⊤ₛ) open import Categories.Category.Monoidal.Instance.Setoids using (Setoids-Cartesian) open import Categories.Category.Product using (Product) open import Categories.Category.Product using (_⁂_) |