Mercurial > urweb

comparison src/elab_ops.sml @ 628:12b73f3c108e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Switch to TDisjoint from CDisjoint; still need to implement obligation generation at EDisjoint uses
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 12:01:24 -0500
parents 588b9d16b00a
children 7a4b026e45dd
comparison
equal deleted inserted replaced
627:f4f2b09a533a 628:12b73f3c108e
192 end 192 end
193 | _ => 193 | _ =>
194 let 194 let
195 fun unconstraint c = 195 fun unconstraint c =
196 case hnormCon env c of 196 case hnormCon env c of
197 (CDisjoint (_, _, _, c), _) => unconstraint c 197 (TDisjoint (_, _, c), _) => unconstraint c
198 | c => c 198 | c => c
199 199
200 fun tryDistributivity () = 200 fun tryDistributivity () =
201 case hnormCon env c2 of 201 case hnormCon env c2 of
202 (CConcat (c1, c2'), _) => 202 (CConcat (c1, c2'), _) =>