aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 6 Pull Requests 2 Packages Projects Releases 1 Wiki Activity

feat: Remove stem deduce 

Some private subproofs are not shown in the catalog and this breaks
dependencies
This commit is contained in:
Leni Aniva 2023-12-04 16:40:15 -08:00
parent 967e3dfb4f
commit a454aaf1d4
Signed by: aniva
GPG Key ID: 4D9B1C8D10EA4C50
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Pantograph/Symbol.lean
View File

@ -6,11 +6,7 @@ def is_symbol_unsafe_or_internal (n: Lean.Name) (info: Lean.ConstantInfo): Bool
let nameDeduce: Bool := match n.getRoot with let nameDeduce: Bool := match n.getRoot with
| .str _ name => name.startsWith "_" ∨ name == "Lean" | .str _ name => name.startsWith "_" ∨ name == "Lean"
| _ => true | _ => true
let stemDeduce: Bool := match n with nameDeduce ∨ info.isUnsafe
| .anonymous => true
| .str _ name => name.startsWith "_"
| .num _ _ => true
nameDeduce ∨ stemDeduce ∨ info.isUnsafe
def to_compact_symbol_name (n: Lean.Name) (info: Lean.ConstantInfo): String := def to_compact_symbol_name (n: Lean.Name) (info: Lean.ConstantInfo): String :=
let pref := match info with let pref := match info with