Theorem konigsberglem2 30233

Description: Lemma 2 for konigsberg 30237: Vertex 1 has degree three. (Contributed by Mario Carneiro, 11-Mar-2015.) (Revised by Mario Carneiro, 28-Feb-2016.) (Revised by AV, 4-Mar-2021.)

Hypotheses

Ref	Expression
konigsberg.v	⊢ 𝑉 = (0...3)
konigsberg.e	⊢ 𝐸 = ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩
konigsberg.g	⊢ 𝐺 = ⟨𝑉, 𝐸⟩

Assertion

Ref	Expression
konigsberglem2	⊢ ((VtxDeg‘𝐺)‘1) = 3

Proof of Theorem konigsberglem2

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ovex 7379	. . . 4 ⊢ (0...3) ∈ V
2		s6cli 14791	. . . . 5 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ∈ Word V
3	2	elexi 3459	. . . 4 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ∈ V
4	1, 3	opvtxfvi 28987	. . 3 ⊢ (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩⟩) = (0...3)
5	4	eqcomi 2740	. 2 ⊢ (0...3) = (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩⟩)
6		1nn0 12397	. . 3 ⊢ 1 ∈ ℕ0
7		3nn0 12399	. . 3 ⊢ 3 ∈ ℕ0
8		1le3 12332	. . 3 ⊢ 1 ≤ 3
9		elfz2nn0 13518	. . 3 ⊢ (1 ∈ (0...3) ↔ (1 ∈ ℕ0 ∧ 3 ∈ ℕ0 ∧ 1 ≤ 3))
10	6, 7, 8, 9	mpbir3an 1342	. 2 ⊢ 1 ∈ (0...3)
11	1, 3	opiedgfvi 28988	. . 3 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩⟩) = ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩
12	11	eqcomi 2740	. 2 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ = (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩⟩)
13		s1cli 14513	. . 3 ⊢ ⟨“{2, 3}”⟩ ∈ Word V
14		df-s7 14760	. . 3 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ++ ⟨“{2, 3}”⟩)
15		eqid 2731	. . . 4 ⊢ (0...3) = (0...3)
16		eqid 2731	. . . 4 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩
17		eqid 2731	. . . 4 ⊢ ⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩⟩ = ⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩⟩
18	15, 16, 17	konigsbergssiedgw 30230	. . 3 ⊢ ((⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ∈ Word V ∧ ⟨“{2, 3}”⟩ ∈ Word V ∧ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ++ ⟨“{2, 3}”⟩)) → ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2})
19	2, 13, 14, 18	mp3an 1463	. 2 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
20		s5cli 14790	. . . . . 6 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ∈ Word V
21	20	elexi 3459	. . . . 5 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ∈ V
22	1, 21	opvtxfvi 28987	. . . 4 ⊢ (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩) = (0...3)
23	22	eqcomi 2740	. . 3 ⊢ (0...3) = (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩)
24	1, 21	opiedgfvi 28988	. . . 4 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩) = ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩
25	24	eqcomi 2740	. . 3 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ = (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩)
26		s2cli 14787	. . . 4 ⊢ ⟨“{2, 3} {2, 3}”⟩ ∈ Word V
27		s5s2 14842	. . . 4 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ++ ⟨“{2, 3} {2, 3}”⟩)
28	15, 16, 17	konigsbergssiedgw 30230	. . . 4 ⊢ ((⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ∈ Word V ∧ ⟨“{2, 3} {2, 3}”⟩ ∈ Word V ∧ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ++ ⟨“{2, 3} {2, 3}”⟩)) → ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2})
29	20, 26, 27, 28	mp3an 1463	. . 3 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
30		s4cli 14789	. . . . . . . 8 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ∈ Word V
31	30	elexi 3459	. . . . . . 7 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ∈ V
32	1, 31	opvtxfvi 28987	. . . . . 6 ⊢ (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩) = (0...3)
33	32	eqcomi 2740	. . . . 5 ⊢ (0...3) = (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩)
34	1, 31	opiedgfvi 28988	. . . . . 6 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩) = ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩
35	34	eqcomi 2740	. . . . 5 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ = (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩)
36		s3cli 14788	. . . . . 6 ⊢ ⟨“{1, 2} {2, 3} {2, 3}”⟩ ∈ Word V
37		s4s3 14838	. . . . . 6 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ++ ⟨“{1, 2} {2, 3} {2, 3}”⟩)
38	15, 16, 17	konigsbergssiedgw 30230	. . . . . 6 ⊢ ((⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ∈ Word V ∧ ⟨“{1, 2} {2, 3} {2, 3}”⟩ ∈ Word V ∧ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ++ ⟨“{1, 2} {2, 3} {2, 3}”⟩)) → ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2})
39	30, 36, 37, 38	mp3an 1463	. . . . 5 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
40		s3cli 14788	. . . . . . . . . 10 ⊢ ⟨“{0, 1} {0, 2} {0, 3}”⟩ ∈ Word V
41	40	elexi 3459	. . . . . . . . 9 ⊢ ⟨“{0, 1} {0, 2} {0, 3}”⟩ ∈ V
42	1, 41	opvtxfvi 28987	. . . . . . . 8 ⊢ (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3}”⟩⟩) = (0...3)
43	42	eqcomi 2740	. . . . . . 7 ⊢ (0...3) = (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3}”⟩⟩)
44	1, 41	opiedgfvi 28988	. . . . . . . 8 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3}”⟩⟩) = ⟨“{0, 1} {0, 2} {0, 3}”⟩
45	44	eqcomi 2740	. . . . . . 7 ⊢ ⟨“{0, 1} {0, 2} {0, 3}”⟩ = (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3}”⟩⟩)
46		s4cli 14789	. . . . . . . 8 ⊢ ⟨“{1, 2} {1, 2} {2, 3} {2, 3}”⟩ ∈ Word V
47		s3s4 14840	. . . . . . . 8 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3}”⟩ ++ ⟨“{1, 2} {1, 2} {2, 3} {2, 3}”⟩)
48	15, 16, 17	konigsbergssiedgw 30230	. . . . . . . 8 ⊢ ((⟨“{0, 1} {0, 2} {0, 3}”⟩ ∈ Word V ∧ ⟨“{1, 2} {1, 2} {2, 3} {2, 3}”⟩ ∈ Word V ∧ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3}”⟩ ++ ⟨“{1, 2} {1, 2} {2, 3} {2, 3}”⟩)) → ⟨“{0, 1} {0, 2} {0, 3}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2})
49	40, 46, 47, 48	mp3an 1463	. . . . . . 7 ⊢ ⟨“{0, 1} {0, 2} {0, 3}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
50		s2cli 14787	. . . . . . . . . . 11 ⊢ ⟨“{0, 1} {0, 2}”⟩ ∈ Word V
51	50	elexi 3459	. . . . . . . . . 10 ⊢ ⟨“{0, 1} {0, 2}”⟩ ∈ V
52	1, 51	opvtxfvi 28987	. . . . . . . . 9 ⊢ (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2}”⟩⟩) = (0...3)
53	52	eqcomi 2740	. . . . . . . 8 ⊢ (0...3) = (Vtx‘⟨(0...3), ⟨“{0, 1} {0, 2}”⟩⟩)
54	1, 51	opiedgfvi 28988	. . . . . . . . 9 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2}”⟩⟩) = ⟨“{0, 1} {0, 2}”⟩
55	54	eqcomi 2740	. . . . . . . 8 ⊢ ⟨“{0, 1} {0, 2}”⟩ = (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2}”⟩⟩)
56		s5cli 14790	. . . . . . . . 9 ⊢ ⟨“{0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ ∈ Word V
57		s2s5 14841	. . . . . . . . 9 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2}”⟩ ++ ⟨“{0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩)
58	15, 16, 17	konigsbergssiedgw 30230	. . . . . . . . 9 ⊢ ((⟨“{0, 1} {0, 2}”⟩ ∈ Word V ∧ ⟨“{0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ ∈ Word V ∧ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1} {0, 2}”⟩ ++ ⟨“{0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩)) → ⟨“{0, 1} {0, 2}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2})
59	50, 56, 57, 58	mp3an 1463	. . . . . . . 8 ⊢ ⟨“{0, 1} {0, 2}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
60		s1cli 14513	. . . . . . . . . . . 12 ⊢ ⟨“{0, 1}”⟩ ∈ Word V
61	60	elexi 3459	. . . . . . . . . . 11 ⊢ ⟨“{0, 1}”⟩ ∈ V
62	1, 61	opvtxfvi 28987	. . . . . . . . . 10 ⊢ (Vtx‘⟨(0...3), ⟨“{0, 1}”⟩⟩) = (0...3)
63	62	eqcomi 2740	. . . . . . . . 9 ⊢ (0...3) = (Vtx‘⟨(0...3), ⟨“{0, 1}”⟩⟩)
64	1, 61	opiedgfvi 28988	. . . . . . . . . 10 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1}”⟩⟩) = ⟨“{0, 1}”⟩
65	64	eqcomi 2740	. . . . . . . . 9 ⊢ ⟨“{0, 1}”⟩ = (iEdg‘⟨(0...3), ⟨“{0, 1}”⟩⟩)
66		s6cli 14791	. . . . . . . . . 10 ⊢ ⟨“{0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ ∈ Word V
67		s1s6 14834	. . . . . . . . . 10 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1}”⟩ ++ ⟨“{0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩)
68	15, 16, 17	konigsbergssiedgw 30230	. . . . . . . . . 10 ⊢ ((⟨“{0, 1}”⟩ ∈ Word V ∧ ⟨“{0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ ∈ Word V ∧ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩ = (⟨“{0, 1}”⟩ ++ ⟨“{0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩)) → ⟨“{0, 1}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2})
69	60, 66, 67, 68	mp3an 1463	. . . . . . . . 9 ⊢ ⟨“{0, 1}”⟩ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
70		0ex 5243	. . . . . . . . . . . . 13 ⊢ ∅ ∈ V
71	1, 70	opvtxfvi 28987	. . . . . . . . . . . 12 ⊢ (Vtx‘⟨(0...3), ∅⟩) = (0...3)
72	71	eqcomi 2740	. . . . . . . . . . 11 ⊢ (0...3) = (Vtx‘⟨(0...3), ∅⟩)
73	1, 70	opiedgfvi 28988	. . . . . . . . . . . 12 ⊢ (iEdg‘⟨(0...3), ∅⟩) = ∅
74	73	eqcomi 2740	. . . . . . . . . . 11 ⊢ ∅ = (iEdg‘⟨(0...3), ∅⟩)
75		wrd0 14446	. . . . . . . . . . 11 ⊢ ∅ ∈ Word {𝑥 ∈ (𝒫 (0...3) ∖ {∅}) ∣ (♯‘𝑥) ≤ 2}
76		eqid 2731	. . . . . . . . . . . 12 ⊢ ∅ = ∅
77	72, 74	vtxdg0e 29453	. . . . . . . . . . . 12 ⊢ ((1 ∈ (0...3) ∧ ∅ = ∅) → ((VtxDeg‘⟨(0...3), ∅⟩)‘1) = 0)
78	10, 76, 77	mp2an 692	. . . . . . . . . . 11 ⊢ ((VtxDeg‘⟨(0...3), ∅⟩)‘1) = 0
79		0elfz 13524	. . . . . . . . . . . 12 ⊢ (3 ∈ ℕ0 → 0 ∈ (0...3))
80	7, 79	ax-mp 5	. . . . . . . . . . 11 ⊢ 0 ∈ (0...3)
81		0ne1 12196	. . . . . . . . . . 11 ⊢ 0 ≠ 1
82		s0s1 14829	. . . . . . . . . . . 12 ⊢ ⟨“{0, 1}”⟩ = (∅ ++ ⟨“{0, 1}”⟩)
83	64, 82	eqtri 2754	. . . . . . . . . . 11 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1}”⟩⟩) = (∅ ++ ⟨“{0, 1}”⟩)
84	72, 10, 74, 75, 78, 62, 80, 81, 83	vdegp1ci 29517	. . . . . . . . . 10 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1}”⟩⟩)‘1) = (0 + 1)
85		0p1e1 12242	. . . . . . . . . 10 ⊢ (0 + 1) = 1
86	84, 85	eqtri 2754	. . . . . . . . 9 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1}”⟩⟩)‘1) = 1
87		2nn0 12398	. . . . . . . . . 10 ⊢ 2 ∈ ℕ0
88		2re 12199	. . . . . . . . . . 11 ⊢ 2 ∈ ℝ
89		3re 12205	. . . . . . . . . . 11 ⊢ 3 ∈ ℝ
90		2lt3 12292	. . . . . . . . . . 11 ⊢ 2 < 3
91	88, 89, 90	ltleii 11236	. . . . . . . . . 10 ⊢ 2 ≤ 3
92		elfz2nn0 13518	. . . . . . . . . 10 ⊢ (2 ∈ (0...3) ↔ (2 ∈ ℕ0 ∧ 3 ∈ ℕ0 ∧ 2 ≤ 3))
93	87, 7, 91, 92	mpbir3an 1342	. . . . . . . . 9 ⊢ 2 ∈ (0...3)
94		1ne2 12328	. . . . . . . . . 10 ⊢ 1 ≠ 2
95	94	necomi 2982	. . . . . . . . 9 ⊢ 2 ≠ 1
96		df-s2 14755	. . . . . . . . . 10 ⊢ ⟨“{0, 1} {0, 2}”⟩ = (⟨“{0, 1}”⟩ ++ ⟨“{0, 2}”⟩)
97	54, 96	eqtri 2754	. . . . . . . . 9 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2}”⟩⟩) = (⟨“{0, 1}”⟩ ++ ⟨“{0, 2}”⟩)
98	63, 10, 65, 69, 86, 52, 80, 81, 93, 95, 97	vdegp1ai 29515	. . . . . . . 8 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2}”⟩⟩)‘1) = 1
99		nn0fz0 13525	. . . . . . . . 9 ⊢ (3 ∈ ℕ0 ↔ 3 ∈ (0...3))
100	7, 99	mpbi 230	. . . . . . . 8 ⊢ 3 ∈ (0...3)
101		1re 11112	. . . . . . . . 9 ⊢ 1 ∈ ℝ
102		1lt3 12293	. . . . . . . . 9 ⊢ 1 < 3
103	101, 102	gtneii 11225	. . . . . . . 8 ⊢ 3 ≠ 1
104		df-s3 14756	. . . . . . . . 9 ⊢ ⟨“{0, 1} {0, 2} {0, 3}”⟩ = (⟨“{0, 1} {0, 2}”⟩ ++ ⟨“{0, 3}”⟩)
105	44, 104	eqtri 2754	. . . . . . . 8 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3}”⟩⟩) = (⟨“{0, 1} {0, 2}”⟩ ++ ⟨“{0, 3}”⟩)
106	53, 10, 55, 59, 98, 42, 80, 81, 100, 103, 105	vdegp1ai 29515	. . . . . . 7 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3}”⟩⟩)‘1) = 1
107		df-s4 14757	. . . . . . . 8 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ = (⟨“{0, 1} {0, 2} {0, 3}”⟩ ++ ⟨“{1, 2}”⟩)
108	34, 107	eqtri 2754	. . . . . . 7 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩) = (⟨“{0, 1} {0, 2} {0, 3}”⟩ ++ ⟨“{1, 2}”⟩)
109	43, 10, 45, 49, 106, 32, 93, 95, 108	vdegp1bi 29516	. . . . . 6 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩)‘1) = (1 + 1)
110		1p1e2 12245	. . . . . 6 ⊢ (1 + 1) = 2
111	109, 110	eqtri 2754	. . . . 5 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩⟩)‘1) = 2
112		df-s5 14758	. . . . . 6 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ++ ⟨“{1, 2}”⟩)
113	24, 112	eqtri 2754	. . . . 5 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩) = (⟨“{0, 1} {0, 2} {0, 3} {1, 2}”⟩ ++ ⟨“{1, 2}”⟩)
114	33, 10, 35, 39, 111, 22, 93, 95, 113	vdegp1bi 29516	. . . 4 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩)‘1) = (2 + 1)
115		2p1e3 12262	. . . 4 ⊢ (2 + 1) = 3
116	114, 115	eqtri 2754	. . 3 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩⟩)‘1) = 3
117		df-s6 14759	. . . 4 ⊢ ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ++ ⟨“{2, 3}”⟩)
118	11, 117	eqtri 2754	. . 3 ⊢ (iEdg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩⟩) = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2}”⟩ ++ ⟨“{2, 3}”⟩)
119	23, 10, 25, 29, 116, 4, 93, 95, 100, 103, 118	vdegp1ai 29515	. 2 ⊢ ((VtxDeg‘⟨(0...3), ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩⟩)‘1) = 3
120		konigsberg.v	. . 3 ⊢ 𝑉 = (0...3)
121		konigsberg.e	. . 3 ⊢ 𝐸 = ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩
122		konigsberg.g	. . 3 ⊢ 𝐺 = ⟨𝑉, 𝐸⟩
123	120, 121, 122	konigsbergvtx 30226	. 2 ⊢ (Vtx‘𝐺) = (0...3)
124	120, 121, 122	konigsbergiedg 30227	. . 3 ⊢ (iEdg‘𝐺) = ⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3} {2, 3}”⟩
125	124, 14	eqtri 2754	. 2 ⊢ (iEdg‘𝐺) = (⟨“{0, 1} {0, 2} {0, 3} {1, 2} {1, 2} {2, 3}”⟩ ++ ⟨“{2, 3}”⟩)
126	5, 10, 12, 19, 119, 123, 93, 95, 100, 103, 125	vdegp1ai 29515	1 ⊢ ((VtxDeg‘𝐺)‘1) = 3

