opaque Lean.protectedExt : Lean.TagDeclarationExtension

@[export lean_add_protected]

def Lean.addProtected (env : Lean.Environment) (n : Lake.Name) : Lean.Environment

@[export lean_is_protected]

def Lean.isProtected (env : Lean.Environment) (n : Lake.Name) : Bool

Private name support.

Suppose the user marks as declaration n as private. Then, we create the name: _private..0 ++ n. We say _private..0 is the "private prefix"

We assume that n is a valid user name and does not contain Name.num constructors. Thus, we can easily convert from private internal name to the user given name.

def Lean.privateHeader : Lake.Name

def Lean.mkPrivateName (env : Lean.Environment) (n : Lake.Name) : Lake.Name

def Lean.isPrivateName : Lake.Name → Bool

Equations

• Lean.isPrivateName (Lean.Name.str p str) = (Lean.Name.str p str == Lean.privateHeader || Lean.isPrivateName p)
• Lean.isPrivateName (Lean.Name.num p i) = Lean.isPrivateName p
• Lean.isPrivateName x = false

@[export lean_is_private_name]

def Lean.isPrivateNameExport (n : Lake.Name) : Bool

@[export lean_private_to_user_name]

def Lean.privateToUserName? (n : Lake.Name) : Option Lake.Name

def Lean.isPrivateNameFromImportedModule (env : Lean.Environment) (n : Lake.Name) : Bool

@[export lean_private_prefix]

def Lean.privatePrefix? (n : Lake.Name) : Option Lake.Name