Mercurial > urweb
annotate tests/modproj.lac @ 35:1dfbd9e3e790
Proper selfification
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 17 Jun 2008 17:08:28 -0400 |
parents | 44b5405e74c7 |
children | 02f42e9a1825 |
rev | line source |
---|---|
adamc@35 | 1 signature S1 = sig |
adamc@34 | 2 type t |
adamc@34 | 3 val zero : t |
adamc@34 | 4 end |
adamc@35 | 5 signature S2 = sig |
adamc@35 | 6 type t = int |
adamc@35 | 7 val zero : t |
adamc@35 | 8 end |
adamc@35 | 9 structure S = struct |
adamc@34 | 10 type t = int |
adamc@34 | 11 val zero = 0 |
adamc@34 | 12 end |
adamc@35 | 13 structure S1 : S1 = S |
adamc@35 | 14 structure S2 : S2 = S |
adamc@34 | 15 |
adamc@35 | 16 type t = S1.t |
adamc@35 | 17 val zero : t = S1.zero |
adamc@35 | 18 |
adamc@35 | 19 type t = S2.t |
adamc@35 | 20 val zero : int = S2.zero |
adamc@35 | 21 |
adamc@35 | 22 structure T = S1 |
adamc@35 | 23 val zero : S1.t = T.zero |