diff options
author | Jason Gross <jgross@mit.edu> | 2016-11-08 20:07:49 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2016-11-08 20:07:49 -0500 |
commit | b915f9e262dd9d34100cd82b3b5df18d41c5e468 (patch) | |
tree | e0cfd9cb6c81e8d006d6b8ac2f74bd68292afd43 | |
parent | 09ba899b557b734749fa8247952ffcb7209e44f6 (diff) |
Fix for Coq 8.4
-rw-r--r-- | src/Reflection/Z/Interpretations.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Reflection/Z/Interpretations.v b/src/Reflection/Z/Interpretations.v index 26ce02e03..0da74da09 100644 --- a/src/Reflection/Z/Interpretations.v +++ b/src/Reflection/Z/Interpretations.v @@ -406,9 +406,9 @@ Module ZBounds. : Tuple.tuple t (S pred_n) := Tuple.push_option match int_width, Tuple.lift_option modulus, Tuple.lift_option value with - | Some int_width, Some modulus, Some value - => if check_conditional_subtract_bounds pred_n int_width modulus value - then Some (conditional_subtract' pred_n int_width modulus value) + | Some int_width, Some modulus, Some value' + => if check_conditional_subtract_bounds pred_n int_width modulus value' + then Some (conditional_subtract' pred_n int_width modulus value') else None | _, _, _ => None end. |