open import 1Lab.Path.IdentitySystem
open import 1Lab.HLevel.Closure
open import 1Lab.HLevel
open import 1Lab.Equiv
open import 1Lab.Path
open import 1Lab.Type

open import Data.Dec.Base
open import Data.Sum.Base
open import Data.Id.Base

import Data.Nat.Base as Nat

module Data.Fin.Base where

Finite setsπŸ”—

The type Fin is the type of size n. These are defined as an inductive family over Nat, such that Fin 0 has 0 elements, Fin 1 has 1 element, and so on.

Another way to view Fin is as the type of numbers less than some upper bound. For instance, fsuc fzero is of type Fin 3, but will not typecheck as a Fin 1!

data Fin : Nat β†’ Type where
  fzero : βˆ€ {n} β†’ Fin (suc n)
  fsuc  : βˆ€ {n} β†’ Fin n β†’ Fin (suc n)

Keeping with the perspective of Fin as a type of bounded natural numbers, we provide conversion functions going back and forth.

from-nat : βˆ€ (n : Nat) β†’ Fin (suc n)
from-nat zero = fzero
from-nat (suc n) = fsuc (from-nat n)

to-nat : βˆ€ {n : Nat} β†’ Fin n β†’ Nat
to-nat fzero = zero
to-nat (fsuc i) = suc (to-nat i)

A note of caution: because of some ✨technical reasons✨ cubical agda cannot handle transports over indexed inductive types very well. Instead, we define a function cast that computes on the indices of Fin, rather than on the path.

cast : βˆ€ {m n} β†’ m ≑ n β†’ Fin m β†’ Fin n
cast {suc m} {zero} p fzero = absurd (Nat.suc≠zero p)
cast {suc m} {suc n} p fzero = fzero
cast {suc m} {zero} p (fsuc i) = absurd (Nat.suc≠zero p)
cast {suc m} {suc n} p (fsuc i) = fsuc (cast (Nat.suc-inj p) i)

cast-is-equiv : βˆ€ {m n} (p : m ≑ n) β†’ is-equiv (cast p)
cast-is-equiv =
  J (Ξ» _ p β†’ is-equiv (cast p)) cast-refl-is-equiv
  where
    id≑cast-refl : βˆ€ {n} β†’ id ≑ cast (Ξ» _ β†’ n)
    id≑cast-refl {zero} i ()
    id≑cast-refl {suc n} i fzero = fzero
    id≑cast-refl {suc n} i (fsuc x) = fsuc (id≑cast-refl {n} i x)

    cast-refl-is-equiv : βˆ€ {n} β†’ is-equiv (cast (Ξ» i β†’ n))
    cast-refl-is-equiv = subst is-equiv id≑cast-refl id-equiv

Next, we move on to one of the most useful functions for Fin: strength. This allows us to (possibly) strengthen the upper bound on some Fin n.

strengthen : βˆ€ {n} β†’ Fin (suc n) β†’ Fin (suc n) ⊎ Fin n
strengthen {n = zero} fzero = inl fzero
strengthen {n = suc n} fzero = inr fzero
strengthen {n = suc n} (fsuc i) = ⊎-map fsuc fsuc (strengthen i)

On the other hand, weaken does the opposite: it relaxes the upper bound on some Fin n, allowing us to regard it as a Fin (suc n).

weaken : βˆ€ {n} β†’ Fin n β†’ Fin (suc n)
weaken fzero = fzero
weaken (fsuc i) = fsuc (weaken i)

We can also relax the upper bounds if m ≀ n.

inject : βˆ€ {m n} β†’ m Nat.≀ n β†’ Fin m β†’ Fin n
inject {_} {suc n} le fzero = fzero
inject {_} {suc n} (Nat.s≀s le) (fsuc i) = fsuc (inject le i)

DiscretenessπŸ”—

The proof here mirrors the one found in Data.Nat.Base, just with some slight tweaks required to handle the indexing.

We begin by showing that one can distinguish zero from successor:

fzeroβ‰ fsuc : βˆ€ {n} {i : Fin n} β†’ Β¬ fzero ≑ fsuc i
fzero≠fsuc {n = n} path = subst distinguish path tt where
  distinguish : Fin (suc n) β†’ Type
  distinguish fzero = ⊀
  distinguish (fsuc _) = βŠ₯

