Commit 5fabef11 authored by Björn Brandenburg's avatar Björn Brandenburg

add [n + k <= m => n <= m] helper lemma

parent d6cdcfe1
......@@ -118,6 +118,17 @@ Section NatLemmas.
intros* AC. ssromega.
Qed.
(* We can drop additive terms on the lesser side of an inequality. *)
Lemma leq_addk:
forall m n k,
n + k <= m ->
n <= m.
Proof.
move=> m n p.
apply leq_trans.
by apply leq_addr.
Qed.
End NatLemmas.
Section Interval.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment