lean4-htt/tests/lean/run/evalconst.lean
Leonardo de Moura 28a4859832 feat: expose evalConst
@Kha Could you please check `lean_eval_const`?
2019-12-30 11:41:36 -08:00

11 lines
153 B
Text

import Init.Lean
open Lean
def x := 10
unsafe def tst : MetaIO Unit := do
env ← MetaIO.getEnv;
IO.println $ env.evalConst Nat `x;
pure ()
#eval tst