Next, we show that fsuc is injective. This again follows the proof in Data.Nat.Base, but some extra care must be taken to ensure that pred is well typed!

fsuc-inj : βˆ€ {n} {i j : Fin n} β†’ fsuc i ≑ fsuc j β†’ i ≑ j
fsuc-inj {n = suc n} p = ap pred p
  where
    pred : Fin (suc (suc n)) β†’ Fin (suc n)
    pred fzero = fzero
    pred (fsuc i) = i

Finally, we pull everything together to show that Fin is Discrete. This is not exactly a shock (after all, Nat is discrete), but it’s useful nonetheless!

instance
  Discrete-Fin : βˆ€ {n} β†’ Discrete (Fin n)
  Discrete-Fin {x = fzero}  {fzero} = yes refl
  Discrete-Fin {x = fzero}  {fsuc j} = no fzero≠fsuc
  Discrete-Fin {x = fsuc i} {fzero} = no (fzeroβ‰ fsuc ∘ sym)
  Discrete-Fin {x = fsuc i} {fsuc j} with Discrete-Fin {x = i} {j}
  ... | yes p   = yes (ap fsuc p)
  ... | no Β¬i≑j = no Ξ» si=sj β†’ Β¬i≑j (fsuc-inj si=sj)

Hedberg’s theorem implies that Fin is a set, i.e., it only has trivial paths.

opaque
  Fin-is-set : βˆ€ {n} β†’ is-set (Fin n)
  Fin-is-set = Discrete→is-set Discrete-Fin

instance
  H-Level-Fin : βˆ€ {n k} β†’ H-Level (Fin n) (2 + k)
  H-Level-Fin = basic-instance 2 Fin-is-set

instance
  Number-Fin : βˆ€ {n} β†’ Number (Fin n)
  Number-Fin {n} .Number.Constraint k = k Nat.< n
  Number-Fin {n} .Number.fromNat k {{e}} = go k n e where
    go : βˆ€ k n β†’ k Nat.< n β†’ Fin n
    go zero (suc n) e = fzero
    go (suc k) (suc n) (Nat.s≀s e) = fsuc (go k n e)

