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/Nat/Circ.agda | |
| parent | 05a7c242d961851ee0085359a44c989489beacd0 (diff) | |
Construct SM nat trans from Circ to Sysmain
Diffstat (limited to 'Functor/Instance/Nat/Circ.agda')
| -rw-r--r-- | Functor/Instance/Nat/Circ.agda | 4 |
1 files changed, 4 insertions, 0 deletions
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ₘ) |