diff options
author | Jason Gross <jgross@mit.edu> | 2017-06-15 15:55:20 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-06-15 15:55:20 -0400 |
commit | 8ef41db42e765831813ad6ac817ac83a2379089d (patch) | |
tree | b60f290e3b2ec7e1871f1bc7d8b1e38ee6fdf65c /src/Util/ZUtil/Z2Nat.v | |
parent | 8202d9977a1561b1e0e7714e99a7798c579a3a67 (diff) |
Add ZUtil.Z2Nat
Diffstat (limited to 'src/Util/ZUtil/Z2Nat.v')
-rw-r--r-- | src/Util/ZUtil/Z2Nat.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Util/ZUtil/Z2Nat.v b/src/Util/ZUtil/Z2Nat.v new file mode 100644 index 000000000..d6dd49a41 --- /dev/null +++ b/src/Util/ZUtil/Z2Nat.v @@ -0,0 +1,9 @@ +Require Import Coq.ZArith.ZArith Coq.micromega.Lia. + +Local Open Scope Z_scope. +Module Z2Nat. + Definition inj_nonpos n : n <= 0 -> Z.to_nat n = 0%nat. + Proof. + destruct n; try reflexivity; lia. + Qed. +End Z2Nat. |