src/Categories/Category/Instance/Thinnings.agda

@@ -4,12 +4,19 @@ module Categories.Category.Instance.Thinnings where
 
 open import Categories.Category.Core
 open import Categories.Category.Helper
-open import Data.List.Base using (List)
+open import Categories.Object.Initial
+open import Data.List.Base using (List; [])
+open import Level using (Level)
 open import Relation.Binary.PropositionalEquality
 
 open import Thinning
 open import Thinning.Properties
 
+private
+  variable
+    a : Level
+    A : Set a
+
 Thinnings : ∀ {a} (A : Set a) → Category a a a
 Thinnings A = categoryHelper record
   { Obj = List A
@@ -23,3 +30,9 @@ Thinnings A = categoryHelper record
   ; equiv = isEquivalence
   ; ∘-resp-≈ = cong₂ _∘_
   }
+
+[]-isInitial : IsInitial (Thinnings A) []
+[]-isInitial = record { !-unique = ¡-unique }
+
+initial : Initial (Thinnings A)
+initial = record { ⊥-is-initial = []-isInitial }