is mentioned by

Thm* M:AdjMatrix, x,y:Vertices(adjm-graph(M)). x =M= y x = y	[assert_eq_adjm]
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]

Try larger context: Graphs