the_Vertices_of G1 = the_Vertices_of G2 by GLIB_007:4;
hence G2 .set (OrderingSelector,(the_Ordering_of G1)) is [Ordered] ; :: thesis: verum