diff options
| author | Pierre-Marie Pédrot | 2019-06-25 13:49:18 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-25 13:49:18 +0200 |
| commit | 56488b97395ddf9c9b1b3737a15fcaabf3f8d50a (patch) | |
| tree | 8a0c50afe918418e4a6d15968f017a9c7130c343 /test-suite | |
| parent | 0c29a6dc3962cf3e6073d9e72a07bf5c279ba0f0 (diff) | |
| parent | d0e258175280152e504a296a05ecbd1920bb17c9 (diff) | |
Merge PR #10162: Fix #10161: occur check when defining an algebraic universe.
Ack-by: SkySkimmer
Ack-by: mattam82
Reviewed-by: ppedrot
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/bug_10161.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_10161.v b/test-suite/bugs/closed/bug_10161.v new file mode 100644 index 0000000000..3d262b89fe --- /dev/null +++ b/test-suite/bugs/closed/bug_10161.v @@ -0,0 +1,8 @@ +Inductive SwitchT (A : Type) : Type := +| switchT : forall T, SwitchT T -> SwitchT A. + +Set Printing Universes. + +Fail Inductive UseSwitchT := +| useSwitchT : SwitchT UseSwitchT -> UseSwitchT. +(* used to stack overflow, should be univ inconsistency cannot satisfy u = u+1 *) |