End fast_pow_pos.
Section faster_div.

(* Specifications: *)
Lemma Zdiv_eucl_unique :
forall a b,
Zdiv_eucl a b = (Zdiv a b, Zmod a b).
Lemma Zdiv_eucl_unique :
forall a b,
Zdiv_eucl a b = (Zdiv a b, Zmod a b).