theorem Th24:
  Degree v = Degree(v, the carrier' of G)
proof
  thus Degree v = card Edges_In v + EdgesOut v by Th22
    .= card Edges_In(v, the carrier' of G) + card Edges_Out v by Th23
    .= Degree(v, the carrier' of G);
end;
