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/19-polymorphic-mutually-recursive-functions.good.typing.hopix.human-readable
Adrien Guatto 6355f88c0f Jalon 3
2023-11-15 19:08:33 +01:00

7 lines
194 B
Text

fun : [`a, `b] `a -> `b
false_rec (x : `a) = false_rec2<`b, `a> (x)
and : [`a, `b] `b -> `a
false_rec2 (x : `b) = false_rec<`b, `a> (x)
let main : string = false_rec<int, string> (43)