End IdomainUnit.
Module Field.
Include IdomainDefs.
Export IdomainDefs.
Include CommonIdomain.
Section FieldDivision.
Variable F : fieldType.
Implicit Type p q r d : {poly F}.

Lemma Bezout_eq1_coprimepP : forall p q,
reflect (exists u, u.1 * p + u.2 * q = 1) (coprimep p q).