proposition: Lemma lt_add_r p q : p < p+q.
proof: Proof. induction q as [|q] using peano_ind. - rewrite add_1_r. apply lt_succ_diag_r. - apply lt_trans with (p+q); auto. apply add_lt_mono_l, lt_succ_diag_r. Qed.
imports: BinNums Eqdep_dec EqdepFacts RelationClasses Morphisms Setoid Equalities Orders OrdersFacts GenericMinMax PeanoNat BinPosDef