This PR changes the output universe of the generated `below` implementation for non-reflexive inductive types to match the implementation for reflexive inductive types in #7639. This fixes the `below`/`brecOn` implementations for certain nested inductive types, as reported in https://leanprover.zulipchat.com/#narrow/channel/270676-lean4/topic/Universes/near/525030149.
7 lines
284 B
Text
7 lines
284 B
Text
/-!
|
|
Tests a bug in the generated below/brecOn implementations for nested inductive types
|
|
Reported at https://leanprover.zulipchat.com/#narrow/channel/270676-lean4/topic/Universes/near/525030149
|
|
-/
|
|
|
|
inductive TCTree : Type (u + 1)
|
|
| node : (Σ (I : Type u), I → TCTree) → TCTree
|