Module Type NZGcd (A : NZOrdAxiomsSig) := Gcd A <+ NZGcdSpec A.Module Type NZGcd' (A : NZOrdAxiomsSig) :=
 Gcd A <+ NZGcdSpec A <+ DivideNotation A.(** Results concerning divisibility*)

#[global]
Instance divide_wd : Proper (eq==>eq==>iff) divide.

Lemma divide_1_r_nonneg : forall n, 0<=n -> (n | 1) -> n==1.