alms-0.6.0: examples/ex10-dynamic-promotion-poly-blame-error.alms

(* Polymorphic: A Lying Dynamic Promotion (like ex8.aff -- blame inc(:>)) *)

let ap : all 'c. ('c -> 'c) -> 'c -> 'c =
  fun (f: 'a -> 'a) ->
    fun (x: 'a) ->
      f (f x)    (* f is used twice here, despite what iap2 claims *)

let inc : int -> int =
  fun (y: int) ->
    (fun (g: int -o int) ->
       (ap :  (int -> int) -> int -> int   (* This cast goes bad *)
           :> (int -o int) -> int -o int) g y)
    (fun (z: int) -> z + 1)

in print (inc 5)