mult2_even : forall n:nat, even (mult2 n).
sum_even :forall n p:nat, even n -> even p -> even (n + p). square_even : forall n:nat, even n -> even (n * n).