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 case0 {phi : Fin.t O -> Type}
: forall i, phi i.