let compare_by_field field a b = match find_field field a with | Some i -> Some i =@= (find_field field b) | None -> false