adam@1717: structure M = struct end
adam@1717: 
adam@1717: fun f (x : $M.r) : $([A = int] ++ M.r) = x