definition pnat.pnat : Type₁ :=
{n : ℕ | nat.gt n (nat.of_num 0)}
inductive prod : Type → Type → Type
constructors:
prod.mk : Π {A : Type} {B : Type}, A → B → A × B