Metamath Proof Explorer


Theorem vtxdgoddnumeven

Description: The number of vertices of odd degree is even in a finite pseudograph of finite size. Proposition 1.2.1 in Diestel p. 5. See also remark about equation (2) in section I.1 in Bollobas p. 4. (Contributed by AV, 22-Dec-2021)

Ref Expression
Hypotheses finsumvtxdgeven.v V=VtxG
finsumvtxdgeven.i I=iEdgG
finsumvtxdgeven.d D=VtxDegG
Assertion vtxdgoddnumeven GUPGraphVFinIFin2vV|¬2Dv

Proof

Step Hyp Ref Expression
1 finsumvtxdgeven.v V=VtxG
2 finsumvtxdgeven.i I=iEdgG
3 finsumvtxdgeven.d D=VtxDegG
4 1 2 3 finsumvtxdgeven GUPGraphVFinIFin2wVDw
5 incom vV|¬2DvvV|2Dv=vV|2DvvV|¬2Dv
6 rabnc vV|2DvvV|¬2Dv=
7 5 6 eqtri vV|¬2DvvV|2Dv=
8 7 a1i GUPGraphVFinIFinvV|¬2DvvV|2Dv=
9 rabxm V=vV|2DvvV|¬2Dv
10 9 equncomi V=vV|¬2DvvV|2Dv
11 10 a1i GUPGraphVFinIFinV=vV|¬2DvvV|2Dv
12 simp2 GUPGraphVFinIFinVFin
13 3 fveq1i Dw=VtxDegGw
14 dmfi IFindomIFin
15 14 3ad2ant3 GUPGraphVFinIFindomIFin
16 eqid domI=domI
17 1 2 16 vtxdgfisnn0 domIFinwVVtxDegGw0
18 15 17 sylan GUPGraphVFinIFinwVVtxDegGw0
19 18 nn0cnd GUPGraphVFinIFinwVVtxDegGw
20 13 19 eqeltrid GUPGraphVFinIFinwVDw
21 8 11 12 20 fsumsplit GUPGraphVFinIFinwVDw=wvV|¬2DvDw+wvV|2DvDw
22 21 breq2d GUPGraphVFinIFin2wVDw2wvV|¬2DvDw+wvV|2DvDw
23 rabfi VFinvV|¬2DvFin
24 23 3ad2ant2 GUPGraphVFinIFinvV|¬2DvFin
25 elrabi wvV|¬2DvwV
26 15 25 17 syl2an GUPGraphVFinIFinwvV|¬2DvVtxDegGw0
27 26 nn0zd GUPGraphVFinIFinwvV|¬2DvVtxDegGw
28 13 27 eqeltrid GUPGraphVFinIFinwvV|¬2DvDw
29 24 28 fsumzcl GUPGraphVFinIFinwvV|¬2DvDw
30 29 adantr GUPGraphVFinIFin¬2vV|¬2DvwvV|¬2DvDw
31 fveq2 v=wDv=Dw
32 31 breq2d v=w2Dv2Dw
33 32 notbid v=w¬2Dv¬2Dw
34 33 elrab wvV|¬2DvwV¬2Dw
35 34 simprbi wvV|¬2Dv¬2Dw
36 35 adantl GUPGraphVFinIFinwvV|¬2Dv¬2Dw
37 24 28 36 sumodd GUPGraphVFinIFin2vV|¬2Dv2wvV|¬2DvDw
38 37 notbid GUPGraphVFinIFin¬2vV|¬2Dv¬2wvV|¬2DvDw
39 38 biimpa GUPGraphVFinIFin¬2vV|¬2Dv¬2wvV|¬2DvDw
40 rabfi VFinvV|2DvFin
41 40 3ad2ant2 GUPGraphVFinIFinvV|2DvFin
42 elrabi wvV|2DvwV
43 15 42 17 syl2an GUPGraphVFinIFinwvV|2DvVtxDegGw0
44 43 nn0zd GUPGraphVFinIFinwvV|2DvVtxDegGw
45 13 44 eqeltrid GUPGraphVFinIFinwvV|2DvDw
46 41 45 fsumzcl GUPGraphVFinIFinwvV|2DvDw
47 46 adantr GUPGraphVFinIFin¬2vV|¬2DvwvV|2DvDw
48 32 elrab wvV|2DvwV2Dw
49 48 simprbi wvV|2Dv2Dw
50 49 adantl GUPGraphVFinIFinwvV|2Dv2Dw
51 41 45 50 sumeven GUPGraphVFinIFin2wvV|2DvDw
52 51 adantr GUPGraphVFinIFin¬2vV|¬2Dv2wvV|2DvDw
53 opeo wvV|¬2DvDw¬2wvV|¬2DvDwwvV|2DvDw2wvV|2DvDw¬2wvV|¬2DvDw+wvV|2DvDw
54 30 39 47 52 53 syl22anc GUPGraphVFinIFin¬2vV|¬2Dv¬2wvV|¬2DvDw+wvV|2DvDw
55 54 ex GUPGraphVFinIFin¬2vV|¬2Dv¬2wvV|¬2DvDw+wvV|2DvDw
56 55 con4d GUPGraphVFinIFin2wvV|¬2DvDw+wvV|2DvDw2vV|¬2Dv
57 22 56 sylbid GUPGraphVFinIFin2wVDw2vV|¬2Dv
58 4 57 mpd GUPGraphVFinIFin2vV|¬2Dv