28 lines
682 B
Text
28 lines
682 B
Text
import Lean
|
|
|
|
open Lean
|
|
open Lean.Elab
|
|
open Lean.Elab.Term
|
|
|
|
set_option trace.Elab.debug true
|
|
|
|
def tst1 : TermElabM Unit := do
|
|
opt ← getOptions;
|
|
stx ← `(forall (a b : Nat), Nat);
|
|
dbgTrace "message 1"; -- This message goes direct to stdio. It will be displayed before trace messages.
|
|
e ← elabTermAndSynthesize stx none;
|
|
logDbgTrace (">>> " ++ e); -- display message when `trace.Elab.debug` is true
|
|
dbgTrace "message 2"
|
|
|
|
#eval tst1
|
|
|
|
def tst2 : TermElabM Unit := do
|
|
opt ← getOptions;
|
|
let a := mkTermId `a;
|
|
let b := mkTermId `b;
|
|
stx ← `((fun ($a : Type) (x : $a) => @id $a x) _ 1);
|
|
e ← elabTermAndSynthesize stx none;
|
|
logDbgTrace (">>> " ++ e);
|
|
throwErrorIfErrors
|
|
|
|
#eval tst2
|