Mercurial > urweb
diff lib/ur/incl.urs @ 1181:618f9f458da9
Got split1 working, but noticed a nasty type inference bug with transplanted unification variables
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 06 Mar 2010 19:14:48 -0500 |
parents | ac3dbbc85c6e |
children | 0b1d666bddb4 |
line wrap: on
line diff
--- a/lib/ur/incl.urs Sat Mar 06 16:15:26 2010 -0500 +++ b/lib/ur/incl.urs Sat Mar 06 19:14:48 2010 -0500 @@ -9,7 +9,7 @@ -> incl ([nm = t] ++ r) r' -> (nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => f nm t ([nm = t] ++ r)) -> f nm t r' -val inv2 : K --> nm :: Name -> t ::: K -> r :: {K} -> r' :: {K} +val inv2 : K --> nm :: Name -> t :: K -> r :: {K} -> r' :: {K} -> [[nm] ~ r] => incl ([nm = t] ++ r) r' -> incl r r'