From c65be5a260a44f35e26b771026153643ad2464b3 Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sun, 11 Jan 2026 16:28:27 -0600 Subject: Construct SM nat trans from Circ to Sys --- Functor/Instance/CMonoidalize.agda | 4 ++-- Functor/Instance/Monoidalize.agda | 4 ++-- Functor/Instance/Nat/Circ.agda | 4 ++++ 3 files changed, 8 insertions(+), 4 deletions(-) (limited to 'Functor') diff --git a/Functor/Instance/CMonoidalize.agda b/Functor/Instance/CMonoidalize.agda index 41eb4e4..ad9b266 100644 --- a/Functor/Instance/CMonoidalize.agda +++ b/Functor/Instance/CMonoidalize.agda @@ -6,10 +6,10 @@ open import Categories.Category.Monoidal.Bundle using (SymmetricMonoidalCategory open import Categories.Category.Cocartesian using (Cocartesian) module Functor.Instance.CMonoidalize - {o o′ ℓ ℓ′ e e ′ : Level} + {o o′ ℓ ℓ′ e e′ : Level} {C : Category o ℓ e} (cocartesian : Cocartesian C) - (D : SymmetricMonoidalCategory o ℓ e) + (D : SymmetricMonoidalCategory o′ ℓ′ e′) where open import Categories.Category.Cocartesian using (module CocartesianSymmetricMonoidal) diff --git a/Functor/Instance/Monoidalize.agda b/Functor/Instance/Monoidalize.agda index 6423109..b856f82 100644 --- a/Functor/Instance/Monoidalize.agda +++ b/Functor/Instance/Monoidalize.agda @@ -6,10 +6,10 @@ open import Categories.Category.Monoidal using (MonoidalCategory) open import Categories.Category.Cocartesian using (Cocartesian) module Functor.Instance.Monoidalize - {o o′ ℓ ℓ′ e e ′ : Level} + {o o′ ℓ ℓ′ e e′ : Level} {C : Category o ℓ e} (cocartesian : Cocartesian C) - (D : MonoidalCategory o ℓ e) + (D : MonoidalCategory o′ ℓ′ e′) where open import Categories.Category.Cocartesian using (module CocartesianMonoidal) diff --git a/Functor/Instance/Nat/Circ.agda b/Functor/Instance/Nat/Circ.agda index 88a6ec6..e36fee2 100644 --- a/Functor/Instance/Nat/Circ.agda +++ b/Functor/Instance/Nat/Circ.agda @@ -10,6 +10,7 @@ open import Categories.Category.Instance.Nat using (Nat) open import Categories.Functor using (Functor; _∘F_) open import Categories.Morphism.Notation using (_[_≅_]) open import Category.Instance.Setoids.SymmetricMonoidal {ℓ} {ℓ} using (Setoids-×) +open import Categories.NaturalTransformation.NaturalIsomorphism using (_≃_) open import Data.Circuit using (mk≈) open import Data.Circuit {ℓ} using (Circuitₛ; mkCircuitₛ; edgesₛ) open import Data.Circuit.Gate using (Gates) @@ -54,3 +55,6 @@ Edges≅Circₘ n = proj₂ (Edges≅ n) Circ : Functor Nat CMonoids Circ = proj₁ (define-by-pw-iso Edges Circuitₘ Edges≅Circₘ) + +Edges≃Circ : Edges ≃ Circ +Edges≃Circ = proj₂ (define-by-pw-iso Edges Circuitₘ Edges≅Circₘ) -- cgit v1.2.3