lean4-htt/tests/lean/run/inliner_loop.lean
2020-09-11 15:31:14 -07:00

10 lines
152 B
Text

new_frontend
unsafe inductive t
| mk : (t → t) → t
unsafe def loop' : t → t
| t.mk f => f (t.mk f)
unsafe def loop : t :=
loop' (t.mk loop')