18 lines
257 B
Text
18 lines
257 B
Text
#lang lean4
|
|
import Lean
|
|
|
|
namespace Lean
|
|
|
|
def ex1 : CoreM Nat := do
|
|
let env ← getEnv
|
|
pure $ privateExt.getState env
|
|
|
|
#eval ex1
|
|
|
|
def ex2 : CoreM Nat := do
|
|
let env ← getEnv
|
|
pure $ { privateExt with idx := 3 }.getState env -- Error
|
|
|
|
-- #eval ex2
|
|
|
|
end Lean
|