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