Do not export helpers in Fun

src/Cat/Categories/Fun.agda

@@ -69,6 +69,7 @@ module Fun {ℓc ℓc' ℓd ℓd' : Level} (ℂ : Category ℓc ℓc') (𝔻 : C
   open RawCategory RawFun
   open Univalence (λ {A} {B} {f} → isIdentity {A} {B} {f})
 
+  private
     module _ {A B : Functor ℂ 𝔻} where
       module A = Functor A
       module B = Functor B

src/Cat/Categories/Sets.agda

@@ -328,6 +328,8 @@ module _ {ℓ : Level} where
     SetsHasProducts = record { product = product }
 
 module _ {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
+  open Category ℂ
+
   -- Covariant Presheaf
   Representable : Set (ℓa ⊔ lsuc ℓb)
   Representable = Functor ℂ (𝓢𝓮𝓽 ℓb)
@@ -336,8 +338,6 @@ module _ {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
   Presheaf : Set (ℓa ⊔ lsuc ℓb)
   Presheaf = Functor (opposite ℂ) (𝓢𝓮𝓽 ℓb)
 
-  open Category ℂ
-
   -- The "co-yoneda" embedding.
   representable : Category.Object ℂ → Representable
   representable A = record

src/Cat/Category/Yoneda.agda

@@ -28,9 +28,12 @@ module _ {ℓ : Level} {ℂ : Category ℓ ℓ} where
   private
     𝓢 = Sets ℓ
     open Fun (opposite ℂ) 𝓢
-    presheaf = Cat.Categories.Sets.presheaf ℂ
+
     module ℂ = Category ℂ
 
+    presheaf : ℂ.Object → Presheaf ℂ
+    presheaf = Cat.Categories.Sets.presheaf ℂ
+
     module _ {A B : ℂ.Object} (f : ℂ [ A , B ]) where
       fmap : Transformation (presheaf A) (presheaf B)
       fmap C x = ℂ [ f ∘ x ]