initial commit

Util/Fin.agda

@@ -0,0 +1,10 @@
+module univTypes.Util.Fin where
+
+open import Data.Nat using (ℕ; suc; zero)
+
+-- `Fin n` is a type with `n` elements.
+-- You can think of `Fin n` as the type of all natural numbers less than `n`.
+
+data Fin : ℕ → Set where
+  zero : ∀ {n} → Fin (suc n)
+  suc  : ∀ {n} → (i : Fin n) → Fin (suc n)