31 lines
793 B
Text
31 lines
793 B
Text
import Lean
|
||
new_frontend
|
||
open Lean
|
||
|
||
unsafe def test {α : Type} [HasToString α] [ToExpr α] [HasBeq α] (a : α) : CoreM Unit := do
|
||
let env ← getEnv;
|
||
let auxName := `_toExpr._test;
|
||
let decl := Declaration.defnDecl {
|
||
name := auxName,
|
||
lparams := [],
|
||
value := toExpr a,
|
||
type := toTypeExpr α,
|
||
hints := ReducibilityHints.abbrev,
|
||
isUnsafe := false
|
||
};
|
||
IO.println (toExpr a);
|
||
(match env.addAndCompile {} decl with
|
||
| Except.error _ => throwError "addDecl failed"
|
||
| Except.ok env =>
|
||
match env.evalConst α auxName with
|
||
| Except.error ex => throwError ex
|
||
| Except.ok b => do
|
||
IO.println b;
|
||
unless (a == b) $
|
||
throwError "toExpr failed";
|
||
pure ())
|
||
|
||
#eval test #[(1, 2), (3, 4)]
|
||
#eval test ['a', 'b', 'c']
|
||
#eval test ("hello", true)
|
||
#eval test ((), 10)
|