Allow [where con] to descend within submodule structure; open submodule constraints while checking later signature items

type r = {A : int, B : int, C : float}
type string = int

val x : r = {A = 1, B = "hi", C = 2.3}