proposition: Lemma exp_quo_ge1 r p q : (0 < q)%N -> (1 <= r) -> 1 <= exp_quo r p q.
proof: Proof. by move => Hq Hr; rewrite exprn_ege1 ?rootC_ge1 ?ler1q. Qed.
imports: mathcomp(all_ssreflect all_algebra all_field) extra_mathcomp posnum hanson_elem_arith