ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  vtxdfifiun GIF version

Theorem vtxdfifiun 16174
Description: The degree of a vertex in the union of two pseudographs of finite size on the same finite vertex set is the sum of the degrees of the vertex in each pseudograph. (Contributed by Mario Carneiro, 12-Mar-2015.) (Revised by Alexander van der Vekens, 21-Jan-2018.) (Revised by AV, 19-Feb-2021.)
Hypotheses
Ref Expression
vtxdun.i 𝐼 = (iEdg‘𝐺)
vtxdun.j 𝐽 = (iEdg‘𝐻)
vtxdun.vg 𝑉 = (Vtx‘𝐺)
vtxdun.vh (𝜑 → (Vtx‘𝐻) = 𝑉)
vtxdun.vu (𝜑 → (Vtx‘𝑈) = 𝑉)
vtxdfifiun.v (𝜑𝑉 ∈ Fin)
vtxdfifiun.g (𝜑𝐺 ∈ UPGraph)
vtxdfifiun.h (𝜑𝐻 ∈ UPGraph)
vtxdun.d (𝜑 → (dom 𝐼 ∩ dom 𝐽) = ∅)
vtxdun.fi (𝜑 → Fun 𝐼)
vtxdun.fj (𝜑 → Fun 𝐽)
vtxdun.n (𝜑𝑁𝑉)
vtxdun.u (𝜑 → (iEdg‘𝑈) = (𝐼𝐽))
vtxdfiun.a (𝜑 → dom 𝐼 ∈ Fin)
vtxdfiun.b (𝜑 → dom 𝐽 ∈ Fin)
Assertion
Ref Expression
vtxdfifiun (𝜑 → ((VtxDeg‘𝑈)‘𝑁) = (((VtxDeg‘𝐺)‘𝑁) + ((VtxDeg‘𝐻)‘𝑁)))

