diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-11 17:41:52 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 17:41:52 -0400 |
| commit | 48b9d4dae3d1ca6ff39e71571a6db3a43497c9f9 (patch) | |
| tree | 22ffe528ac30aa133fde37ddcafb13a92cd22357 /lib/top.urs | |
| parent | 05fbd01cabc967d7216d8cbe701ac10ad797b122 (diff) | |
Crud listing IDs
Diffstat (limited to 'lib/top.urs')
| -rw-r--r-- | lib/top.urs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/top.urs b/lib/top.urs new file mode 100644 index 00000000..80344602 --- /dev/null +++ b/lib/top.urs @@ -0,0 +1,8 @@ +con mapTT = fn f :: Type -> Type => fold (fn nm t acc => [nm] ~ acc => + [nm = f t] ++ acc) [] + +val compose : t1 ::: Type -> t2 ::: Type -> t3 ::: Type + -> (t2 -> t3) -> (t1 -> t2) -> (t1 -> t3) + +val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t + -> xml ctx use [] |