(** ** Qpower and inject_Z *)

(* Specifications: *)
Lemma Zpower_Qpower : forall (a n:Z), (0<=n)%Z -> inject_Z (a^n) == (inject_Z a)^n.
(** ** Square *)
Lemma Qsqr_nonneg : forall a, 0 <= a^2.
(** ** Power of 2 positive upper bound *)
Lemma Qarchimedean_power2_pos : forall q : Q,
{p : positive | (q < Z.pos (2^p) # 1)%Q}.