let sort_named_prop (n1, _p1) (n2, _p2) = String.compare n1 n2