Metamath Proof Explorer


Theorem umgr2cycllem

Description: Lemma for umgr2cycl . (Contributed by BTernaryTau, 17-Oct-2023)

Ref Expression
Hypotheses umgr2cycllem.1 ⊢ F = ⟨“ JK ”⟩
umgr2cycllem.2 ⊢ I = iEdg ⁡ G
umgr2cycllem.3 ⊢ φ → G ∈ UMGraph
umgr2cycllem.4 ⊢ φ → J ∈ dom ⁡ I
umgr2cycllem.5 ⊢ φ → J ≠ K
umgr2cycllem.6 ⊢ φ → I ⁡ J = I ⁡ K
Assertion umgr2cycllem ⊢ φ → ∃ p F Cycles ⁡ G p

Proof

Step Hyp Ref Expression
1 umgr2cycllem.1 ⊢ F = ⟨“ JK ”⟩
2 umgr2cycllem.2 ⊢ I = iEdg ⁡ G
3 umgr2cycllem.3 ⊢ φ → G ∈ UMGraph
4 umgr2cycllem.4 ⊢ φ → J ∈ dom ⁡ I
5 umgr2cycllem.5 ⊢ φ → J ≠ K
6 umgr2cycllem.6 ⊢ φ → I ⁡ J = I ⁡ K
7 umgruhgr ⊢ G ∈ UMGraph → G ∈ UHGraph
8 2 uhgrfun ⊢ G ∈ UHGraph → Fun ⁡ I
9 3 7 8 3syl ⊢ φ → Fun ⁡ I
10 2 iedgedg ⊢ Fun ⁡ I ∧ J ∈ dom ⁡ I → I ⁡ J ∈ Edg ⁡ G
11 9 4 10 syl2anc ⊢ φ → I ⁡ J ∈ Edg ⁡ G
12 eqid ⊢ Vtx ⁡ G = Vtx ⁡ G
13 eqid ⊢ Edg ⁡ G = Edg ⁡ G
14 12 13 umgredg ⊢ G ∈ UMGraph ∧ I ⁡ J ∈ Edg ⁡ G → ∃ a ∈ Vtx ⁡ G ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b
15 3 11 14 syl2anc ⊢ φ → ∃ a ∈ Vtx ⁡ G ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b
16 ax-5 ⊢ a ∈ Vtx ⁡ G → ∀ b a ∈ Vtx ⁡ G
17 alral ⊢ ∀ b a ∈ Vtx ⁡ G → ∀ b ∈ Vtx ⁡ G a ∈ Vtx ⁡ G
18 16 17 syl ⊢ a ∈ Vtx ⁡ G → ∀ b ∈ Vtx ⁡ G a ∈ Vtx ⁡ G
19 r19.29 ⊢ ∀ b ∈ Vtx ⁡ G a ∈ Vtx ⁡ G ∧ ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b → ∃ b ∈ Vtx ⁡ G a ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b
20 18 19 sylan ⊢ a ∈ Vtx ⁡ G ∧ ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b → ∃ b ∈ Vtx ⁡ G a ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b
21 eqid ⊢ ⟨“ aba ”⟩ = ⟨“ aba ”⟩
22 simp2l ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a ∈ Vtx ⁡ G
23 simp2r ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → b ∈ Vtx ⁡ G
24 22 23 22 3jca ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ∈ Vtx ⁡ G
25 simp3l ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a ≠ b
26 25 necomd ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → b ≠ a
27 25 26 jca ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a ≠ b ∧ b ≠ a
28 simp3r ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → I ⁡ J = a b
29 28 eqimsscd ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a b ⊆ I ⁡ J
30 6 3ad2ant1 ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → I ⁡ J = I ⁡ K
31 30 28 eqtr3d ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → I ⁡ K = a b
32 prcom ⊢ a b = b a
33 32 a1i ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a b = b a
34 31 33 eqtrd ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → I ⁡ K = b a
35 eqimss2 ⊢ I ⁡ K = b a → b a ⊆ I ⁡ K
36 34 35 syl ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → b a ⊆ I ⁡ K
37 29 36 jca ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a b ⊆ I ⁡ J ∧ b a ⊆ I ⁡ K
38 5 3ad2ant1 ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → J ≠ K
39 eqidd ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → a = a
40 21 1 24 27 37 12 2 38 39 2cycld ⊢ φ ∧ a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → F Cycles ⁡ G ⟨“ aba ”⟩
41 40 3expib ⊢ φ → a ∈ Vtx ⁡ G ∧ b ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → F Cycles ⁡ G ⟨“ aba ”⟩
42 41 exp4c ⊢ φ → a ∈ Vtx ⁡ G → b ∈ Vtx ⁡ G → a ≠ b ∧ I ⁡ J = a b → F Cycles ⁡ G ⟨“ aba ”⟩
43 42 com23 ⊢ φ → b ∈ Vtx ⁡ G → a ∈ Vtx ⁡ G → a ≠ b ∧ I ⁡ J = a b → F Cycles ⁡ G ⟨“ aba ”⟩
44 43 imp4a ⊢ φ → b ∈ Vtx ⁡ G → a ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → F Cycles ⁡ G ⟨“ aba ”⟩
45 s3cli ⊢ ⟨“ aba ”⟩ ∈ Word V
46 breq2 ⊢ p = ⟨“ aba ”⟩ → F Cycles ⁡ G p ↔ F Cycles ⁡ G ⟨“ aba ”⟩
47 46 rspcev ⊢ ⟨“ aba ”⟩ ∈ Word V ∧ F Cycles ⁡ G ⟨“ aba ”⟩ → ∃ p ∈ Word V F Cycles ⁡ G p
48 45 47 mpan ⊢ F Cycles ⁡ G ⟨“ aba ”⟩ → ∃ p ∈ Word V F Cycles ⁡ G p
49 rexex ⊢ ∃ p ∈ Word V F Cycles ⁡ G p → ∃ p F Cycles ⁡ G p
50 48 49 syl ⊢ F Cycles ⁡ G ⟨“ aba ”⟩ → ∃ p F Cycles ⁡ G p
51 44 50 syl8 ⊢ φ → b ∈ Vtx ⁡ G → a ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → ∃ p F Cycles ⁡ G p
52 51 rexlimdv ⊢ φ → ∃ b ∈ Vtx ⁡ G a ∈ Vtx ⁡ G ∧ a ≠ b ∧ I ⁡ J = a b → ∃ p F Cycles ⁡ G p
53 20 52 syl5 ⊢ φ → a ∈ Vtx ⁡ G ∧ ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b → ∃ p F Cycles ⁡ G p
54 53 expd ⊢ φ → a ∈ Vtx ⁡ G → ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b → ∃ p F Cycles ⁡ G p
55 54 rexlimdv ⊢ φ → ∃ a ∈ Vtx ⁡ G ∃ b ∈ Vtx ⁡ G a ≠ b ∧ I ⁡ J = a b → ∃ p F Cycles ⁡ G p
56 15 55 mpd ⊢ φ → ∃ p F Cycles ⁡ G p