equal
deleted
inserted
replaced
207 case (if null cards then [] else ["card: " ^ commas (map implode cards)]) @ |
207 case (if null cards then [] else ["card: " ^ commas (map implode cards)]) @ |
208 (if null maxes then [] else ["max: " ^ commas (map implode maxes)]) @ |
208 (if null maxes then [] else ["max: " ^ commas (map implode maxes)]) @ |
209 (if null iters then [] else ["iter: " ^ commas (map implode iters)]) @ |
209 (if null iters then [] else ["iter: " ^ commas (map implode iters)]) @ |
210 miscs of |
210 miscs of |
211 [] => "empty" |
211 [] => "empty" |
212 | lines => space_implode "\n" lines |
212 | lines => cat_lines lines |
213 end |
213 end |
214 |
214 |
215 fun scopes_equivalent (s1 : scope, s2 : scope) = |
215 fun scopes_equivalent (s1 : scope, s2 : scope) = |
216 #datatypes s1 = #datatypes s2 andalso #card_assigns s1 = #card_assigns s2 |
216 #datatypes s1 = #datatypes s2 andalso #card_assigns s1 = #card_assigns s2 |
217 fun scope_less_eq (s1 : scope) (s2 : scope) = |
217 fun scope_less_eq (s1 : scope) (s2 : scope) = |