diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-01 11:39:14 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-01 11:39:14 -0400 |
| commit | d28cad7cc5881018717c7e875c99c51469da9d44 (patch) | |
| tree | 9366873b02b595e0ec394a047c66f1db6cc375d1 /src/disjoint.sml | |
| parent | 43116f69ce9330eb09d42a25d4afc746e7c3f3ef (diff) | |
Threading disjointness conditions through Elaborate
Diffstat (limited to 'src/disjoint.sml')
| -rw-r--r-- | src/disjoint.sml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/disjoint.sml b/src/disjoint.sml index 784bd635..fa4c8618 100644 --- a/src/disjoint.sml +++ b/src/disjoint.sml @@ -277,10 +277,7 @@ fun prove env denv (c1, c2, loc) = val hasUnknown = List.exists (fn p => p = Unknown) in if hasUnknown ps1 orelse hasUnknown ps2 then - (ErrorMsg.errorAt loc "Structure of row is too complicated to prove disjointness"; - Print.eprefaces' [("Row 1", ElabPrint.p_con env c1), - ("Row 2", ElabPrint.p_con env c2)]; - []) + [(c1, c2)] else foldl (fn (p1, rem) => foldl (fn (p2, rem) => |