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ₘ)