Fact ler_wpeexpz2l x (x1 : 1 <= x) :
{in >= 0 &, {homo (exprz x) : x y / x <= y}}.
Fact ler_wneexpz2l x (x1 : 1 <= x) :
{in <= 0 &, {homo (exprz x) : x y / x <= y}}.

Lemma ltr_nexpz2r n (hn : n < 0) :
{in > 0 & , {mono ((@exprz R)^~ n) : x y /~ x < y}}.