let size_to_same_unit sz1 sz2 =
  let rec size_to_same_unit_aux sz = 
    if (size_compare_unit sz1 sz) < 0 then
      size_to_same_unit_aux (size_convert_down sz)
    else if ( size_compare_unit sz1 sz) > 0 then
      size_to_same_unit_aux (size_convert_up sz)
    else
      sz
  in
  size_to_same_unit_aux sz2