fa1da03d50
This PR updates the styling and wording of error messages produced in inductive type declarations and anonymous constructor notation, including hints for inferable constructor visibility updates.
41 lines
884 B
Text
41 lines
884 B
Text
class Foo
|
||
|
||
mutual
|
||
inductive Bar [Foo] where
|
||
inductive Baz [Foo] where -- Should not fail
|
||
end
|
||
|
||
/--
|
||
error: Invalid mutually inductive types: Parameter names `x` and `inst✝` differ but were expected to match
|
||
-/
|
||
#guard_msgs in
|
||
mutual
|
||
inductive Bar1 [Foo] where
|
||
inductive Baz1 [x : Foo] where -- Should fail
|
||
end
|
||
|
||
|
||
/--
|
||
error: Invalid mutually inductive types: Parameter names `β` and `α` differ but were expected to match
|
||
-/
|
||
#guard_msgs in
|
||
mutual
|
||
inductive Boo (α : Type u) where
|
||
inductive Bla (β : Type u) where
|
||
end
|
||
|
||
macro "gen_mutual" : command =>
|
||
`(mutual
|
||
inductive Boo (α : Type u) where
|
||
inductive Bla (β : Type u) where
|
||
end)
|
||
|
||
/--
|
||
error: unknown universe level 'u✝'
|
||
---
|
||
error: unknown universe level 'u✝'
|
||
---
|
||
error: Invalid mutually inductive types: Parameter names `β✝` and `α✝` differ but were expected to match
|
||
-/
|
||
#guard_msgs in
|
||
gen_mutual
|