Inductive even : nat -> Prop := even0 : even 0 | even_S : forall p, even p -> even (S (S p)). Hint Constructors even.