alms-0.6.0: examples/ex09-dynamic-promotion.alms

(* A Dynamic Promotion Intervenes (like ex7.aff) *)

let ap : (int -> int) -> int -> int =
  fun (f: int -> int) ->
    fun (x: int) ->
      f x

let inc : int -> int =
  fun (y: int) ->
    (fun (g: int -o int) ->
       (ap : (int -> int) -> int -> int
           :> (int -o int) -> int -o int) g y)
    (fun (z: int) -> z + 1)

in print (inc 5)