proposition: Theorem pPredMoreThanOne : (0 < pPred (vNum b))%Z.
proof: Proof. unfold pPred in |- *; apply Zlt_succ_pred; simpl in |- *. apply (vNumbMoreThanOne radix) with (precision := precision); auto with zarith. Qed.
imports: Reals ZArith List PeanoNat Psatz