Mercurial > urweb
view tests/ktuple.ur @ 2195:18e6fb487880
Reduce: add reduction in some spots previously missed, associated with 'case' return types
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Wed, 25 Nov 2015 18:48:17 -0500 |
| parents | d008c4c43a0a |
| children |
line wrap: on
line source
type q = (fn p => p.1) (int, float) type q = (fn p => p.1 * $p.3) (int, float, [])