theorem Th22:
  card Edges_In v = EdgesIn v
proof
  consider X being finite set such that
A1: for z being set holds z in X iff z in the carrier' of G & (the
  Target of G).z = v and
A2: EdgesIn v = card(X) by GRAPH_1:def 21;
  now
    let e be object;
    e in Edges_In (v, the carrier' of G) iff e in the carrier' of G & (the
    Target of G).e = v by Def1;
    hence e in Edges_In v iff e in X by A1;
  end;
  hence thesis by A2,TARSKI:2;
end;
