proposition: Theorem p_p1: Zpos p + Zpos p1 = Zpos (xO w_digits).
proof: Proof. unfold p1. rewrite Zpos_minus. rewrite Zmax_right. auto with zarith. rewrite Zpos_xO. assert (0 < Zpos w_digits); auto with zarith. Qed.
imports: Bignums(DoubleBase DoubleSub DoubleMul DoubleSqrt DoubleLift DoubleDivn1 DoubleDiv) Bignums(DoubleCyclic BigN) CyclicAxioms Cyclic63 ZArith ZCAux