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/Nat/Circ.agda | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Functor/Instance/Nat/Circ.agda') 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