src/HOL/Tools/Nitpick/nitpick_scope.ML
changeset 55628 8103021024c1
parent 52174 7fd0b5cfbb79
child 55888 cac1add157e8
equal deleted inserted replaced
55627:95c8ef02f04b 55628:8103021024c1
   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) =