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