diff options
| author |  Jason Gross <jagro@google.com> | 2018-08-02 16:54:12 -0400 |
|---|---|---|
| committer | Jason Gross <jagro@google.com> | 2018-08-02 16:54:12 -0400 |
| commit | 3a81efa9fd868310b209533fdb77b0d1b295f3a9 (patch) | |
| tree | 7a76a4d45698aca16115df1dd662517dadfea239 /src | |
| parent | 3b910ee76354cd9aadb8cf53f0e5c490ca73d1ec (diff) | |
Make wf_safe_t a bit stronger
Diffstat (limited to 'src')
| -rw-r--r-- | src/Experiments/NewPipeline/LanguageWf.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Experiments/NewPipeline/LanguageWf.v b/src/Experiments/NewPipeline/LanguageWf.v index 009396770..84aba44e7 100644 --- a/src/Experiments/NewPipeline/LanguageWf.v +++ b/src/Experiments/NewPipeline/LanguageWf.v @@ -555,6 +555,7 @@ Hint Extern 10 (Proper ?R ?x) => simple eapply (@PER_valid_r _ R); [ | | solve [ | progress inversion_prod | progress destruct_head'_sig | progress destruct_head'_and + | progress destruct_head' False | progress cbn [List.In eq_rect] in * | match goal with | [ |- expr.wf _ _ _ ] => constructor |