intros v p; case p; simpl in |- *; auto.
intros H'; case H'.
apply Zdivides1.
intros n H'; case (ZdividesP v (radix * Zpower_nat radix n)); auto.
intros H'0; case H'; auto.
intros H'0; generalize (maxDivLess v n); auto with arith.
Qed.

(* Specifications: *)
Theorem maxDivCorrect :
forall (v : Z) (p : nat), Zdivides v (Zpower_nat radix (maxDiv v p)).