diff options
| author | Gaëtan Gilbert | 2020-07-23 11:13:59 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-07-23 11:13:59 +0200 |
| commit | 58df19e952f23ce9376c67f21d09e515a861db0c (patch) | |
| tree | 8950a7d1a8049a78b00748fd074ab9c5a0c63ddd /test-suite | |
| parent | b8962b4d7d4c23c01b03713fcd9a0816edad3f40 (diff) | |
| parent | 675b23dcf824d8a851881171a5628b239aad2201 (diff) | |
Merge PR #12679: Remove redundant data from VM case switch.
Reviewed-by: SkySkimmer
Ack-by: silene
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/sprop.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/success/sprop.v b/test-suite/success/sprop.v index d3e2749088..3a6dfb1e11 100644 --- a/test-suite/success/sprop.v +++ b/test-suite/success/sprop.v @@ -171,6 +171,10 @@ End sFix. Fail Definition fix_relevance : _ -> nat := fun _ : iUnit => 0. +(* Check that VM/native properly keep the relevance of the predicate in the case info + (bad-relevance warning as error otherwise) *) +Definition vm_rebuild_case := Eval vm_compute in eq_sind. + Require Import ssreflect. Goal forall T : SProp, T -> True. |