diff options
author | Jason Gross <jgross@mit.edu> | 2019-02-01 18:17:11 -0500 |
---|---|---|
committer | Jason Gross <jasongross9@gmail.com> | 2019-02-18 22:52:44 -0500 |
commit | 0bbbdfede48aed7a74ac2fb95440256ed60fb6e8 (patch) | |
tree | 09ae7896243a599ebd99224a00dcc1065869933b /src/RewriterWf1.v | |
parent | a7bc3fde287c451d2b0e77602cd9fab560d62a43 (diff) |
Add support for reifying `zrange` and `option`
This is needed to reify statements for the rewriter.
Diffstat (limited to 'src/RewriterWf1.v')
-rw-r--r-- | src/RewriterWf1.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/RewriterWf1.v b/src/RewriterWf1.v index f425a769b..0ec6396f2 100644 --- a/src/RewriterWf1.v +++ b/src/RewriterWf1.v @@ -71,6 +71,7 @@ Module Compilers. | progress intros | reflexivity | apply (f_equal base.type.list) + | apply (f_equal base.type.option) | apply (f_equal2 base.type.prod) | break_innermost_match_step | break_innermost_match_hyps_step @@ -126,6 +127,7 @@ Module Compilers. | [ |- iff _ _ ] => split | [ H : base.type.prod _ _ = base.type.prod _ _ |- _ ] => inversion H; clear H | [ H : base.type.list _ = base.type.list _ |- _ ] => inversion H; clear H + | [ H : base.type.option _ = base.type.option _ |- _ ] => inversion H; clear H | [ H : Some _ = _ |- _ ] => symmetry in H | [ H : None = _ |- _ ] => symmetry in H | [ H : ?x = Some _ |- context[?x] ] => rewrite H |