diff options
author | Jason Gross <jgross@mit.edu> | 2018-10-11 14:23:35 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2018-10-11 14:23:35 -0400 |
commit | f22454c7a80b174a5c0cac1f3648727df054f9c9 (patch) | |
tree | abb61baa2207bcb3e4921fd4fc7de004aec48056 /src/Util/ZRange/Operations.v | |
parent | d416929712a373730e61348f0d2056130eb4078c (diff) |
Add some zrange lemmas
Diffstat (limited to 'src/Util/ZRange/Operations.v')
-rw-r--r-- | src/Util/ZRange/Operations.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Util/ZRange/Operations.v b/src/Util/ZRange/Operations.v index c6f209e16..32924e6dc 100644 --- a/src/Util/ZRange/Operations.v +++ b/src/Util/ZRange/Operations.v @@ -31,6 +31,8 @@ Module ZRange. Lemma normalize'_eq : normalize = normalize'. Proof. reflexivity. Defined. + Definition size (v : zrange) : Z := upper (normalize v) - lower (normalize v). + Definition abs (v : zrange) : zrange := let (l, u) := eta v in r[ 0 ~> Z.max (Z.abs l) (Z.abs u) ]. |