Mercurial > urweb

comparison lib/top.urs @ 332:02d15d81ae9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
foldTRX2
author Adam Chlipala <adamc@hcoop.net>
date Sat, 13 Sep 2008 11:13:46 -0400
parents eec65c11d3e2
children 9601c717d2f3
comparison
equal deleted inserted replaced
331:41458a694575 332:02d15d81ae9b
12 12
13 val foldTR2 : tf1 :: (Type -> Type) -> tf2 :: (Type -> Type) -> tr :: ({Type} -> Type) 13 val foldTR2 : tf1 :: (Type -> Type) -> tf2 :: (Type -> Type) -> tr :: ({Type} -> Type)
14 -> (nm :: Name -> t :: Type -> rest :: {Type} -> [nm] ~ rest 14 -> (nm :: Name -> t :: Type -> rest :: {Type} -> [nm] ~ rest
15 -> tf1 t -> tf2 t -> tr rest -> tr ([nm = t] ++ rest)) 15 -> tf1 t -> tf2 t -> tr rest -> tr ([nm = t] ++ rest))
16 -> tr [] -> r :: {Type} -> $(mapTT tf1 r) -> $(mapTT tf2 r) -> tr r 16 -> tr [] -> r :: {Type} -> $(mapTT tf1 r) -> $(mapTT tf2 r) -> tr r
17
18 val foldTRX2 : tf1 :: (Type -> Type) -> tf2 :: (Type -> Type) -> ctx :: {Unit}
19 -> (nm :: Name -> t :: Type -> rest :: {Type} -> [nm] ~ rest
20 -> tf1 t -> tf2 t -> xml ctx [] [])
21 -> r :: {Type} -> $(mapTT tf1 r) -> $(mapTT tf2 r) -> xml ctx [] []