From abdd602e89c4d6f9073baab523a880b473f241af Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 17 Jul 2018 16:50:05 -0400 Subject: Add minor lemmas to util --- src/Util/NatUtil.v | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Util/NatUtil.v') diff --git a/src/Util/NatUtil.v b/src/Util/NatUtil.v index 087f0a6c7..08fd8a92a 100644 --- a/src/Util/NatUtil.v +++ b/src/Util/NatUtil.v @@ -392,3 +392,6 @@ Proof. end; rewrite H'' in *; assumption. } } Qed. + +Lemma max_0_iff a b : Nat.max a b = 0%nat <-> (a = 0%nat /\ b = 0%nat). +Proof. omega **. Qed. -- cgit v1.2.3