Module Fin.
Inductive t : nat -> Set :=
| FZ (n : nat) : t (S n)
| FS (n : nat) (i : t n) : t (S n).
#[global] Arguments FZ {n}%nat.
#[global] Arguments FS {n}%nat (i).

Lemma getFin_runFin_id {n : nat} (i : Fin.t n)
: getFin (proj1_sig (runFin i)) (proj2_sig (runFin i)) = i.