Mercurial > urweb
annotate lib/top.urs @ 327:3a57f3b3a3f8
Fix bug in subsignature check for con synonyms
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 11 Sep 2008 18:36:20 -0400 |
| parents | e457d8972ff1 |
| children | eec65c11d3e2 |
| rev | line source |
|---|---|
| adamc@325 | 1 con mapTT = fn f :: Type -> Type => fold (fn nm t acc => [nm] ~ acc => |
| adamc@325 | 2 [nm = f t] ++ acc) [] |
| adamc@325 | 3 |
| adamc@325 | 4 val compose : t1 ::: Type -> t2 ::: Type -> t3 ::: Type |
| adamc@325 | 5 -> (t2 -> t3) -> (t1 -> t2) -> (t1 -> t3) |
| adamc@325 | 6 |
| adamc@325 | 7 val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t |
| adamc@325 | 8 -> xml ctx use [] |