src/HOL/Tools/Nitpick/nitpick_rep.ML
changeset 34936 c4f04bee79f3
parent 34123 c4988215a691
child 34982 7b8c366e34a2
equal deleted inserted replaced
34935:cb011ba38950 34936:c4f04bee79f3
   272     (case (best_one_rep_for_type scope T1, best_one_rep_for_type scope T2) of
   272     (case (best_one_rep_for_type scope T1, best_one_rep_for_type scope T2) of
   273        (Unit, Unit) => Unit
   273        (Unit, Unit) => Unit
   274      | (R1, R2) => Struct [R1, R2])
   274      | (R1, R2) => Struct [R1, R2])
   275   | best_one_rep_for_type (scope as {card_assigns, datatypes, ofs, ...}) T =
   275   | best_one_rep_for_type (scope as {card_assigns, datatypes, ofs, ...}) T =
   276     (case card_of_type card_assigns T of
   276     (case card_of_type card_assigns T of
   277        1 => if is_some (datatype_spec datatypes T)
   277        1 => if is_some (datatype_spec datatypes T) orelse
   278                orelse is_fp_iterator_type T then
   278                is_fp_iterator_type T then
   279               Atom (1, offset_of_type ofs T)
   279               Atom (1, offset_of_type ofs T)
   280             else
   280             else
   281               Unit
   281               Unit
   282      | k => Atom (k, offset_of_type ofs T))
   282      | k => Atom (k, offset_of_type ofs T))
   283 
   283