From 3a81efa9fd868310b209533fdb77b0d1b295f3a9 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 2 Aug 2018 16:54:12 -0400 Subject: Make wf_safe_t a bit stronger --- src/Experiments/NewPipeline/LanguageWf.v | 1 + 1 file changed, 1 insertion(+) (limited to 'src') 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 -- cgit v1.2.3