diff options
| author |  Jason Gross <jgross@mit.edu> | 2019-03-26 14:27:11 -0400 |
|---|---|---|
| committer |  Jason Gross <jasongross9@gmail.com> | 2019-03-31 09:36:16 -0400 |
| commit | 8a0fc29222cd90a2c33014d4bed754241e8fdd59 (patch) | |
| tree | 4c684b01b1f7ef2638fc6f25f1a235a07acd90a2 | |
| parent | 339ee4ec95624751f84997064a6a985478ca5645 (diff) | |
Fix issue with refolding in eapply in < 8.9
| -rw-r--r-- | src/RewriterWf1.v | 1 |
1 files changed, 1 insertions, 0 deletions
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. |