test: remove printDecls test (#13677)

This is a test from the very beginnings of the elab framework, which has
since become the second-slowest test.
This commit is contained in:
Sebastian Ullrich 2026-05-07 13:18:33 +02:00 committed by GitHub
parent c17c4598bc
commit 443615f27e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 0 additions and 26 deletions

View file

@ -1,26 +0,0 @@
import Lean
open Lean
open Lean.Meta
-- Return true if `declName` should be ignored
def shouldIgnore (declName : Name) : Bool :=
declName.isInternal
|| match declName with
| .str _ s => "match_".isPrefixOf s || "proof_".isPrefixOf s || "eq_".isPrefixOf s
| _ => true
-- Print declarations that have the given prefix.
def printDecls (pre : Name) : MetaM Unit := do
let cs := (← getEnv).constants
cs.forM fun declName info => do
if pre.isPrefixOf declName && !shouldIgnore declName then
if let some docString ← findDocString? (← getEnv) declName then
IO.println s!"/-- {docString} -/\n{declName} : {← ppExpr info.type}"
else
IO.println s!"{declName} : {← ppExpr info.type}"
#eval printDecls `Array
#eval printDecls `List
#eval printDecls `Bool
#eval printDecls `Lean.Elab