# fun f (x : [> `A | `B]) (y : [> `A]) -> f x + f y