Mercurial > urweb

comparison lib/ur/top.urs @ 993:10114d7b7477

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SELECT DISTINCT; eta expansion during Cjrization
author Adam Chlipala <adamc@hcoop.net>
date Tue, 06 Oct 2009 15:39:27 -0400
parents 37dd42935dad
children 61c30f0742d7
comparison
equal deleted inserted replaced
992:b825d843b22d 993:10114d7b7477
43 val read_option : t ::: Type -> read t -> read (option t) 43 val read_option : t ::: Type -> read t -> read (option t)
44 44
45 val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t 45 val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t
46 -> xml ctx use [] 46 -> xml ctx use []
47 47
48 val map0 : K --> tf :: (K -> Type)
49 -> (t :: K -> tf t)
50 -> r :: {K} -> folder r -> $(map tf r)
48 val mp : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type) 51 val mp : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type)
49 -> (t ::: K -> tf1 t -> tf2 t) 52 -> (t ::: K -> tf1 t -> tf2 t)
50 -> r :: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) 53 -> r :: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r)
51 val map2 : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf :: (K -> Type) 54 val map2 : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf :: (K -> Type)
52 -> (t ::: K -> tf1 t -> tf2 t -> tf t) 55 -> (t ::: K -> tf1 t -> tf2 t -> tf t)