Proof of Theorem vtxdfifiun
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 df-rab 2518 . . . . . . . 8 {𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = {𝑥 ∣ (𝑥 ∈ dom (iEdg‘𝑈) ∧ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥))}
2 vtxdun.u . . . . . . . . . . . . . . 15 (𝜑 → (iEdg‘𝑈) = (𝐼𝐽))
32dmeqd 4932 . . . . . . . . . . . . . 14 (𝜑 → dom (iEdg‘𝑈) = dom (𝐼𝐽))
4 dmun 4937 . . . . . . . . . . . . . 14 dom (𝐼𝐽) = (dom 𝐼 ∪ dom 𝐽)
53, 4eqtrdi 2279 . . . . . . . . . . . . 13 (𝜑 → dom (iEdg‘𝑈) = (dom 𝐼 ∪ dom 𝐽))
65eleq2d 2300 . . . . . . . . . . . 12 (𝜑 → (𝑥 ∈ dom (iEdg‘𝑈) ↔ 𝑥 ∈ (dom 𝐼 ∪ dom 𝐽)))
7 elun 3347 . . . . . . . . . . . 12 (𝑥 ∈ (dom 𝐼 ∪ dom 𝐽) ↔ (𝑥 ∈ dom 𝐼𝑥 ∈ dom 𝐽))
86, 7bitrdi 196 . . . . . . . . . . 11 (𝜑 → (𝑥 ∈ dom (iEdg‘𝑈) ↔ (𝑥 ∈ dom 𝐼𝑥 ∈ dom 𝐽)))
98anbi1d 465 . . . . . . . . . 10 (𝜑 → ((𝑥 ∈ dom (iEdg‘𝑈) ∧ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ↔ ((𝑥 ∈ dom 𝐼𝑥 ∈ dom 𝐽) ∧ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥))))
10 andir 826 . . . . . . . . . 10 (((𝑥 ∈ dom 𝐼𝑥 ∈ dom 𝐽) ∧ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ↔ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))))
119, 10bitrdi 196 . . . . . . . . 9 (𝜑 → ((𝑥 ∈ dom (iEdg‘𝑈) ∧ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ↔ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)))))
1211abbidv 2348 . . . . . . . 8 (𝜑 → {𝑥 ∣ (𝑥 ∈ dom (iEdg‘𝑈) ∧ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} = {𝑥 ∣ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)))})
131, 12eqtrid 2275 . . . . . . 7 (𝜑 → {𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = {𝑥 ∣ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)))})
14 unab 3473 . . . . . . . . 9 ({𝑥 ∣ (𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))}) = {𝑥 ∣ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)))}
1514eqcomi 2234 . . . . . . . 8 {𝑥 ∣ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)))} = ({𝑥 ∣ (𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))})
1615a1i 9 . . . . . . 7 (𝜑 → {𝑥 ∣ ((𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)) ∨ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)))} = ({𝑥 ∣ (𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))}))
17 df-rab 2518 . . . . . . . . 9 {𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = {𝑥 ∣ (𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥))}
182fveq1d 5641 . . . . . . . . . . . . 13 (𝜑 → ((iEdg‘𝑈)‘𝑥) = ((𝐼𝐽)‘𝑥))
1918adantr 276 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ dom 𝐼) → ((iEdg‘𝑈)‘𝑥) = ((𝐼𝐽)‘𝑥))
20 vtxdun.fi . . . . . . . . . . . . . . 15 (𝜑 → Fun 𝐼)
2120funfnd 5356 . . . . . . . . . . . . . 14 (𝜑𝐼 Fn dom 𝐼)
2221adantr 276 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ dom 𝐼) → 𝐼 Fn dom 𝐼)
23 vtxdun.fj . . . . . . . . . . . . . . 15 (𝜑 → Fun 𝐽)
2423funfnd 5356 . . . . . . . . . . . . . 14 (𝜑𝐽 Fn dom 𝐽)
2524adantr 276 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ dom 𝐼) → 𝐽 Fn dom 𝐽)
26 vtxdun.d . . . . . . . . . . . . . 14 (𝜑 → (dom 𝐼 ∩ dom 𝐽) = ∅)
2726anim1i 340 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ dom 𝐼) → ((dom 𝐼 ∩ dom 𝐽) = ∅ ∧ 𝑥 ∈ dom 𝐼))
28 fvun1 5712 . . . . . . . . . . . . 13 ((𝐼 Fn dom 𝐼𝐽 Fn dom 𝐽 ∧ ((dom 𝐼 ∩ dom 𝐽) = ∅ ∧ 𝑥 ∈ dom 𝐼)) → ((𝐼𝐽)‘𝑥) = (𝐼𝑥))
2922, 25, 27, 28syl3anc 1273 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ dom 𝐼) → ((𝐼𝐽)‘𝑥) = (𝐼𝑥))
3019, 29eqtrd 2263 . . . . . . . . . . 11 ((𝜑𝑥 ∈ dom 𝐼) → ((iEdg‘𝑈)‘𝑥) = (𝐼𝑥))
3130eleq2d 2300 . . . . . . . . . 10 ((𝜑𝑥 ∈ dom 𝐼) → (𝑁 ∈ ((iEdg‘𝑈)‘𝑥) ↔ 𝑁 ∈ (𝐼𝑥)))
3231rabbidva 2789 . . . . . . . . 9 (𝜑 → {𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = {𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)})
3317, 32eqtr3id 2277 . . . . . . . 8 (𝜑 → {𝑥 ∣ (𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} = {𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)})
34 df-rab 2518 . . . . . . . . 9 {𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = {𝑥 ∣ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))}
3518adantr 276 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ dom 𝐽) → ((iEdg‘𝑈)‘𝑥) = ((𝐼𝐽)‘𝑥))
3621adantr 276 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ dom 𝐽) → 𝐼 Fn dom 𝐼)
3724adantr 276 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ dom 𝐽) → 𝐽 Fn dom 𝐽)
3826anim1i 340 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ dom 𝐽) → ((dom 𝐼 ∩ dom 𝐽) = ∅ ∧ 𝑥 ∈ dom 𝐽))
39 fvun2 5713 . . . . . . . . . . . . 13 ((𝐼 Fn dom 𝐼𝐽 Fn dom 𝐽 ∧ ((dom 𝐼 ∩ dom 𝐽) = ∅ ∧ 𝑥 ∈ dom 𝐽)) → ((𝐼𝐽)‘𝑥) = (𝐽𝑥))
4036, 37, 38, 39syl3anc 1273 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ dom 𝐽) → ((𝐼𝐽)‘𝑥) = (𝐽𝑥))
4135, 40eqtrd 2263 . . . . . . . . . . 11 ((𝜑𝑥 ∈ dom 𝐽) → ((iEdg‘𝑈)‘𝑥) = (𝐽𝑥))
4241eleq2d 2300 . . . . . . . . . 10 ((𝜑𝑥 ∈ dom 𝐽) → (𝑁 ∈ ((iEdg‘𝑈)‘𝑥) ↔ 𝑁 ∈ (𝐽𝑥)))
4342rabbidva 2789 . . . . . . . . 9 (𝜑 → {𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})
4434, 43eqtr3id 2277 . . . . . . . 8 (𝜑 → {𝑥 ∣ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} = {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})
4533, 44uneq12d 3361 . . . . . . 7 (𝜑 → ({𝑥 ∣ (𝑥 ∈ dom 𝐼𝑁 ∈ ((iEdg‘𝑈)‘𝑥))} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽𝑁 ∈ ((iEdg‘𝑈)‘𝑥))}) = ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∪ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}))
4613, 16, 453eqtrd 2267 . . . . . 6 (𝜑 → {𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)} = ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∪ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}))
4746fveq2d 5643 . . . . 5 (𝜑 → (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)}) = (♯‘({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∪ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})))
48 vtxdun.vg . . . . . . 7 𝑉 = (Vtx‘𝐺)
49 vtxdun.i . . . . . . 7 𝐼 = (iEdg‘𝐺)
50 eqid 2230 . . . . . . 7 dom 𝐼 = dom 𝐼
51 vtxdfiun.a . . . . . . 7 (𝜑 → dom 𝐼 ∈ Fin)
52 vtxdfifiun.v . . . . . . 7 (𝜑𝑉 ∈ Fin)
53 vtxdun.n . . . . . . 7 (𝜑𝑁𝑉)
54 vtxdfifiun.g . . . . . . 7 (𝜑𝐺 ∈ UPGraph)
5548, 49, 50, 51, 52, 53, 54vtxedgfi 16166 . . . . . 6 (𝜑 → {𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∈ Fin)
56 eqid 2230 . . . . . . 7 (Vtx‘𝐻) = (Vtx‘𝐻)
57 vtxdun.j . . . . . . 7 𝐽 = (iEdg‘𝐻)
58 eqid 2230 . . . . . . 7 dom 𝐽 = dom 𝐽
59 vtxdfiun.b . . . . . . 7 (𝜑 → dom 𝐽 ∈ Fin)
60 vtxdun.vh . . . . . . . 8 (𝜑 → (Vtx‘𝐻) = 𝑉)
6160, 52eqeltrd 2307 . . . . . . 7 (𝜑 → (Vtx‘𝐻) ∈ Fin)
6253, 60eleqtrrd 2310 . . . . . . 7 (𝜑𝑁 ∈ (Vtx‘𝐻))
63 vtxdfifiun.h . . . . . . 7 (𝜑𝐻 ∈ UPGraph)
6456, 57, 58, 59, 61, 62, 63vtxedgfi 16166 . . . . . 6 (𝜑 → {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)} ∈ Fin)
65 ssrab2 3311 . . . . . . . . 9 {𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ⊆ dom 𝐼
66 ssrab2 3311 . . . . . . . . 9 {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)} ⊆ dom 𝐽
67 ss2in 3434 . . . . . . . . 9 (({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ⊆ dom 𝐼 ∧ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)} ⊆ dom 𝐽) → ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ⊆ (dom 𝐼 ∩ dom 𝐽))
6865, 66, 67mp2an 426 . . . . . . . 8 ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ⊆ (dom 𝐼 ∩ dom 𝐽)
6968, 26sseqtrid 3276 . . . . . . 7 (𝜑 → ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ⊆ ∅)
70 ss0 3534 . . . . . . 7 (({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ⊆ ∅ → ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) = ∅)
7169, 70syl 14 . . . . . 6 (𝜑 → ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) = ∅)
72 hashun 11071 . . . . . 6 (({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∈ Fin ∧ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)} ∈ Fin ∧ ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∩ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) = ∅) → (♯‘({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∪ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})) = ((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})))
7355, 64, 71, 72syl3anc 1273 . . . . 5 (𝜑 → (♯‘({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∪ {𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})) = ((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})))
7447, 73eqtrd 2263 . . . 4 (𝜑 → (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)}) = ((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})))
75 df-rab 2518 . . . . . . . 8 {𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = {𝑥 ∣ (𝑥 ∈ dom (iEdg‘𝑈) ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})}
768anbi1d 465 . . . . . . . . . 10 (𝜑 → ((𝑥 ∈ dom (iEdg‘𝑈) ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ↔ ((𝑥 ∈ dom 𝐼𝑥 ∈ dom 𝐽) ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})))
77 andir 826 . . . . . . . . . 10 (((𝑥 ∈ dom 𝐼𝑥 ∈ dom 𝐽) ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ↔ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})))
7876, 77bitrdi 196 . . . . . . . . 9 (𝜑 → ((𝑥 ∈ dom (iEdg‘𝑈) ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ↔ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}))))
7978abbidv 2348 . . . . . . . 8 (𝜑 → {𝑥 ∣ (𝑥 ∈ dom (iEdg‘𝑈) ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} = {𝑥 ∣ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}))})
8075, 79eqtrid 2275 . . . . . . 7 (𝜑 → {𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = {𝑥 ∣ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}))})
81 unab 3473 . . . . . . . . 9 ({𝑥 ∣ (𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})}) = {𝑥 ∣ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}))}
8281eqcomi 2234 . . . . . . . 8 {𝑥 ∣ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}))} = ({𝑥 ∣ (𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})})
8382a1i 9 . . . . . . 7 (𝜑 → {𝑥 ∣ ((𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}) ∨ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁}))} = ({𝑥 ∣ (𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})}))
84 df-rab 2518 . . . . . . . . 9 {𝑥 ∈ dom 𝐼 ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = {𝑥 ∣ (𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})}
8530eqeq1d 2239 . . . . . . . . . 10 ((𝜑𝑥 ∈ dom 𝐼) → (((iEdg‘𝑈)‘𝑥) = {𝑁} ↔ (𝐼𝑥) = {𝑁}))
8685rabbidva 2789 . . . . . . . . 9 (𝜑 → {𝑥 ∈ dom 𝐼 ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = {𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}})
8784, 86eqtr3id 2277 . . . . . . . 8 (𝜑 → {𝑥 ∣ (𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} = {𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}})
88 df-rab 2518 . . . . . . . . 9 {𝑥 ∈ dom 𝐽 ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = {𝑥 ∣ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})}
8941eqeq1d 2239 . . . . . . . . . 10 ((𝜑𝑥 ∈ dom 𝐽) → (((iEdg‘𝑈)‘𝑥) = {𝑁} ↔ (𝐽𝑥) = {𝑁}))
9089rabbidva 2789 . . . . . . . . 9 (𝜑 → {𝑥 ∈ dom 𝐽 ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})
9188, 90eqtr3id 2277 . . . . . . . 8 (𝜑 → {𝑥 ∣ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} = {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})
9287, 91uneq12d 3361 . . . . . . 7 (𝜑 → ({𝑥 ∣ (𝑥 ∈ dom 𝐼 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})} ∪ {𝑥 ∣ (𝑥 ∈ dom 𝐽 ∧ ((iEdg‘𝑈)‘𝑥) = {𝑁})}) = ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∪ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))
9380, 83, 923eqtrd 2267 . . . . . 6 (𝜑 → {𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}} = ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∪ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))
9493fveq2d 5643 . . . . 5 (𝜑 → (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}}) = (♯‘({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∪ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})))
9548, 49, 50, 51, 52, 53, 54vtxlpfi 16167 . . . . . 6 (𝜑 → {𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∈ Fin)
9656, 57, 58, 59, 61, 62, 63vtxlpfi 16167 . . . . . 6 (𝜑 → {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}} ∈ Fin)
97 ssrab2 3311 . . . . . . . . 9 {𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ⊆ dom 𝐼
98 ssrab2 3311 . . . . . . . . 9 {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}} ⊆ dom 𝐽
99 ss2in 3434 . . . . . . . . 9 (({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ⊆ dom 𝐼 ∧ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}} ⊆ dom 𝐽) → ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ⊆ (dom 𝐼 ∩ dom 𝐽))
10097, 98, 99mp2an 426 . . . . . . . 8 ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ⊆ (dom 𝐼 ∩ dom 𝐽)
101100, 26sseqtrid 3276 . . . . . . 7 (𝜑 → ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ⊆ ∅)
102 ss0 3534 . . . . . . 7 (({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ⊆ ∅ → ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) = ∅)
103101, 102syl 14 . . . . . 6 (𝜑 → ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) = ∅)
104 hashun 11071 . . . . . 6 (({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∈ Fin ∧ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}} ∈ Fin ∧ ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∩ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) = ∅) → (♯‘({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∪ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})) = ((♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})))
10595, 96, 103, 104syl3anc 1273 . . . . 5 (𝜑 → (♯‘({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∪ {𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})) = ((♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})))
10694, 105eqtrd 2263 . . . 4 (𝜑 → (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}}) = ((♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})))
10774, 106oveq12d 6038 . . 3 (𝜑 → ((♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)}) + (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}})) = (((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})) + ((♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))))
108 hashcl 11046 . . . . . 6 ({𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)} ∈ Fin → (♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) ∈ ℕ0)
10955, 108syl 14 . . . . 5 (𝜑 → (♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) ∈ ℕ0)
110109nn0cnd 9459 . . . 4 (𝜑 → (♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) ∈ ℂ)
111 hashcl 11046 . . . . . 6 ({𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)} ∈ Fin → (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ∈ ℕ0)
11264, 111syl 14 . . . . 5 (𝜑 → (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ∈ ℕ0)
113112nn0cnd 9459 . . . 4 (𝜑 → (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) ∈ ℂ)
114 hashcl 11046 . . . . . 6 ({𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}} ∈ Fin → (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) ∈ ℕ0)
11595, 114syl 14 . . . . 5 (𝜑 → (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) ∈ ℕ0)
116115nn0cnd 9459 . . . 4 (𝜑 → (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) ∈ ℂ)
117 hashcl 11046 . . . . . 6 ({𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}} ∈ Fin → (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ∈ ℕ0)
11896, 117syl 14 . . . . 5 (𝜑 → (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ∈ ℕ0)
119118nn0cnd 9459 . . . 4 (𝜑 → (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}) ∈ ℂ)
120110, 113, 116, 119add4d 8350 . . 3 (𝜑 → (((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)})) + ((♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))) = (((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}})) + ((♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))))
121107, 120eqtrd 2263 . 2 (𝜑 → ((♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)}) + (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}})) = (((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}})) + ((♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))))
122 eqid 2230 . . 3 (Vtx‘𝑈) = (Vtx‘𝑈)
123 eqid 2230 . . 3 (iEdg‘𝑈) = (iEdg‘𝑈)
124 eqid 2230 . . 3 dom (iEdg‘𝑈) = dom (iEdg‘𝑈)
125 unfidisj 7116 . . . . 5 ((dom 𝐼 ∈ Fin ∧ dom 𝐽 ∈ Fin ∧ (dom 𝐼 ∩ dom 𝐽) = ∅) → (dom 𝐼 ∪ dom 𝐽) ∈ Fin)
12651, 59, 26, 125syl3anc 1273 . . . 4 (𝜑 → (dom 𝐼 ∪ dom 𝐽) ∈ Fin)
1275, 126eqeltrd 2307 . . 3 (𝜑 → dom (iEdg‘𝑈) ∈ Fin)
128 vtxdun.vu . . . 4 (𝜑 → (Vtx‘𝑈) = 𝑉)
129128, 52eqeltrd 2307 . . 3 (𝜑 → (Vtx‘𝑈) ∈ Fin)
13053, 128eleqtrrd 2310 . . 3 (𝜑𝑁 ∈ (Vtx‘𝑈))
1311221vgrex 15897 . . . . 5 (𝑁 ∈ (Vtx‘𝑈) → 𝑈 ∈ V)
132130, 131syl 14 . . . 4 (𝜑𝑈 ∈ V)
13354, 63, 49, 57, 48, 60, 26, 132, 128, 2upgrun 16003 . . 3 (𝜑𝑈 ∈ UPGraph)
134122, 123, 124, 127, 129, 130, 133vtxdgfifival 16168 . 2 (𝜑 → ((VtxDeg‘𝑈)‘𝑁) = ((♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ 𝑁 ∈ ((iEdg‘𝑈)‘𝑥)}) + (♯‘{𝑥 ∈ dom (iEdg‘𝑈) ∣ ((iEdg‘𝑈)‘𝑥) = {𝑁}})))
13548, 49, 50, 51, 52, 53, 54vtxdgfifival 16168 . . 3 (𝜑 → ((VtxDeg‘𝐺)‘𝑁) = ((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}})))
13656, 57, 58, 59, 61, 62, 63vtxdgfifival 16168 . . 3 (𝜑 → ((VtxDeg‘𝐻)‘𝑁) = ((♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}})))
137135, 136oveq12d 6038 . 2 (𝜑 → (((VtxDeg‘𝐺)‘𝑁) + ((VtxDeg‘𝐻)‘𝑁)) = (((♯‘{𝑥 ∈ dom 𝐼𝑁 ∈ (𝐼𝑥)}) + (♯‘{𝑥 ∈ dom 𝐼 ∣ (𝐼𝑥) = {𝑁}})) + ((♯‘{𝑥 ∈ dom 𝐽𝑁 ∈ (𝐽𝑥)}) + (♯‘{𝑥 ∈ dom 𝐽 ∣ (𝐽𝑥) = {𝑁}}))))
138121, 134, 1373eqtr4d 2273 1 (𝜑 → ((VtxDeg‘𝑈)‘𝑁) = (((VtxDeg‘𝐺)‘𝑁) + ((VtxDeg‘𝐻)‘𝑁)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wo 715   = wceq 1397  wcel 2201  {cab 2216  {crab 2513  Vcvv 2801  cun 3197  cin 3198  wss 3199  c0 3493  {csn 3668  dom cdm 4724  Fun wfun 5319   Fn wfn 5320  cfv 5325  (class class class)co 6020  Fincfn 6911   + caddc 8037  0cn0 9404  chash 11040  Vtxcvtx 15889  iEdgciedg 15890  UPGraphcupgr 15968  VtxDegcvtxdg 16163
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2203  ax-14 2204  ax-ext 2212  ax-coll 4203  ax-sep 4206  ax-nul 4214  ax-pow 4263  ax-pr 4298  ax-un 4529  ax-setind 4634  ax-iinf 4685  ax-cnex 8125  ax-resscn 8126  ax-1cn 8127  ax-1re 8128  ax-icn 8129  ax-addcl 8130  ax-addrcl 8131  ax-mulcl 8132  ax-addcom 8134  ax-mulcom 8135  ax-addass 8136  ax-mulass 8137  ax-distr 8138  ax-i2m1 8139  ax-0lt1 8140  ax-1rid 8141  ax-0id 8142  ax-rnegex 8143  ax-cnre 8145  ax-pre-ltirr 8146  ax-pre-ltwlin 8147  ax-pre-lttrn 8148  ax-pre-ltadd 8150
This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1810  df-eu 2081  df-mo 2082  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ne 2402  df-nel 2497  df-ral 2514  df-rex 2515  df-reu 2516  df-rab 2518  df-v 2803  df-sbc 3031  df-csb 3127  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-if 3605  df-pw 3653  df-sn 3674  df-pr 3675  df-op 3677  df-uni 3893  df-int 3928  df-iun 3971  df-br 4088  df-opab 4150  df-mpt 4151  df-tr 4187  df-id 4389  df-iord 4462  df-on 4464  df-ilim 4465  df-suc 4467  df-iom 4688  df-xp 4730  df-rel 4731  df-cnv 4732  df-co 4733  df-dm 4734  df-rn 4735  df-res 4736  df-ima 4737  df-iota 5285  df-fun 5327  df-fn 5328  df-f 5329  df-f1 5330  df-fo 5331  df-f1o 5332  df-fv 5333  df-riota 5973  df-ov 6023  df-oprab 6024  df-mpo 6025  df-1st 6305  df-2nd 6306  df-recs 6473  df-irdg 6538  df-frec 6559  df-1o 6584  df-2o 6585  df-oadd 6588  df-er 6704  df-en 6912  df-dom 6913  df-fin 6914  df-pnf 8218  df-mnf 8219  df-xr 8220  df-ltxr 8221  df-le 8222  df-sub 8354  df-neg 8355  df-inn 9146  df-2 9204  df-3 9205  df-4 9206  df-5 9207  df-6 9208  df-7 9209  df-8 9210  df-9 9211  df-n0 9405  df-z 9482  df-dec 9614  df-uz 9758  df-xadd 10010  df-ihash 11041  df-ndx 13105  df-slot 13106  df-base 13108  df-edgf 15882  df-vtx 15891  df-iedg 15892  df-upgren 15970  df-vtxdg 16164
This theorem is referenced by:  p1evtxdeqfilem  16188  trlsegvdegfi  16344
  Copyright terms: Public domain W3C validator