summaryrefslogtreecommitdiff
path: root/lib/top.urs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/top.urs')
-rw-r--r--lib/top.urs8
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 []