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 pexprz_eq1 x n (x0 : 0 <= x) : (x ^ n == 1) = ((n == 0) || (x == 1)).