tests/mproj.ur


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

structure M : sig
    type t
    val x : t

    structure S : sig
        type u = t

        val eq : eq u
    end
end = struct
    type t = int
    val x = 0

    structure S = struct
        type u = t

        val eq = _
    end
end

val y = M.x = M.x