Inductive nat : Type := | 0 : nat | S : nat -> nat.
Määritellään luonnollisten lukujen tyyppi: Inductive nat : Type := | O : nat | S : nat -> nat.