Mercurial > urweb
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) |