Section NormedZmoduleTheory.
Variable V : normedZmodType R.
Implicit Types (u v w : V).
Hint Resolve normr_real : core.
Arguments real_ler_normlP {x y}.

Lemma real_eqr_norml x y :
x \is real -> (`|x| == y) = ((x == y) || (x == -y)) && (0 <= y).