diff options
-rw-r--r-- | src/Util/ZRange.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Util/ZRange.v b/src/Util/ZRange.v index 2c286aa9e..489d2c32f 100644 --- a/src/Util/ZRange.v +++ b/src/Util/ZRange.v @@ -17,6 +17,12 @@ Ltac inversion_zrange := | [ H : _ = _ :> zrange |- _ ] => pose proof (f_equal lower H); pose proof (f_equal upper H); clear H; cbv beta iota in * + | [ H : Build_zrange _ _ = _ |- _ ] + => pose proof (f_equal lower H); pose proof (f_equal upper H); clear H; + cbv beta iota in * + | [ H : _ = Build_zrange _ _ |- _ ] + => pose proof (f_equal lower H); pose proof (f_equal upper H); clear H; + cbv beta iota in * end. (** All of the boundedness properties take an optional bitwidth, and |