blob: 9d5fbc90f3eb98e65e2f3d5c8180b341ac553a46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
signature A = sig end
structure A = struct end
structure Ao : A = A
structure B = struct
type t = int
end
structure Bo0 : sig end = B
structure BoA : A = B
signature B1 = sig
type t
end
structure Bo1 : B1 = B
(*structure AoB1 : B1 = A*)
signature B2 = sig
type t = int
end
structure Bo2 : B2 = B
structure C = struct
type t = float
end
structure CoB1 : B1 = C
(*structure CoB2 : B2 = C*)
|
