diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-24 12:01:24 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-24 12:01:24 -0500 |
| commit | 7b71af9c790abcff2bfe0a16a417a1023776351d (patch) | |
| tree | 9dd05f2dad9cc6d4e0e33af1e8f1cf0a1def9f15 /src/elab_ops.sml | |
| parent | bb4aed8e1304d5cb3cbe7ec5fdcf95344e9aa2d5 (diff) | |
Switch to TDisjoint from CDisjoint; still need to implement obligation generation at EDisjoint uses
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 60a7639d..a26ba17d 100644 --- a/src/elab_ops.sml +++ b/src/elab_ops.sml @@ -194,7 +194,7 @@ fun hnormCon env (cAll as (c, loc)) = let fun unconstraint c = case hnormCon env c of - (CDisjoint (_, _, _, c), _) => unconstraint c + (TDisjoint (_, _, c), _) => unconstraint c | c => c fun tryDistributivity () = |