feat: Expose _private names
This commit is contained in:
parent
f72a82a4c9
commit
c80d7567b6
|
@ -4,7 +4,7 @@ namespace Pantograph
|
|||
|
||||
def is_symbol_unsafe_or_internal (n: Lean.Name) (info: Lean.ConstantInfo): Bool :=
|
||||
let nameDeduce: Bool := match n.getRoot with
|
||||
| .str _ name => name.startsWith "_" ∨ name == "Lean"
|
||||
| .str _ name => name == "Lean"
|
||||
| _ => true
|
||||
nameDeduce ∨ info.isUnsafe
|
||||
|
||||
|
|
Loading…
Reference in New Issue