This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/03-Typing/30-anonymous-third-order.bad.typing.hopix.human-readable

5 lines
205 B
Text
Raw Permalink Normal View History

2023-11-15 19:08:33 +01:00
fun : [`a, `b] ((`a -> `b) -> (`a -> `b)) -> `a -> `b -> `b
fix0 (f : (`a -> `b) -> (`a -> `b)) =
(\(a : `b) ->
(\(b : `a) -> f (\(x : `a) -> b : `a -> `b) a : `b -> `b)
: `a -> `b -> `b)