lean4-htt/tests/pkg/prv/Prv.lean
Sebastian Ullrich ad5a746cdd
fix: realizeConst fixes (#7272)
Emerged and fixed while adding more `realizeConst` callers
2025-02-28 14:59:13 +00:00

31 lines
848 B
Text

import Prv.Foo
#check { name := "leo", val := 15 : Foo }
#check { name := "leo", val := 15 : Foo }.name
/-- error: field 'val' from structure 'Foo' is private -/
#guard_msgs in
#check { name := "leo", val := 15 : Foo }.val
/-- error: unknown identifier 'a' -/
#guard_msgs in
#check a
/--
error: overloaded, errors ⏎
failed to synthesize
EmptyCollection (Name "hello")
Additional diagnostic information may be available using the `set_option diagnostics true` command.
invalid {...} notation, constructor for `Name` is marked as private
-/
#guard_msgs in
def m1 : Name "hello" := {}
/-- error: invalid ⟨...⟩ notation, constructor for `Name` is marked as private -/
#guard_msgs in
def m2 : Name "hello" := ⟨"hello"⟩
/-- error: unknown constant 'Name.mk' -/
#guard_msgs in
def m3 : Name "hello" := Name.mk "hello"