Mercurial > urweb
annotate lib/ur/incl.urs @ 1227:1d8fba74e7f5
Iflow working with a UNION
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 11 Apr 2010 16:06:16 -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 |