open expr tactic

example : true := by whnf (var 0) >> return ()

example : true := by whnf (app (var 0) (var 0)) >> return ()

example : true := by 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
