adamc@325: con mapTT = fn f :: Type -> Type => fold (fn nm t acc => [nm] ~ acc =>
adamc@325:         [nm = f t] ++ acc) []
adamc@325: 
adamc@325: val compose : t1 ::: Type -> t2 ::: Type -> t3 ::: Type
adamc@325:         -> (t2 -> t3) -> (t1 -> t2) -> (t1 -> t3)
adamc@325: 
adamc@325: val txt : t ::: Type -> ctx ::: {Unit} -> use ::: {Type} -> show t -> t
adamc@325:         -> xml ctx use []