Module Type NZDivProp
(Import A : NZOrdAxiomsSig')
(Import B : NZDiv' A)
(Import C : NZMulOrderProp A).
(** Uniqueness theorems *)
(** A division by itself returns 1 *)
(** A division of a small number by a bigger one yields zero. *)
(** Same situation, in term of modulo: *)
(** * Basic values of divisions and modulo. *)
(** * Order results about mod and div *)
(** A modulo cannot grow beyond its starting point. *)
(* Division of positive numbers is positive. *)
(** As soon as the divisor is strictly greater than 1, the division is strictly decreasing. *)
(** [le] is compatible with a positive division. *)
(** The following two properties could be used as specification of div *)
(** The previous inequality is exact iff the modulo is zero. *)
(** Some additional inequalities about div. *)
(** A division respects opposite monotonicity for the divisor *)
(** * Relations between usual operations and mod and div *)
(** Cancellations. *)
(** Operations modulo. *)

Lemma mul_mod_idemp_l : forall a b n, 0<=a -> 0<=b -> 0<n ->
((a mod n)*b) mod n == (a*b) mod n.