x : Apa
x = let x : T = y 
     in case y of
         f -> q
         _ -> a

f = \x -> case x of
	        { r = _ } -> 0