From 9f1c85cf0ef4be94bf189dea486806298f09ab51 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 9 Aug 2009 16:13:27 -0400 Subject: Library improvements; proper list [un]urlification; remove server-side ServerCalls; eta reduction in type inference --- lib/ur/top.urs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/ur/top.urs') diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 33c90651..bdf9d904 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -48,9 +48,9 @@ val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t val mp : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> (t ::: K -> tf1 t -> tf2 t) -> r :: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -val map2 : K1 --> K2 --> tf1 :: (K1 -> Type) -> tf2 :: (K2 -> Type) -> tf :: (K1 -> K2) - -> (t ::: K1 -> tf1 t -> tf2 (tf t)) - -> r :: {K1} -> folder r -> $(map tf1 r) -> $(map tf2 (map tf r)) +val map2 : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf3 :: (K -> Type) + -> (t ::: K -> tf1 t -> tf2 t -> tf3 t) + -> r :: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> $(map tf3 r) val foldUR : tf :: Type -> tr :: ({Unit} -> Type) -> (nm :: Name -> rest :: {Unit} -- cgit v1.2.3