let
compare_by_time ia ib =
Float
.compare ia.time ib.time