(* ArithCompl.v *)
(**********************************)
(* Some complements of arithmetic *)
(**********************************)
Require Export Wf_nat.
Require Export ZArith.
Require Export Znumtheory.
Require Export Reals.
Open Scope Z_scope.
Unset Standard Proposition Elimination Names.
(***************)
(* Regarding Z *)
(***************)
Definition is_sqr (n : Z) : Prop :=
0 <= n /\ exists i : Z, i * i = n /\ 0 <= i.

Lemma Zmult_neq_0 : forall a b : Z, a * b <> 0 -> a <> 0 /\ b <> 0.
Definition both_odd (x y : Z) := Zodd x /\ Zodd y.