Mercurial > urweb

comparison lib/ur/incl.urs @ 1182:0b1d666bddb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Spiffed-up Split1; remove spurious error message triggered by 'open'ing a module containing a functor
author Adam Chlipala <adamc@hcoop.net>
date Tue, 09 Mar 2010 17:50:42 -0500
parents 618f9f458da9
children
comparison
equal deleted inserted replaced
1181:618f9f458da9 1182:0b1d666bddb4
1 con incl :: K --> {K} -> {K} -> Type 1 con incl :: K --> {K} -> {K} -> Type
2 2
3 val incl : K --> r1 :: {K} -> r2 :: {K} -> [r1 ~ r2] => incl r1 (r1 ++ r2) 3 val incl : K --> r1 :: {K} -> r2 :: {K} -> [r1 ~ r2] => incl r1 (r1 ++ r2)
4 val proj : r1 ::: {Type} -> r2 ::: {Type} -> incl r1 r2 -> $r2 -> $r1 4 val proj : r1 ::: {Type} -> r2 ::: {Type} -> incl r1 r2 -> $r2 -> $r1
5 5
6 val inv1 : K --> nm :: Name -> t ::: K -> r :: {K} -> r' :: {K} 6 val inv1 : K --> nm :: Name -> t :: K -> r :: {K} -> r' :: {K}
7 -> [[nm] ~ r] => 7 -> [[nm] ~ r] =>
8 f :: (Name -> K -> {K} -> Type) 8 f :: (Name -> K -> {K} -> Type)
9 -> incl ([nm = t] ++ r) r' 9 -> incl ([nm = t] ++ r) r'
10 -> (nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => f nm t ([nm = t] ++ r)) 10 -> (nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => f nm t ([nm = t] ++ r))
11 -> f nm t r' 11 -> f nm t r'