Spiffed-up Split1; remove spurious error message triggered by 'open'ing a module containing a functor

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/ur/incl.urs b/lib/ur/incl.urs
index 2c77369f..24db0a8a 100644
--- a/lib/ur/incl.urs
+++ b/lib/ur/incl.urs
@@ -3,7 +3,7 @@ con incl :: K --> {K} -> {K} -> Type
 val incl : K --> r1 :: {K} -> r2 :: {K} -> [r1 ~ r2] => incl r1 (r1 ++ r2)
 val proj : r1 ::: {Type} -> r2 ::: {Type} -> incl r1 r2 -> $r2 -> $r1
 
-val inv1 : K --> nm :: Name -> t ::: K -> r :: {K} -> r' :: {K}
+val inv1 : K --> nm :: Name -> t :: K -> r :: {K} -> r' :: {K}
            -> [[nm] ~ r] =>
     f :: (Name -> K -> {K} -> Type)
     -> incl ([nm = t] ++ r) r'