Module NZGcdProp
(Import A : NZOrdAxiomsSig')
(Import B : NZGcd' A)
(Import C : NZMulOrderProp A).
(** Results concerning divisibility*)
Instance divide_wd : Proper (eq==>eq==>iff) divide.

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