diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-06 15:39:27 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-06 15:39:27 -0400 |
| commit | 5765efc372a628ede62d8b27c799708f530a3456 (patch) | |
| tree | fa80b1891097e60c758ecb12fd8c441f37a03c85 /lib/ur/top.urs | |
| parent | 37f1efc23e011927873cfc5871ac7686eac5a745 (diff) | |
SELECT DISTINCT; eta expansion during Cjrization
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 637c4e5d..ef907760 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -45,6 +45,9 @@ val read_option : t ::: Type -> read t -> read (option t) val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t -> xml ctx use [] +val map0 : K --> tf :: (K -> Type) + -> (t :: K -> tf t) + -> r :: {K} -> folder r -> $(map tf r) 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) |