diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2026-01-11 16:28:27 -0600 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2026-01-11 16:28:27 -0600 |
| commit | c65be5a260a44f35e26b771026153643ad2464b3 (patch) | |
| tree | 9d015da44887df89a4c55c9c25b360408bcac813 /Functor/Instance | |
| parent | 05a7c242d961851ee0085359a44c989489beacd0 (diff) | |
Construct SM nat trans from Circ to Sysmain
Diffstat (limited to 'Functor/Instance')
| -rw-r--r-- | Functor/Instance/CMonoidalize.agda | 4 | ||||
| -rw-r--r-- | Functor/Instance/Monoidalize.agda | 4 | ||||
| -rw-r--r-- | Functor/Instance/Nat/Circ.agda | 4 |
3 files changed, 8 insertions, 4 deletions
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ₘ) |