33 lines
714 B
Text
33 lines
714 B
Text
import Lean
|
||
|
||
private def a := 10
|
||
|
||
#check a
|
||
|
||
structure Name (x : String) where
|
||
private mk ::
|
||
val : String := x
|
||
deriving Repr
|
||
|
||
def n1 : Name "hello" := {}
|
||
|
||
def n2 : Name "hello" := ⟨"hello"⟩
|
||
|
||
def n3 : Name "hello" := Name.mk "hello"
|
||
|
||
open Lean in
|
||
#eval id (α := CoreM Unit) do
|
||
modifyEnv fun env => env.setMainModule `foo -- change module name to test `private`
|
||
|
||
open Lean in
|
||
#eval id (α := CoreM Unit) do
|
||
-- this implementation is no longer allowed because of a private constructor
|
||
modifyEnv fun env => { env with checked.header.mainModule := `foo }
|
||
|
||
#check a -- Error
|
||
|
||
def m1 : Name "hello" := {} -- Error
|
||
|
||
def m2 : Name "hello" := ⟨"hello"⟩ -- Error
|
||
|
||
def m3 : Name "hello" := Name.mk "hello"
|