diff options
| author | Pierre-Marie Pédrot | 2018-12-18 20:49:04 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-18 20:49:04 +0100 |
| commit | 2cad4dec40cef2aecb19c5a0e5a1368392be8d88 (patch) | |
| tree | 0264db7cc4d8d6e8887782895c094ab9b50b3b35 /test-suite | |
| parent | 806e97240806dfc9cee50ba6eb33b6a8bd015a85 (diff) | |
| parent | bdd943063ccd1309654b545819964c7c20752314 (diff) | |
Merge PR #9223: Fix universe restriction in delayed mode.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/stm/delayed_restrict_univs_9093.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/stm/delayed_restrict_univs_9093.v b/test-suite/stm/delayed_restrict_univs_9093.v new file mode 100644 index 0000000000..6ca36da4b0 --- /dev/null +++ b/test-suite/stm/delayed_restrict_univs_9093.v @@ -0,0 +1,10 @@ +(* -*- coq-prog-args: ("-async-proofs" "on"); -*- *) + +Unset Universe Polymorphism. + +Ltac exact0 := let x := constr:(Type) in exact 0. + +Lemma lemma_restrict_abstract@{} : (nat * nat)%type. +Proof. split;[exact 0|abstract exact0]. Qed. +(* Debug: 10237:proofworker:0:0 STM: sending back a fat state +Error: Universe {polymorphism.1} is unbound. *) |