lean4-htt/tests/compiler/expr.lean
2019-07-17 10:46:35 -07:00

8 lines
193 B
Text

import init.lean.expr
open Lean
def main : IO UInt32 :=
let e := Expr.app (Expr.const `f []) (Expr.const `a []);
IO.println e.dbgToString *>
IO.println ("hash: " ++ toString e.hash) *>
pure 0