let
compare (e1 : t) (e2 : t) = compare_edge_type !e1 !e2