Theorem finsumvtxdg2size 29638

Description: The sum of the degrees of all vertices of a finite pseudograph of finite size is twice the size of the pseudograph. See equation (1) in section I.1 in [Bollobas] p. 4. Here, the "proof" is simply the statement "Since each edge has two endvertices, the sum of the degrees is exactly twice the number of edges". The formal proof of this theorem (for pseudographs) is much more complicated, taking also the used auxiliary theorems into account. The proof for a (finite) simple graph (see fusgr1th 29639) would be shorter, but nevertheless still laborious. Although this theorem would hold also for infinite pseudographs and pseudographs of infinite size, the proof of this most general version (see theorem "sumvtxdg2size" below) would require many more auxiliary theorems (e.g., the extension of the sum Σ over an arbitrary set).

I dedicate this theorem and its proof to Norman Megill, who deceased too early on December 9, 2021. This proof is an example for the rigor which was the main motivation for Norman Megill to invent and develop Metamath, see section 1.1.6 "Rigor" on page 19 of the Metamath book: "... it is usually assumed in mathematical literature that the person reading the proof is a mathematician familiar with the specialty being described, and that the missing steps are obvious to such a reader or at least the reader is capable of filling them in." I filled in the missing steps of Bollobas' proof as Norm would have liked it... (Contributed by Alexander van der Vekens, 19-Dec-2021.)

Hypotheses

Ref	Expression
sumvtxdg2size.v	⊢ 𝑉 = (Vtx‘𝐺)
sumvtxdg2size.i	⊢ 𝐼 = (iEdg‘𝐺)
sumvtxdg2size.d	⊢ 𝐷 = (VtxDeg‘𝐺)

Assertion

Ref	Expression
finsumvtxdg2size	⊢ ((𝐺 ∈ UPGraph ∧ 𝑉 ∈ Fin ∧ 𝐼 ∈ Fin) → Σ𝑣 ∈ 𝑉 (𝐷‘𝑣) = (2 · (♯‘𝐼)))

Distinct variable groups:   𝑣,𝐺   𝑣,𝑉

Allowed substitution hints:   𝐷(𝑣)   𝐼(𝑣)

Proof of Theorem finsumvtxdg2size