Syntax hints:   = wceq 1541   ∈ wcel 2111  {crab 3395  Vcvv 3436   ∖ cdif 3894  ∅c0 4280  𝒫 cpw 4547  {csn 4573  {cpr 4575  ⟨cop 4579   class class class wbr 5089  ‘cfv 6481  (class class class)co 7346  0cc0 11006  1c1 11007   + caddc 11009   ≤ cle 11147  2c2 12180  3c3 12181  ℕ₀cn0 12381  ...cfz 13407  ♯chash 14237  Word cword 14420   ++ cconcat 14477  ⟨“cs1 14503  ⟨“cs2 14748  ⟨“cs3 14749  ⟨“cs4 14750  ⟨“cs5 14751  ⟨“cs6 14752  ⟨“cs7 14753  Vtxcvtx 28974  iEdgciedg 28975  VtxDegcvtxdg 29444

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-rep 5215  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368  ax-un 7668  ax-cnex 11062  ax-resscn 11063  ax-1cn 11064  ax-icn 11065  ax-addcl 11066  ax-addrcl 11067  ax-mulcl 11068  ax-mulrcl 11069  ax-mulcom 11070  ax-addass 11071  ax-mulass 11072  ax-distr 11073  ax-i2m1 11074  ax-1ne0 11075  ax-1rid 11076  ax-rnegex 11077  ax-rrecex 11078  ax-cnre 11079  ax-pre-lttri 11080  ax-pre-lttrn 11081  ax-pre-ltadd 11082  ax-pre-mulgt0 11083

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-nel 3033  df-ral 3048  df-rex 3057  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3737  df-csb 3846  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3917  df-nul 4281  df-if 4473  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-int 4896  df-iun 4941  df-br 5090  df-opab 5152  df-mpt 5171  df-tr 5197  df-id 5509  df-eprel 5514  df-po 5522  df-so 5523  df-fr 5567  df-we 5569  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6248  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-riota 7303  df-ov 7349  df-oprab 7350  df-mpo 7351  df-om 7797  df-1st 7921  df-2nd 7922  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-1o 8385  df-2o 8386  df-oadd 8389  df-er 8622  df-en 8870  df-dom 8871  df-sdom 8872  df-fin 8873  df-dju 9794  df-card 9832  df-pnf 11148  df-mnf 11149  df-xr 11150  df-ltxr 11151  df-le 11152  df-sub 11346  df-neg 11347  df-nn 12126  df-2 12188  df-3 12189  df-n0 12382  df-xnn0 12455  df-z 12469  df-uz 12733  df-xadd 13012  df-fz 13408  df-fzo 13555  df-hash 14238  df-word 14421  df-concat 14478  df-s1 14504  df-s2 14755  df-s3 14756  df-s4 14757  df-s5 14758  df-s6 14759  df-s7 14760  df-vtx 28976  df-iedg 28977  df-vtxdg 29445

This theorem is referenced by:  konigsberglem4  30235