ea7c740ad4
This PR fixes module system visibiltity issues when trying to declare a public inductive inside a mutual block. Fixes #11115
18 lines
272 B
Text
18 lines
272 B
Text
module
|
|
|
|
/-! Used to crash in codegen -/
|
|
|
|
mutual
|
|
public inductive B where
|
|
| bar
|
|
end
|
|
|
|
/-! Used to declare a private ctor. -/
|
|
mutual
|
|
public inductive Term where
|
|
| A (args : List Term)
|
|
end
|
|
|
|
/-- info: constructor Term.A : List Term → Term -/
|
|
#guard_msgs in
|
|
#print Term.A
|