16 lines
468 B
Text
16 lines
468 B
Text
import Lean
|
|
|
|
@[reducible] def foo (x : Nat) := x + 1
|
|
@[reducible] def bla (x y : Nat) := foo (foo x) + foo (foo x)
|
|
@[reducible] def boo (x y : Nat) := foo (bla (foo x) (foo y) * bla (foo y) (foo x) * bla (foo y) (foo x))
|
|
|
|
open Lean
|
|
open Lean.Meta
|
|
def tst : MetaM Unit := do
|
|
let c ← getConstInfo `boo
|
|
lambdaTelescope c.value! fun xs b => do
|
|
withReducibleAndInstances do
|
|
trace[Meta.debug]! "b: {← reduce b}"
|
|
|
|
set_option trace.Meta.debug true
|
|
#eval tst
|