feat: Remove stem deduce
Some private subproofs are not shown in the catalog and this breaks dependencies
This commit is contained in:
parent
860d2e239a
commit
f72a82a4c9
|
@ -6,11 +6,7 @@ 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"
|
||||
| _ => true
|
||||
let stemDeduce: Bool := match n with
|
||||
| .anonymous => true
|
||||
| .str _ name => name.startsWith "_"
|
||||
| .num _ _ => true
|
||||
nameDeduce ∨ stemDeduce ∨ info.isUnsafe
|
||||
nameDeduce ∨ info.isUnsafe
|
||||
|
||||
def to_compact_symbol_name (n: Lean.Name) (info: Lean.ConstantInfo): String :=
|
||||
let pref := match info with
|
||||
|
|
Loading…
Reference in New Issue