Mercurial > urweb
diff tests/functor.lac @ 46:44a1bc863f0f
Corifying functors
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 19 Jun 2008 17:55:36 -0400 |
parents | a9f3ce2d1b9b |
children | ac4c0b4111ba |
line wrap: on
line diff
--- a/tests/functor.lac Thu Jun 19 17:11:24 2008 -0400 +++ b/tests/functor.lac Thu Jun 19 17:55:36 2008 -0400 @@ -14,11 +14,6 @@ val three = M.s (M.s (M.s M.z)) end -structure F2 : functor (M : S) : T where type t = M.t = F -structure F3 : functor (M : S) : T = F -(*structure F4 : functor (M : S) : sig type q end = F*) -(*structure F5 : functor (M : S) : T where type t = int = F*) - structure O = F (struct type t = int