From 8a0fc29222cd90a2c33014d4bed754241e8fdd59 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 26 Mar 2019 14:27:11 -0400 Subject: Fix issue with refolding in eapply in < 8.9 --- src/RewriterWf1.v | 1 + 1 file changed, 1 insertion(+) diff --git a/src/RewriterWf1.v b/src/RewriterWf1.v index 411287bcc..e22c8155b 100644 --- a/src/RewriterWf1.v +++ b/src/RewriterWf1.v @@ -2830,6 +2830,7 @@ Module Compilers. | [ |- List.In ?x ?seg ] => is_evar seg; unify seg (cons x nil); left end | constructor + | progress (cbv [wf_value] in *; cbn [wf_value'] in * ) | match goal with H : _ |- _ => eapply H; revgoals; clear H end ]. Qed. -- cgit v1.2.3