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