diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-04 15:50:28 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-04 15:50:28 -0400 |
| commit | 2eca16323e58b01a70ea734e2825765ebe239dc0 (patch) | |
| tree | 01925fb11414b663a27842adee1f417c8df1c2a2 /src/elab_ops.sml | |
| parent | 4bf39f1d330d41b33ccdaac9c037dd8737f05975 (diff) | |
Merge CDisjoint and TDisjoint
Diffstat (limited to 'src/elab_ops.sml')
| -rw-r--r-- | src/elab_ops.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/elab_ops.sml b/src/elab_ops.sml index e236e62d..95ad971f 100644 --- a/src/elab_ops.sml +++ b/src/elab_ops.sml @@ -146,7 +146,7 @@ fun hnormCon env (cAll as (c, loc)) = val c = (CApp (c, r), loc) fun unconstraint c = case hnormCon env c of - (CDisjoint (_, _, c), _) => unconstraint c + (CDisjoint (_, _, _, c), _) => unconstraint c | c => c val c = unconstraint c |