Mercurial > urweb

comparison lib/top.ur @ 325:e457d8972ff1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Crud listing IDs
author Adam Chlipala <adamc@hcoop.net>
date Thu, 11 Sep 2008 17:41:52 -0400
parents
children 58f1260f293f
comparison
equal deleted inserted replaced
324:b91480c9a729 325:e457d8972ff1
1 con mapTT (f :: Type -> Type) = fold (fn nm t acc => [nm] ~ acc =>
2 [nm = f t] ++ acc) []
3
4 fun compose (t1 ::: Type) (t2 ::: Type) (t3 ::: Type) (f1 : t2 -> t3) (f2 : t1 -> t2) (x : t1) = f1 (f2 x)
5
6 fun txt (t ::: Type) (ctx ::: {Unit}) (use ::: {Type}) (sh : show t) (v : t) = cdata (show sh v)