(****************************** even/odd *********************************)

Inductive even (n : nat) : Prop :=
    even_intro : forall q : nat, n = 2 * q -> even n.(****************************** even/odd *********************************)

Inductive even (n : nat) : Prop :=
    even_intro : forall q : nat, n = 2 * q -> even n.Inductive odd (n : nat) : Prop :=
    odd_intro : forall q : nat, n = 2 * q + 1 -> odd n.Inductive odd (n : nat) : Prop :=
    odd_intro : forall q : nat, n = 2 * q + 1 -> odd n.

Lemma no_zero_div : forall n m : nat, 0 < n -> forall q : nat, n = m * q -> 0 < q.