98ee789990
right now, in order to find out how many auxilary datatype are in a
mutual group of inductive with nested data type, one has to jump
through hoops like this:
```
private def numNestedInducts (indName : Name) : MetaM Nat := do
let .inductInfo indVal ← getConstInfo indName | panic! "{indName} is an inductive"
let .recInfo recVal ← getConstInfo (mkRecName indName) | panic! "{indName} has a recursor"
return recVal.numMotives - indVal.all.lengt
```
The `InductiveVal` data structure already has `.isNested : Bool`, so it
seems to be a natural extension to beef that up to `.numNested: Nat`.
This touched kernel code.
48 lines
990 B
Text
48 lines
990 B
Text
import Lean.Elab.Command
|
|
|
|
inductive T1 where | mk : T1 → T1
|
|
|
|
/-- info: 0 -/
|
|
#guard_msgs in
|
|
run_meta
|
|
let indInfo ← Lean.getConstInfoInduct ``T1
|
|
Lean.logInfo m!"{indInfo.numNested}"
|
|
|
|
|
|
inductive T2 where | mk : List T2 → T2
|
|
|
|
/-- info: 1 -/
|
|
#guard_msgs in
|
|
run_meta
|
|
let indInfo ← Lean.getConstInfoInduct ``T2
|
|
Lean.logInfo m!"{indInfo.numNested}"
|
|
|
|
|
|
inductive T3 where | mk : List T3 → List T3 → T3
|
|
|
|
/-- info: 1 -/
|
|
#guard_msgs in
|
|
run_meta
|
|
let indInfo ← Lean.getConstInfoInduct ``T3
|
|
Lean.logInfo m!"{indInfo.numNested}"
|
|
|
|
|
|
inductive T4 where | mk : List T4 → List (List T4) → T4
|
|
|
|
/-- info: 2 -/
|
|
#guard_msgs in
|
|
run_meta
|
|
let indInfo ← Lean.getConstInfoInduct ``T4
|
|
Lean.logInfo m!"{indInfo.numNested}"
|
|
|
|
|
|
mutual
|
|
inductive T5 where | mk : List T5b → List (List T5b) → T5
|
|
inductive T5b where | mk : List T5 → List (List T5) → T5b
|
|
end
|
|
|
|
/-- info: 4 -/
|
|
#guard_msgs in
|
|
run_meta
|
|
let indInfo ← Lean.getConstInfoInduct ``T5b
|
|
Lean.logInfo m!"{indInfo.numNested}"
|