proposition: Theorem maxDivUnique : forall (v : Z) (p : nat), p = maxDiv v (S p) -> Zdivides v (Zpower_nat radix p) /\ ~ Zdivides v (Zpower_nat radix (S p)).
proof: Proof. intros v p H'; split. rewrite H'. apply maxDivCorrect; auto. red in |- *; intros H'0; generalize H'; clear H'. simpl in |- *. case (ZdividesP v (radix * Zpower_nat radix p)); simpl in |- *; auto. intros H' H'1; contradict H'1; auto with zarith. Qed.
imports: Reals ZArith List PeanoNat Psatz