29 lines
486 B
Text
29 lines
486 B
Text
import Lean
|
|
set_option trace.Meta.debug true
|
|
class W where
|
|
/-- w -/
|
|
w : Unit
|
|
|
|
class X extends W where
|
|
/-- x -/
|
|
x : Unit
|
|
|
|
class Y extends W where
|
|
/-- y -/
|
|
y : Unit
|
|
|
|
class Y' extends Y where
|
|
/-- h -/
|
|
h : Uint
|
|
|
|
class Z extends X, Y'
|
|
|
|
open Lean
|
|
def test (declName : Name) : CoreM Unit := do
|
|
let some docstr ← findDocString? (← getEnv) declName | throwError "docstring not found"
|
|
IO.println docstr
|
|
|
|
#eval test ``W.w
|
|
#eval test ``X.x
|
|
#eval test ``Z.y
|
|
#eval test ``Z.h
|