annotate tests/cancel2.ur @ 1795:d28adceef22a
Allow type class instances with hypotheses via local ('let') definitions
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Wed, 25 Jul 2012 14:04:59 -0400 |
| parents |
125f9b01fbf1 |
| children |
|
| rev |
line source |
|
adam@1724
|
1 fun f [r] [[Id, Foo] ~ r] (x : $(map (fn ts => $ts) r ++ [Id = int, Foo = string]))
|
|
adam@1724
|
2 : $(map (fn ts => $ts) r ++ [Foo = string]) = x
|
|
adam@1724
|
3
|
|
adam@1724
|
4 val r = {}
|
|
adam@1724
|
5 val x : $(map (fn ts => $ts) _ ++ [Foo = string]) = f r
|
