comparison lib/ur/top.urs @ 777:87a7702d681d

outer demo
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 May 2009 14:57:33 -0400
parents acb8537f58f0
children d1d0b18afd3d
comparison
equal deleted inserted replaced
776:9f2555f06901 777:87a7702d681d
36 36
37 val ex : tf :: (Type -> Type) -> choice :: Type -> tf choice -> ex tf 37 val ex : tf :: (Type -> Type) -> choice :: Type -> tf choice -> ex tf
38 38
39 val compose : t1 ::: Type -> t2 ::: Type -> t3 ::: Type 39 val compose : t1 ::: Type -> t2 ::: Type -> t3 ::: Type
40 -> (t2 -> t3) -> (t1 -> t2) -> (t1 -> t3) 40 -> (t2 -> t3) -> (t1 -> t2) -> (t1 -> t3)
41
42 val show_option : t ::: Type -> show t -> show (option t)
43 val read_option : t ::: Type -> read t -> read (option t)
41 44
42 val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t 45 val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t
43 -> xml ctx use [] 46 -> xml ctx use []
44 47
45 val foldUR : tf :: Type -> tr :: ({Unit} -> Type) 48 val foldUR : tf :: Type -> tr :: ({Unit} -> Type)