diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-03-09 17:50:42 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-03-09 17:50:42 -0500 |
| commit | 886cb3fa5ae08b3012411dd1243ceace4406978a (patch) | |
| tree | b7ccc2801d770e3641ccefff3f2bfd26b4591116 /lib/ur/incl.ur | |
| parent | df76c398867ef66c583e5d481bdb33e046acfc09 (diff) | |
Spiffed-up Split1; remove spurious error message triggered by 'open'ing a module containing a functor
Diffstat (limited to 'lib/ur/incl.ur')
| -rw-r--r-- | lib/ur/incl.ur | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ur/incl.ur b/lib/ur/incl.ur index ebf7acef..4ed27391 100644 --- a/lib/ur/incl.ur +++ b/lib/ur/incl.ur @@ -14,7 +14,7 @@ fun proj [r1 ::: {Type}] [r2 ::: {Type}] (i : incl r1 r2) (r : $r2) = i [$r1] (fn [r' :: {Type}] [r1 ~ r'] (i' : incl' r1 r2 r') => i'.Expose [fn r => $r] r --- r') -fun inv1 [K] [nm :: Name] [t ::: K] [r :: {K}] [r' :: {K}] [[nm] ~ r] +fun inv1 [K] [nm :: Name] [t :: K] [r :: {K}] [r' :: {K}] [[nm] ~ r] [f :: Name -> K -> {K} -> Type] (i : incl ([nm = t] ++ r) r') (f : nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => f nm t ([nm = t] ++ r)) = |