Dummy variables 𝑒 𝑘 𝑛 𝑓 𝑖 𝑤 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		upgrop 29181	. . . 4 ⊢ (𝐺 ∈ UPGraph → ⟨(Vtx‘𝐺), (iEdg‘𝐺)⟩ ∈ UPGraph)
2		fvex 6849	. . . . . 6 ⊢ (iEdg‘𝐺) ∈ V
3		fvex 6849	. . . . . . 7 ⊢ (iEdg‘⟨𝑘, 𝑒⟩) ∈ V
4	3	resex 5990	. . . . . 6 ⊢ ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ V
5		eleq1 2825	. . . . . . . 8 ⊢ (𝑒 = (iEdg‘𝐺) → (𝑒 ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
6	5	adantl 481	. . . . . . 7 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → (𝑒 ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
7		simpl 482	. . . . . . . . 9 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → 𝑘 = (Vtx‘𝐺))
8		oveq12 7371	. . . . . . . . . . 11 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → (𝑘VtxDeg𝑒) = ((Vtx‘𝐺)VtxDeg(iEdg‘𝐺)))
9	8	fveq1d 6838	. . . . . . . . . 10 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → ((𝑘VtxDeg𝑒)‘𝑣) = (((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣))
10	9	adantr 480	. . . . . . . . 9 ⊢ (((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) ∧ 𝑣 ∈ 𝑘) → ((𝑘VtxDeg𝑒)‘𝑣) = (((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣))
11	7, 10	sumeq12dv 15663	. . . . . . . 8 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣))
12		fveq2 6836	. . . . . . . . . 10 ⊢ (𝑒 = (iEdg‘𝐺) → (♯‘𝑒) = (♯‘(iEdg‘𝐺)))
13	12	oveq2d 7378	. . . . . . . . 9 ⊢ (𝑒 = (iEdg‘𝐺) → (2 · (♯‘𝑒)) = (2 · (♯‘(iEdg‘𝐺))))
14	13	adantl 481	. . . . . . . 8 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → (2 · (♯‘𝑒)) = (2 · (♯‘(iEdg‘𝐺))))
15	11, 14	eqeq12d 2753	. . . . . . 7 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → (Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒)) ↔ Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺)))))
16	6, 15	imbi12d 344	. . . . . 6 ⊢ ((𝑘 = (Vtx‘𝐺) ∧ 𝑒 = (iEdg‘𝐺)) → ((𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))) ↔ ((iEdg‘𝐺) ∈ Fin → Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺))))))
17		eleq1 2825	. . . . . . . 8 ⊢ (𝑒 = 𝑓 → (𝑒 ∈ Fin ↔ 𝑓 ∈ Fin))
18	17	adantl 481	. . . . . . 7 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → (𝑒 ∈ Fin ↔ 𝑓 ∈ Fin))
19		simpl 482	. . . . . . . . 9 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → 𝑘 = 𝑤)
20		oveq12 7371	. . . . . . . . . . . 12 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → (𝑘VtxDeg𝑒) = (𝑤VtxDeg𝑓))
21		df-ov 7365	. . . . . . . . . . . 12 ⊢ (𝑤VtxDeg𝑓) = (VtxDeg‘⟨𝑤, 𝑓⟩)
22	20, 21	eqtrdi 2788	. . . . . . . . . . 11 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → (𝑘VtxDeg𝑒) = (VtxDeg‘⟨𝑤, 𝑓⟩))
23	22	fveq1d 6838	. . . . . . . . . 10 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → ((𝑘VtxDeg𝑒)‘𝑣) = ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣))
24	23	adantr 480	. . . . . . . . 9 ⊢ (((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) ∧ 𝑣 ∈ 𝑘) → ((𝑘VtxDeg𝑒)‘𝑣) = ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣))
25	19, 24	sumeq12dv 15663	. . . . . . . 8 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = Σ𝑣 ∈ 𝑤 ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣))
26		fveq2 6836	. . . . . . . . . 10 ⊢ (𝑒 = 𝑓 → (♯‘𝑒) = (♯‘𝑓))
27	26	oveq2d 7378	. . . . . . . . 9 ⊢ (𝑒 = 𝑓 → (2 · (♯‘𝑒)) = (2 · (♯‘𝑓)))
28	27	adantl 481	. . . . . . . 8 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → (2 · (♯‘𝑒)) = (2 · (♯‘𝑓)))
29	25, 28	eqeq12d 2753	. . . . . . 7 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → (Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒)) ↔ Σ𝑣 ∈ 𝑤 ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = (2 · (♯‘𝑓))))
30	18, 29	imbi12d 344	. . . . . 6 ⊢ ((𝑘 = 𝑤 ∧ 𝑒 = 𝑓) → ((𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))) ↔ (𝑓 ∈ Fin → Σ𝑣 ∈ 𝑤 ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = (2 · (♯‘𝑓)))))
31		vex 3434	. . . . . . . . 9 ⊢ 𝑘 ∈ V
32		vex 3434	. . . . . . . . 9 ⊢ 𝑒 ∈ V
33	31, 32	opvtxfvi 29096	. . . . . . . 8 ⊢ (Vtx‘⟨𝑘, 𝑒⟩) = 𝑘
34	33	eqcomi 2746	. . . . . . 7 ⊢ 𝑘 = (Vtx‘⟨𝑘, 𝑒⟩)
35		eqid 2737	. . . . . . 7 ⊢ (iEdg‘⟨𝑘, 𝑒⟩) = (iEdg‘⟨𝑘, 𝑒⟩)
36		eqid 2737	. . . . . . 7 ⊢ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)} = {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}
37		eqid 2737	. . . . . . 7 ⊢ ⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩ = ⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩
38	34, 35, 36, 37	upgrres 29393	. . . . . 6 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑛 ∈ 𝑘) → ⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩ ∈ UPGraph)
39		eleq1 2825	. . . . . . . 8 ⊢ (𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) → (𝑓 ∈ Fin ↔ ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin))
40	39	adantl 481	. . . . . . 7 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → (𝑓 ∈ Fin ↔ ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin))
41		simpl 482	. . . . . . . . 9 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → 𝑤 = (𝑘 ∖ {𝑛}))
42		opeq12 4819	. . . . . . . . . . . 12 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → ⟨𝑤, 𝑓⟩ = ⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)
43	42	fveq2d 6840	. . . . . . . . . . 11 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → (VtxDeg‘⟨𝑤, 𝑓⟩) = (VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩))
44	43	fveq1d 6838	. . . . . . . . . 10 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = ((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣))
45	44	adantr 480	. . . . . . . . 9 ⊢ (((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) ∧ 𝑣 ∈ 𝑤) → ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = ((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣))
46	41, 45	sumeq12dv 15663	. . . . . . . 8 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → Σ𝑣 ∈ 𝑤 ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣))
47		fveq2 6836	. . . . . . . . . 10 ⊢ (𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) → (♯‘𝑓) = (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))
48	47	oveq2d 7378	. . . . . . . . 9 ⊢ (𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) → (2 · (♯‘𝑓)) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}))))
49	48	adantl 481	. . . . . . . 8 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → (2 · (♯‘𝑓)) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}))))
50	46, 49	eqeq12d 2753	. . . . . . 7 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → (Σ𝑣 ∈ 𝑤 ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = (2 · (♯‘𝑓)) ↔ Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))))
51	40, 50	imbi12d 344	. . . . . 6 ⊢ ((𝑤 = (𝑘 ∖ {𝑛}) ∧ 𝑓 = ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})) → ((𝑓 ∈ Fin → Σ𝑣 ∈ 𝑤 ((VtxDeg‘⟨𝑤, 𝑓⟩)‘𝑣) = (2 · (♯‘𝑓))) ↔ (((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}))))))
52		hasheq0 14320	. . . . . . . . 9 ⊢ (𝑘 ∈ V → ((♯‘𝑘) = 0 ↔ 𝑘 = ∅))
53	52	elv 3435	. . . . . . . 8 ⊢ ((♯‘𝑘) = 0 ↔ 𝑘 = ∅)
54		2t0e0 12340	. . . . . . . . . 10 ⊢ (2 · 0) = 0
55	54	a1i 11	. . . . . . . . 9 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → (2 · 0) = 0)
56	31, 32	opiedgfvi 29097	. . . . . . . . . . . . 13 ⊢ (iEdg‘⟨𝑘, 𝑒⟩) = 𝑒
57	56	eqcomi 2746	. . . . . . . . . . . 12 ⊢ 𝑒 = (iEdg‘⟨𝑘, 𝑒⟩)
58		upgruhgr 29189	. . . . . . . . . . . . . 14 ⊢ (⟨𝑘, 𝑒⟩ ∈ UPGraph → ⟨𝑘, 𝑒⟩ ∈ UHGraph)
59	58	adantr 480	. . . . . . . . . . . . 13 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → ⟨𝑘, 𝑒⟩ ∈ UHGraph)
60	34	eqeq1i 2742	. . . . . . . . . . . . . 14 ⊢ (𝑘 = ∅ ↔ (Vtx‘⟨𝑘, 𝑒⟩) = ∅)
61		uhgr0vb 29159	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (Vtx‘⟨𝑘, 𝑒⟩) = ∅) → (⟨𝑘, 𝑒⟩ ∈ UHGraph ↔ (iEdg‘⟨𝑘, 𝑒⟩) = ∅))
62	60, 61	sylan2b 595	. . . . . . . . . . . . 13 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → (⟨𝑘, 𝑒⟩ ∈ UHGraph ↔ (iEdg‘⟨𝑘, 𝑒⟩) = ∅))
63	59, 62	mpbid 232	. . . . . . . . . . . 12 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → (iEdg‘⟨𝑘, 𝑒⟩) = ∅)
64	57, 63	eqtrid 2784	. . . . . . . . . . 11 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → 𝑒 = ∅)
65		hasheq0 14320	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ V → ((♯‘𝑒) = 0 ↔ 𝑒 = ∅))
66	65	elv 3435	. . . . . . . . . . 11 ⊢ ((♯‘𝑒) = 0 ↔ 𝑒 = ∅)
67	64, 66	sylibr 234	. . . . . . . . . 10 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → (♯‘𝑒) = 0)
68	67	oveq2d 7378	. . . . . . . . 9 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → (2 · (♯‘𝑒)) = (2 · 0))
69		sumeq1 15646	. . . . . . . . . . 11 ⊢ (𝑘 = ∅ → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = Σ𝑣 ∈ ∅ ((𝑘VtxDeg𝑒)‘𝑣))
70		sum0 15678	. . . . . . . . . . 11 ⊢ Σ𝑣 ∈ ∅ ((𝑘VtxDeg𝑒)‘𝑣) = 0
71	69, 70	eqtrdi 2788	. . . . . . . . . 10 ⊢ (𝑘 = ∅ → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = 0)
72	71	adantl 481	. . . . . . . . 9 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = 0)
73	55, 68, 72	3eqtr4rd 2783	. . . . . . . 8 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑘 = ∅) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒)))
74	53, 73	sylan2b 595	. . . . . . 7 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = 0) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒)))
75	74	a1d 25	. . . . . 6 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = 0) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))
76		eleq1 2825	. . . . . . . . . . 11 ⊢ ((𝑦 + 1) = (♯‘𝑘) → ((𝑦 + 1) ∈ ℕ0 ↔ (♯‘𝑘) ∈ ℕ0))
77	76	eqcoms 2745	. . . . . . . . . 10 ⊢ ((♯‘𝑘) = (𝑦 + 1) → ((𝑦 + 1) ∈ ℕ0 ↔ (♯‘𝑘) ∈ ℕ0))
78	77	3ad2ant2 1135	. . . . . . . . 9 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑘) → ((𝑦 + 1) ∈ ℕ0 ↔ (♯‘𝑘) ∈ ℕ0))
79		hashclb 14315	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ V → (𝑘 ∈ Fin ↔ (♯‘𝑘) ∈ ℕ0))
80	79	biimprd 248	. . . . . . . . . . 11 ⊢ (𝑘 ∈ V → ((♯‘𝑘) ∈ ℕ0 → 𝑘 ∈ Fin))
81	80	elv 3435	. . . . . . . . . 10 ⊢ ((♯‘𝑘) ∈ ℕ0 → 𝑘 ∈ Fin)
82		eqid 2737	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∖ {𝑛}) = (𝑘 ∖ {𝑛})
83		eqid 2737	. . . . . . . . . . . . . . 15 ⊢ {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ (𝑒‘𝑖)} = {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ (𝑒‘𝑖)}
84	56	dmeqi 5855	. . . . . . . . . . . . . . . . . 18 ⊢ dom (iEdg‘⟨𝑘, 𝑒⟩) = dom 𝑒
85	84	rabeqi 3403	. . . . . . . . . . . . . . . . 17 ⊢ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)} = {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}
86		eqidd 2738	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑖 ∈ dom 𝑒 → 𝑛 = 𝑛)
87	56	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑖 ∈ dom 𝑒 → (iEdg‘⟨𝑘, 𝑒⟩) = 𝑒)
88	87	fveq1d 6838	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑖 ∈ dom 𝑒 → ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖) = (𝑒‘𝑖))
89	86, 88	neleq12d 3042	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ dom 𝑒 → (𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖) ↔ 𝑛 ∉ (𝑒‘𝑖)))
90	89	rabbiia 3394	. . . . . . . . . . . . . . . . 17 ⊢ {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)} = {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ (𝑒‘𝑖)}
91	85, 90	eqtri 2760	. . . . . . . . . . . . . . . 16 ⊢ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)} = {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ (𝑒‘𝑖)}
92	56, 91	reseq12i 5938	. . . . . . . . . . . . . . 15 ⊢ ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) = (𝑒 ↾ {𝑖 ∈ dom 𝑒 ∣ 𝑛 ∉ (𝑒‘𝑖)})
93	34, 57, 82, 83, 92, 37	finsumvtxdg2sstep 29637	. . . . . . . . . . . . . 14 ⊢ (((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑛 ∈ 𝑘) ∧ (𝑘 ∈ Fin ∧ 𝑒 ∈ Fin)) → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → Σ𝑣 ∈ 𝑘 ((VtxDeg‘⟨𝑘, 𝑒⟩)‘𝑣) = (2 · (♯‘𝑒))))
94		df-ov 7365	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘VtxDeg𝑒) = (VtxDeg‘⟨𝑘, 𝑒⟩)
95	94	fveq1i 6837	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘VtxDeg𝑒)‘𝑣) = ((VtxDeg‘⟨𝑘, 𝑒⟩)‘𝑣)
96	95	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑣 ∈ 𝑘 → ((𝑘VtxDeg𝑒)‘𝑣) = ((VtxDeg‘⟨𝑘, 𝑒⟩)‘𝑣))
97	96	sumeq2i 15655	. . . . . . . . . . . . . . 15 ⊢ Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = Σ𝑣 ∈ 𝑘 ((VtxDeg‘⟨𝑘, 𝑒⟩)‘𝑣)
98	97	eqeq1i 2742	. . . . . . . . . . . . . 14 ⊢ (Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒)) ↔ Σ𝑣 ∈ 𝑘 ((VtxDeg‘⟨𝑘, 𝑒⟩)‘𝑣) = (2 · (♯‘𝑒)))
99	93, 98	imbitrrdi 252	. . . . . . . . . . . . 13 ⊢ (((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑛 ∈ 𝑘) ∧ (𝑘 ∈ Fin ∧ 𝑒 ∈ Fin)) → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))
100	99	exp32 420	. . . . . . . . . . . 12 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑛 ∈ 𝑘) → (𝑘 ∈ Fin → (𝑒 ∈ Fin → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))))
101	100	com34 91	. . . . . . . . . . 11 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ 𝑛 ∈ 𝑘) → (𝑘 ∈ Fin → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))))
102	101	3adant2 1132	. . . . . . . . . 10 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑘) → (𝑘 ∈ Fin → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))))
103	81, 102	syl5 34	. . . . . . . . 9 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑘) → ((♯‘𝑘) ∈ ℕ0 → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))))
104	78, 103	sylbid 240	. . . . . . . 8 ⊢ ((⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑘) → ((𝑦 + 1) ∈ ℕ0 → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))))
105	104	impcom 407	. . . . . . 7 ⊢ (((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑘)) → ((((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})))) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒)))))
106	105	imp 406	. . . . . 6 ⊢ ((((𝑦 + 1) ∈ ℕ0 ∧ (⟨𝑘, 𝑒⟩ ∈ UPGraph ∧ (♯‘𝑘) = (𝑦 + 1) ∧ 𝑛 ∈ 𝑘)) ∧ (((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}) ∈ Fin → Σ𝑣 ∈ (𝑘 ∖ {𝑛})((VtxDeg‘⟨(𝑘 ∖ {𝑛}), ((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)})⟩)‘𝑣) = (2 · (♯‘((iEdg‘⟨𝑘, 𝑒⟩) ↾ {𝑖 ∈ dom (iEdg‘⟨𝑘, 𝑒⟩) ∣ 𝑛 ∉ ((iEdg‘⟨𝑘, 𝑒⟩)‘𝑖)}))))) → (𝑒 ∈ Fin → Σ𝑣 ∈ 𝑘 ((𝑘VtxDeg𝑒)‘𝑣) = (2 · (♯‘𝑒))))
107	2, 4, 16, 30, 38, 51, 75, 106	opfi1ind 14469	. . . . 5 ⊢ ((⟨(Vtx‘𝐺), (iEdg‘𝐺)⟩ ∈ UPGraph ∧ (Vtx‘𝐺) ∈ Fin) → ((iEdg‘𝐺) ∈ Fin → Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺)))))
108	107	ex 412	. . . 4 ⊢ (⟨(Vtx‘𝐺), (iEdg‘𝐺)⟩ ∈ UPGraph → ((Vtx‘𝐺) ∈ Fin → ((iEdg‘𝐺) ∈ Fin → Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺))))))
109	1, 108	syl 17	. . 3 ⊢ (𝐺 ∈ UPGraph → ((Vtx‘𝐺) ∈ Fin → ((iEdg‘𝐺) ∈ Fin → Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺))))))
110		sumvtxdg2size.v	. . . . 5 ⊢ 𝑉 = (Vtx‘𝐺)
111	110	eleq1i 2828	. . . 4 ⊢ (𝑉 ∈ Fin ↔ (Vtx‘𝐺) ∈ Fin)
112	111	a1i 11	. . 3 ⊢ (𝐺 ∈ UPGraph → (𝑉 ∈ Fin ↔ (Vtx‘𝐺) ∈ Fin))
113		sumvtxdg2size.i	. . . . . 6 ⊢ 𝐼 = (iEdg‘𝐺)
114	113	eleq1i 2828	. . . . 5 ⊢ (𝐼 ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin)
115	114	a1i 11	. . . 4 ⊢ (𝐺 ∈ UPGraph → (𝐼 ∈ Fin ↔ (iEdg‘𝐺) ∈ Fin))
116	110	a1i 11	. . . . . 6 ⊢ (𝐺 ∈ UPGraph → 𝑉 = (Vtx‘𝐺))
117		sumvtxdg2size.d	. . . . . . . . 9 ⊢ 𝐷 = (VtxDeg‘𝐺)
118		vtxdgop 29558	. . . . . . . . 9 ⊢ (𝐺 ∈ UPGraph → (VtxDeg‘𝐺) = ((Vtx‘𝐺)VtxDeg(iEdg‘𝐺)))
119	117, 118	eqtrid 2784	. . . . . . . 8 ⊢ (𝐺 ∈ UPGraph → 𝐷 = ((Vtx‘𝐺)VtxDeg(iEdg‘𝐺)))
120	119	fveq1d 6838	. . . . . . 7 ⊢ (𝐺 ∈ UPGraph → (𝐷‘𝑣) = (((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣))
121	120	adantr 480	. . . . . 6 ⊢ ((𝐺 ∈ UPGraph ∧ 𝑣 ∈ 𝑉) → (𝐷‘𝑣) = (((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣))
122	116, 121	sumeq12dv 15663	. . . . 5 ⊢ (𝐺 ∈ UPGraph → Σ𝑣 ∈ 𝑉 (𝐷‘𝑣) = Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣))
123	113	fveq2i 6839	. . . . . . 7 ⊢ (♯‘𝐼) = (♯‘(iEdg‘𝐺))
124	123	oveq2i 7373	. . . . . 6 ⊢ (2 · (♯‘𝐼)) = (2 · (♯‘(iEdg‘𝐺)))
125	124	a1i 11	. . . . 5 ⊢ (𝐺 ∈ UPGraph → (2 · (♯‘𝐼)) = (2 · (♯‘(iEdg‘𝐺))))
126	122, 125	eqeq12d 2753	. . . 4 ⊢ (𝐺 ∈ UPGraph → (Σ𝑣 ∈ 𝑉 (𝐷‘𝑣) = (2 · (♯‘𝐼)) ↔ Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺)))))
127	115, 126	imbi12d 344	. . 3 ⊢ (𝐺 ∈ UPGraph → ((𝐼 ∈ Fin → Σ𝑣 ∈ 𝑉 (𝐷‘𝑣) = (2 · (♯‘𝐼))) ↔ ((iEdg‘𝐺) ∈ Fin → Σ𝑣 ∈ (Vtx‘𝐺)(((Vtx‘𝐺)VtxDeg(iEdg‘𝐺))‘𝑣) = (2 · (♯‘(iEdg‘𝐺))))))
128	109, 112, 127	3imtr4d 294	. 2 ⊢ (𝐺 ∈ UPGraph → (𝑉 ∈ Fin → (𝐼 ∈ Fin → Σ𝑣 ∈ 𝑉 (𝐷‘𝑣) = (2 · (♯‘𝐼)))))
129	128	3imp 1111	1 ⊢ ((𝐺 ∈ UPGraph ∧ 𝑉 ∈ Fin ∧ 𝐼 ∈ Fin) → Σ𝑣 ∈ 𝑉 (𝐷‘𝑣) = (2 · (♯‘𝐼)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ∉ wnel 3037  {crab 3390  Vcvv 3430   ∖ cdif 3887  ∅c0 4274  {csn 4568  ⟨cop 4574  dom cdm 5626   ↾ cres 5628  ‘cfv 6494  (class class class)co 7362  Fincfn 8888  0cc0 11033  1c1 11034   + caddc 11036   · cmul 11038  2c2 12231  ℕ₀cn0 12432  ♯chash 14287  Σcsu 15643  Vtxcvtx 29083  iEdgciedg 29084  UHGraphcuhgr 29143  UPGraphcupgr 29167  VtxDegcvtxdg 29553

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5304  ax-pr 5372  ax-un 7684  ax-inf2 9557  ax-cnex 11089  ax-resscn 11090  ax-1cn 11091  ax-icn 11092  ax-addcl 11093  ax-addrcl 11094  ax-mulcl 11095  ax-mulrcl 11096  ax-mulcom 11097  ax-addass 11098  ax-mulass 11099  ax-distr 11100  ax-i2m1 11101  ax-1ne0 11102  ax-1rid 11103  ax-rnegex 11104  ax-rrecex 11105  ax-cnre 11106  ax-pre-lttri 11107  ax-pre-lttrn 11108  ax-pre-ltadd 11109  ax-pre-mulgt0 11110  ax-pre-sup 11111

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-disj 5054  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5521  df-eprel 5526  df-po 5534  df-so 5535  df-fr 5579  df-se 5580  df-we 5581  df-xp 5632  df-rel 5633  df-cnv 5634  df-co 5635  df-dm 5636  df-rn 5637  df-res 5638  df-ima 5639  df-pred 6261  df-ord 6322  df-on 6323  df-lim 6324  df-suc 6325  df-iota 6450  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-isom 6503  df-riota 7319  df-ov 7365  df-oprab 7366  df-mpo 7367  df-om 7813  df-1st 7937  df-2nd 7938  df-frecs 8226  df-wrecs 8257  df-recs 8306  df-rdg 8344  df-1o 8400  df-2o 8401  df-oadd 8404  df-er 8638  df-en 8889  df-dom 8890  df-sdom 8891  df-fin 8892  df-sup 9350  df-oi 9420  df-dju 9820  df-card 9858  df-pnf 11176  df-mnf 11177  df-xr 11178  df-ltxr 11179  df-le 11180  df-sub 11374  df-neg 11375  df-div 11803  df-nn 12170  df-2 12239  df-3 12240  df-n0 12433  df-xnn0 12506  df-z 12520  df-uz 12784  df-rp 12938  df-xadd 13059  df-fz 13457  df-fzo 13604  df-seq 13959  df-exp 14019  df-hash 14288  df-cj 15056  df-re 15057  df-im 15058  df-sqrt 15192  df-abs 15193  df-clim 15445  df-sum 15644  df-vtx 29085  df-iedg 29086  df-edg 29135  df-uhgr 29145  df-upgr 29169  df-vtxdg 29554

This theorem is referenced by:  fusgr1th  29639  finsumvtxdgeven  29640