Thm* M:AdjMatrix, T:Type, s:T, f:(T Vertices(adjm-graph(M)) T). L:Vertices(adjm-graph(M)) List. no_repeats(Vertices(adjm-graph(M));L) & ( y:Vertices(adjm-graph(M)). (y L)) & adjm-vertex-accum(M;s',x'.f(s',x');s) = list_accum(s',x'.f(s',x');s;L) | [adjm-vertex-accum-properties] |
Def adjm-obj{\\\\v:l,i:l}(M) == mkgraphobj( x,y. x =M= y, ext{assert_eq_adjm}(M), f,s,x. adjm-edge-accum(M;s',x'.f(s',x');s;x), ext{adjm_DASH_edge_DASH_accum_DASH_properties}{i:l}(M), f,s. adjm-vertex-accum(M;s',x'.f(s',x');s), ext{adjm_DASH_vertex_DASH_accum_DASH_properties}{i:l}(M), ) | [adjm-obj] |