(****************************************************)

(* Specifications: *)
Lemma lt_q_qbr' : forall b q r : nat, 0 < q -> one < b -> q < q * b + r.
Hint Resolve lt_q_qbr': arith.
Lemma le_q_qbr : forall b q r : nat, 0 < b -> q <= q * b + r.
Hint Resolve le_q_qbr: arith.