(************************************)
(* exact quotient ******************)

(* Specifications: *)
Lemma quotient_positive : forall q n n0 : nat, n = q * n0 -> 0 < n -> 0 < q.
(***************************************)
Lemma quotient_gt_one : forall q n n0 : nat, n0 < n -> n = q * n0 -> one < q.