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

con e = []
structure B : sig
end = struct
end
open B

fun main () =
 return <xml></xml>