From 0bbbdfede48aed7a74ac2fb95440256ed60fb6e8 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 1 Feb 2019 18:17:11 -0500 Subject: Add support for reifying `zrange` and `option` This is needed to reify statements for the rewriter. --- src/RewriterWf1.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/RewriterWf1.v') 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 -- cgit v1.2.3