More aggressive inlining of 'let' with record literals, plus some changes to Monoization of queries, to make inlining more common

con func a b = a -> b

signature S = sig
    con funcy a b = a -> b
end

structure M : S = struct
    con funcy = func
end