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