Module Import Private_NZPow := Nop <+ NZPowProp A A B.
Ltac auto' := trivial; try rewrite <- neq_0_lt_0; auto using le_0_l.
Ltac wrap l := intros; apply l; auto'.
(** Monotonicity *)

Lemma odd_pow : forall a b, b~=0 -> odd (a^b) = odd a.