I know of two ways to define the finite number type:
Inductive fin (n : nat) := | O_fin : fin (S O) | S_fin : forall n : nat, fin n -> fin (S n). Definiti