annotate lib/ur/incl.urs @ 1225:950d1e540df6

Tweaks to table signatures and MonoOpt summarizing
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 14:11:17 -0400
parents 0b1d666bddb4
children
rev   line source
adamc@1180 1 con incl :: K --> {K} -> {K} -> Type
adamc@1180 2
adamc@1180 3 val incl : K --> r1 :: {K} -> r2 :: {K} -> [r1 ~ r2] => incl r1 (r1 ++ r2)
adamc@1180 4 val proj : r1 ::: {Type} -> r2 ::: {Type} -> incl r1 r2 -> $r2 -> $r1
adamc@1180 5
adamc@1182 6 val inv1 : K --> nm :: Name -> t :: K -> r :: {K} -> r' :: {K}
adamc@1180 7 -> [[nm] ~ r] =>
adamc@1180 8 f :: (Name -> K -> {K} -> Type)
adamc@1180 9 -> incl ([nm = t] ++ r) r'
adamc@1180 10 -> (nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => f nm t ([nm = t] ++ r))
adamc@1180 11 -> f nm t r'
adamc@1181 12 val inv2 : K --> nm :: Name -> t :: K -> r :: {K} -> r' :: {K}
adamc@1180 13 -> [[nm] ~ r] =>
adamc@1180 14 incl ([nm = t] ++ r) r' -> incl r r'
adamc@1180 15
adamc@1180 16 val fold : K --> tf :: ({K} -> Type) -> r ::: {K}
adamc@1180 17 -> (nm :: Name -> v :: K -> r' :: {K}
adamc@1180 18 -> [[nm] ~ r'] => incl ([nm = v] ++ r') r -> tf r' -> tf ([nm = v] ++ r'))
adamc@1180 19 -> tf []
adamc@1180 20 -> folder r -> tf r