proposition: Theorem vNumbMoreThanOne : (1 < Zpos (vNum b))%Z.
proof: Proof. replace 1%Z with (Z_of_nat 1); [ idtac | simpl in |- *; auto ]. rewrite <- (Zpower_nat_O radix); rewrite pGivesBound; auto with zarith. apply Zpower_nat_monotone_lt; lia. Qed.
imports: Reals ZArith List PeanoNat Psatz