我无法解决“宇宙无界”的错误

Question

我正在用Coq开发一个用于Googology的库。我遇到了一个问题。

Set Universe Polymorphism.
Set Polymorphic Inductive Cumulativity.

Inductive Sum@{i j} (A : Type@{i}) (B : Type@{j}) : Type@{max(i,j)}
  := left : A -> Sum A B | right : B -> Sum A B.

Definition Foo@{i j k l} (A : Type@{i}) (B : Type@{j}) (C : Type@{k}) : Type@{l}
  := Sum@{i _} A (Sum@{j k} B C).

我希望_充满max(j,k)。但是，我遇到了一个错误：

Universes {***} are unbounded.

有没有一种方法可以很好地表达这些约束？

Answer 1

我觉得添加满足ij和i <= ij的{​​{1}}是有意义的。我应该多想些。