15 lines
384 B
Text
15 lines
384 B
Text
open expr tactic
|
|
|
|
example : true := by whnf (var 0) >> return ()
|
|
|
|
example : true := by whnf (app (var 0) (var 0)) >> return ()
|
|
|
|
example : true := by head_zeta (var 0) >> return ()
|
|
|
|
example : true := by unify (var 0) (var 0) >> return ()
|
|
|
|
example : true := by is_def_eq (var 0) (var 0) >> return ()
|
|
|
|
example foo trivial := by do
|
|
t ← infer_type (var 0),
|
|
to_expr ``(trivial) >>= apply
|