Section NormedZmoduleTheory.
Variable V : normedZmodType R.
Implicit Types (u v w : V).
Hint Resolve normr_real : core.
Arguments real_ler_normlP {x y}.
Definition real_lter_norml := (real_ler_norml, real_ltr_norml).
Arguments real_ltr_normlP {x y}.
Definition real_lter_normr := (real_ler_normr, real_ltr_normr).
(* lteif *)

Lemma real_leif_AGM2_scaled x y :
x \is real -> y \is real -> x * y *+ 4 <= (x + y) ^+ 2 ?= iff (x == y).