diff options
author | 2015-12-03 15:08:51 +0100 | |
---|---|---|
committer | 2015-12-03 15:13:02 +0100 | |
commit | 06a30c78c6148e8286c0904368bcc0f7c5af2c81 (patch) | |
tree | 8581b27825cd3a6b5e1ced6061004f9b9ddd0f11 /test-suite/bugs/closed/3314.v | |
parent | f5a752261f210e9c5ecbbbf54886904f0856975a (diff) | |
parent | 6316e8b380a9942cd587f250eb4a69668e52019e (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'test-suite/bugs/closed/3314.v')
-rw-r--r-- | test-suite/bugs/closed/3314.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/bugs/closed/3314.v b/test-suite/bugs/closed/3314.v index fb3791af5..a5782298c 100644 --- a/test-suite/bugs/closed/3314.v +++ b/test-suite/bugs/closed/3314.v @@ -1,9 +1,9 @@ Require Import TestSuite.admit. Set Universe Polymorphism. Definition Lift -: $(let U1 := constr:(Type) in +: ltac:(let U1 := constr:(Type) in let U0 := constr:(Type : U1) in - exact (U0 -> U1))$ + exact (U0 -> U1)) := fun T => T. Fail Check nat:Prop. (* The command has indeed failed with message: |