open import Data.Nat.Base using (0≀x ; s≀s') public

Fin-elim
  : βˆ€ {β„“} (P : βˆ€ {n} β†’ Fin n β†’ Type β„“)
  β†’ (βˆ€ {n} β†’ P {suc n} fzero)
  β†’ (βˆ€ {i} (j : Fin i) β†’ P j β†’ P (fsuc j))
  β†’ βˆ€ {n} (i : Fin n) β†’ P i
Fin-elim P pfzero pfsuc fzero = pfzero
Fin-elim P pfzero pfsuc (fsuc x) = pfsuc x (Fin-elim P pfzero pfsuc x)

fin-absurd : Fin 0 β†’ βŠ₯
fin-absurd ()

OrderingπŸ”—

Keeping with the view that Fin represents the type of bounded natural numbers, we can re-use the ordering on Nat to induce an ordering on Fin. This means that any lemmas about the ordering on natural numbers apply immediately to the ordering on standard finite sets.

_≀_ : βˆ€ {n} β†’ Fin n β†’ Fin n β†’ Type
i ≀ j = to-nat i Nat.≀ to-nat j
infix 3 _≀_

_<_ : βˆ€ {n} β†’ Fin n β†’ Fin n β†’ Type
i < j = to-nat i Nat.< to-nat j
infix 3 _<_

Next, we define a pair of functions squish and skip, which are the building blocks for all monotone functions between Fin. squish i takes a j : Fin (suc n) to a Fin n by mapping both i and i+1 to i. Its counterpart skip i takes some j : Fin n to a Fin (suc n) by skipping over i instead.

squish : βˆ€ {n} β†’ Fin n β†’ Fin (suc n) β†’ Fin n
squish fzero fzero = fzero
squish fzero (fsuc j) = j
squish (fsuc i) fzero = fzero
squish (fsuc i) (fsuc j) = fsuc (squish i j)

skip : βˆ€ {n} β†’ Fin (suc n) β†’ Fin n β†’ Fin (suc n)
skip fzero j = fsuc j
skip (fsuc i) fzero = fzero
skip (fsuc i) (fsuc j) = fsuc (skip i j)

As a subsetπŸ”—

While Fin is very conveniently defined as an indexed family of types, it can also be defined as a subset of the natural numbers: Namely, the finite ordinal is the same type as as This makes sense! Any set with elements is equivalent to any other set with elements, and a very canonical choice is the first values of 

β„•< : Nat β†’ Type
β„•< x = Ξ£[ n ∈ Nat ] (n Nat.< x)

from-β„•< : βˆ€ {n} β†’ β„•< n β†’ Fin n
from-β„•< {n = suc n} (zero , q) = fzero
from-β„•< {n = suc n} (suc p , Nat.s≀s q) = fsuc (from-β„•< (p , q))

to-β„•< : βˆ€ {n} β†’ Fin n β†’ β„•< n
to-β„•< x = to-nat x , p x where
  p : βˆ€ {n} (x : Fin n) β†’ suc (to-nat x) Nat.≀ n
  p {n = suc n} fzero = Nat.s≀s Nat.0≀x
  p {n = suc n} (fsuc x) = Nat.s≀s (p x)

ArithmeticπŸ”—

weaken-≀ : βˆ€ {m n} β†’ m Nat.≀ n β†’ Fin m β†’ Fin n
weaken-≀ {suc m} {suc n} m≀n fzero = fzero
weaken-≀ {suc m} {suc n} (Nat.s≀s m≀n) (fsuc i) = fsuc (weaken-≀ m≀n i)

shift-≀ : βˆ€ {m n} β†’ m Nat.≀ n β†’ Fin m β†’ Fin n
shift-≀ {n = suc zero} (Nat.s≀s 0≀x) i = i
shift-≀ {n = suc (suc n)} (Nat.s≀s 0≀x) i = fsuc (shift-≀ (Nat.s≀s 0≀x) i)
shift-≀ {n = n} (Nat.s≀s (Nat.s≀s m≀n)) fzero = weaken (shift-≀ (Nat.s≀s m≀n) fzero)
shift-≀ {n = n} (Nat.s≀s (Nat.s≀s m≀n)) (fsuc i) = fsuc (shift-≀ (Nat.s≀s m≀n) i)

split-+ : βˆ€ {m n} β†’ Fin (m + n) β†’ Fin m ⊎ Fin n
split-+ {m = zero} i = inr i
split-+ {m = suc m} fzero = inl fzero
split-+ {m = suc m} (fsuc i) = ⊎-map fsuc id (split-+ i)

avoid : βˆ€ {n} (i j : Fin (suc n)) β†’ (Β¬ i ≑ j) β†’ Fin n
avoid fzero fzero i≠j = absurd (i≠j refl)
avoid {n = suc n} fzero (fsuc j) i≠j = j
avoid {n = suc n} (fsuc i) fzero i≠j = fzero
avoid {n = suc n} (fsuc i) (fsuc j) iβ‰ j = fsuc (avoid i j (iβ‰ j ∘ ap fsuc))

fshift : βˆ€ {n} (m : Nat) β†’ Fin n β†’ Fin (m + n)
fshift zero i = i
fshift (suc m) i = fsuc (fshift m i)

opposite : βˆ€ {n} β†’ Fin n β†’ Fin n
opposite {n = suc n} fzero = from-nat n
opposite {n = suc n} (fsuc i) = weaken (opposite i)

Vector operationsπŸ”—

_[_≔_]
  : βˆ€ {β„“} {A : Type β„“} {n}
  β†’ (Fin n β†’ A) β†’ Fin (suc n) β†’ A
  β†’ Fin (suc n) β†’ A
_[_≔_] {n = n} ρ fzero a fzero = a
_[_≔_] {n = n} ρ fzero a (fsuc j) = ρ j
_[_≔_] {n = suc n} ρ (fsuc i) a fzero = ρ fzero
_[_≔_] {n = suc n} ρ (fsuc i) a (fsuc j) = ((ρ ∘ fsuc) [ i ≔ a ]) j

delete
  : βˆ€ {β„“} {A : Type β„“} {n}
  β†’ (Fin (suc n) β†’ A) β†’ Fin (suc n)
  β†’ Fin n β†’ A
delete ρ i j = ρ (skip i j)