umgr2cycllem - Mathbox for BTernaryTau

	Mathbox for BTernaryTau		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > umgr2cycllem		Structured version Visualization version GIF version

Theorem umgr2cycllem 34131

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

**Hypotheses**
Ref	Expression
umgr2cycllem.1	⊢ 𝐹 = ⟨“𝐽𝐾”⟩
umgr2cycllem.2	⊢ 𝐼 = (iEdg‘𝐺)
umgr2cycllem.3	⊢ (𝜑 → 𝐺 ∈ UMGraph)
umgr2cycllem.4	⊢ (𝜑 → 𝐽 ∈ dom 𝐼)
umgr2cycllem.5	⊢ (𝜑 → 𝐽 ≠ 𝐾)
umgr2cycllem.6	⊢ (𝜑 → (𝐼‘𝐽) = (𝐼‘𝐾))

**Assertion**
Ref	Expression
umgr2cycllem	⊢ (𝜑 → ∃𝑝 𝐹(Cycles‘𝐺)𝑝)

Distinct variable groups: 𝐹,𝑝 𝐺,𝑝 Allowed substitution hints: 𝜑(𝑝) 𝐼(𝑝) 𝐽(𝑝) 𝐾(𝑝)

Proof of Theorem umgr2cycllem Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		umgr2cycllem.3	. . 3 ⊢ (𝜑 → 𝐺 ∈ UMGraph)
2		umgruhgr 28364	. . . . 5 ⊢ (𝐺 ∈ UMGraph → 𝐺 ∈ UHGraph)
3		umgr2cycllem.2	. . . . . 6 ⊢ 𝐼 = (iEdg‘𝐺)
4	3	uhgrfun 28326	. . . . 5 ⊢ (𝐺 ∈ UHGraph → Fun 𝐼)
5	1, 2, 4	3syl 18	. . . 4 ⊢ (𝜑 → Fun 𝐼)
6		umgr2cycllem.4	. . . 4 ⊢ (𝜑 → 𝐽 ∈ dom 𝐼)
7	3	iedgedg 28310	. . . 4 ⊢ ((Fun 𝐼 ∧ 𝐽 ∈ dom 𝐼) → (𝐼‘𝐽) ∈ (Edg‘𝐺))
8	5, 6, 7	syl2anc 585	. . 3 ⊢ (𝜑 → (𝐼‘𝐽) ∈ (Edg‘𝐺))
9		eqid 2733	. . . 4 ⊢ (Vtx‘𝐺) = (Vtx‘𝐺)
10		eqid 2733	. . . 4 ⊢ (Edg‘𝐺) = (Edg‘𝐺)
11	9, 10	umgredg 28398	. . 3 ⊢ ((𝐺 ∈ UMGraph ∧ (𝐼‘𝐽) ∈ (Edg‘𝐺)) → ∃𝑎 ∈ (Vtx‘𝐺)∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}))
12	1, 8, 11	syl2anc 585	. 2 ⊢ (𝜑 → ∃𝑎 ∈ (Vtx‘𝐺)∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}))
13		ax-5 1914	. . . . . . 7 ⊢ (𝑎 ∈ (Vtx‘𝐺) → ∀𝑏 𝑎 ∈ (Vtx‘𝐺))
14		alral 3076	. . . . . . 7 ⊢ (∀𝑏 𝑎 ∈ (Vtx‘𝐺) → ∀𝑏 ∈ (Vtx‘𝐺)𝑎 ∈ (Vtx‘𝐺))
15	13, 14	syl 17	. . . . . 6 ⊢ (𝑎 ∈ (Vtx‘𝐺) → ∀𝑏 ∈ (Vtx‘𝐺)𝑎 ∈ (Vtx‘𝐺))
16		r19.29 3115	. . . . . 6 ⊢ ((∀𝑏 ∈ (Vtx‘𝐺)𝑎 ∈ (Vtx‘𝐺) ∧ ∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → ∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ∈ (Vtx‘𝐺) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})))
17	15, 16	sylan 581	. . . . 5 ⊢ ((𝑎 ∈ (Vtx‘𝐺) ∧ ∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → ∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ∈ (Vtx‘𝐺) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})))
18		eqid 2733	. . . . . . . . . . . 12 ⊢ ⟨“𝑎𝑏𝑎”⟩ = ⟨“𝑎𝑏𝑎”⟩
19		umgr2cycllem.1	. . . . . . . . . . . 12 ⊢ 𝐹 = ⟨“𝐽𝐾”⟩
20		simp2 1138	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)))
21		simp3l 1202	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → 𝑎 ≠ 𝑏)
22		eqimss2 4042	. . . . . . . . . . . . . . 15 ⊢ ((𝐼‘𝐽) = {𝑎, 𝑏} → {𝑎, 𝑏} ⊆ (𝐼‘𝐽))
23	22	adantl 483	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}) → {𝑎, 𝑏} ⊆ (𝐼‘𝐽))
24	23	3ad2ant3 1136	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → {𝑎, 𝑏} ⊆ (𝐼‘𝐽))
25		umgr2cycllem.6	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐼‘𝐽) = (𝐼‘𝐾))
26	25	sseq2d 4015	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ({𝑎, 𝑏} ⊆ (𝐼‘𝐽) ↔ {𝑎, 𝑏} ⊆ (𝐼‘𝐾)))
27	22, 26	imbitrid 243	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐼‘𝐽) = {𝑎, 𝑏} → {𝑎, 𝑏} ⊆ (𝐼‘𝐾)))
28	27	adantld 492	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}) → {𝑎, 𝑏} ⊆ (𝐼‘𝐾)))
29	28	adantld 492	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → {𝑎, 𝑏} ⊆ (𝐼‘𝐾)))
30	29	3impib 1117	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → {𝑎, 𝑏} ⊆ (𝐼‘𝐾))
31	24, 30	jca 513	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → ({𝑎, 𝑏} ⊆ (𝐼‘𝐽) ∧ {𝑎, 𝑏} ⊆ (𝐼‘𝐾)))
32		umgr2cycllem.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐽 ≠ 𝐾)
33	32	3ad2ant1 1134	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → 𝐽 ≠ 𝐾)
34	18, 19, 20, 21, 31, 9, 3, 33	2cycl2d 34130	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩)
35	34	3expib 1123	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑎 ∈ (Vtx‘𝐺) ∧ 𝑏 ∈ (Vtx‘𝐺)) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩))
36	35	exp4c 434	. . . . . . . . 9 ⊢ (𝜑 → (𝑎 ∈ (Vtx‘𝐺) → (𝑏 ∈ (Vtx‘𝐺) → ((𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}) → 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩))))
37	36	com23 86	. . . . . . . 8 ⊢ (𝜑 → (𝑏 ∈ (Vtx‘𝐺) → (𝑎 ∈ (Vtx‘𝐺) → ((𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}) → 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩))))
38	37	imp4a 424	. . . . . . 7 ⊢ (𝜑 → (𝑏 ∈ (Vtx‘𝐺) → ((𝑎 ∈ (Vtx‘𝐺) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩)))
39		s3cli 14832	. . . . . . . . 9 ⊢ ⟨“𝑎𝑏𝑎”⟩ ∈ Word V
40		breq2 5153	. . . . . . . . . 10 ⊢ (𝑝 = ⟨“𝑎𝑏𝑎”⟩ → (𝐹(Cycles‘𝐺)𝑝 ↔ 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩))
41	40	rspcev 3613	. . . . . . . . 9 ⊢ ((⟨“𝑎𝑏𝑎”⟩ ∈ Word V ∧ 𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩) → ∃𝑝 ∈ Word V𝐹(Cycles‘𝐺)𝑝)
42	39, 41	mpan 689	. . . . . . . 8 ⊢ (𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩ → ∃𝑝 ∈ Word V𝐹(Cycles‘𝐺)𝑝)
43		rexex 3077	. . . . . . . 8 ⊢ (∃𝑝 ∈ Word V𝐹(Cycles‘𝐺)𝑝 → ∃𝑝 𝐹(Cycles‘𝐺)𝑝)
44	42, 43	syl 17	. . . . . . 7 ⊢ (𝐹(Cycles‘𝐺)⟨“𝑎𝑏𝑎”⟩ → ∃𝑝 𝐹(Cycles‘𝐺)𝑝)
45	38, 44	syl8 76	. . . . . 6 ⊢ (𝜑 → (𝑏 ∈ (Vtx‘𝐺) → ((𝑎 ∈ (Vtx‘𝐺) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → ∃𝑝 𝐹(Cycles‘𝐺)𝑝)))
46	45	rexlimdv 3154	. . . . 5 ⊢ (𝜑 → (∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ∈ (Vtx‘𝐺) ∧ (𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → ∃𝑝 𝐹(Cycles‘𝐺)𝑝))
47	17, 46	syl5 34	. . . 4 ⊢ (𝜑 → ((𝑎 ∈ (Vtx‘𝐺) ∧ ∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏})) → ∃𝑝 𝐹(Cycles‘𝐺)𝑝))
48	47	expd 417	. . 3 ⊢ (𝜑 → (𝑎 ∈ (Vtx‘𝐺) → (∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}) → ∃𝑝 𝐹(Cycles‘𝐺)𝑝)))
49	48	rexlimdv 3154	. 2 ⊢ (𝜑 → (∃𝑎 ∈ (Vtx‘𝐺)∃𝑏 ∈ (Vtx‘𝐺)(𝑎 ≠ 𝑏 ∧ (𝐼‘𝐽) = {𝑎, 𝑏}) → ∃𝑝 𝐹(Cycles‘𝐺)𝑝))
50	12, 49	mpd 15	1 ⊢ (𝜑 → ∃𝑝 𝐹(Cycles‘𝐺)𝑝)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 397 ∧ w3a 1088 ∀wal 1540 = wceq 1542 ∃wex 1782 ∈ wcel 2107 ≠ wne 2941 ∀wral 3062 ∃wrex 3071 Vcvv 3475 ⊆ wss 3949 {cpr 4631 class class class wbr 5149 dom cdm 5677 Fun wfun 6538 ‘cfv 6544 Word cword 14464 ⟨“cs2 14792 ⟨“cs3 14793 Vtxcvtx 28256 iEdgciedg 28257 Edgcedg 28307 UHGraphcuhgr 28316 UMGraphcumgr 28341 Cyclesccycls 29042

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725 ax-cnex 11166 ax-resscn 11167 ax-1cn 11168 ax-icn 11169 ax-addcl 11170 ax-addrcl 11171 ax-mulcl 11172 ax-mulrcl 11173 ax-mulcom 11174 ax-addass 11175 ax-mulass 11176 ax-distr 11177 ax-i2m1 11178 ax-1ne0 11179 ax-1rid 11180 ax-rnegex 11181 ax-rrecex 11182 ax-cnre 11183 ax-pre-lttri 11184 ax-pre-lttrn 11185 ax-pre-ltadd 11186 ax-pre-mulgt0 11187

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-ifp 1063 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-tp 4634 df-op 4636 df-uni 4910 df-int 4952 df-iun 5000 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5575 df-eprel 5581 df-po 5589 df-so 5590 df-fr 5632 df-we 5634 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-pred 6301 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-om 7856 df-1st 7975 df-2nd 7976 df-frecs 8266 df-wrecs 8297 df-recs 8371 df-rdg 8410 df-1o 8466 df-2o 8467 df-oadd 8470 df-er 8703 df-map 8822 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-dju 9896 df-card 9934 df-pnf 11250 df-mnf 11251 df-xr 11252 df-ltxr 11253 df-le 11254 df-sub 11446 df-neg 11447 df-nn 12213 df-2 12275 df-3 12276 df-n0 12473 df-z 12559 df-uz 12823 df-fz 13485 df-fzo 13628 df-hash 14291 df-word 14465 df-concat 14521 df-s1 14546 df-s2 14799 df-s3 14800 df-edg 28308 df-uhgr 28318 df-upgr 28342 df-umgr 28343 df-wlks 28856 df-trls 28949 df-pths 28973 df-cycls 29044

This theorem is referenced by: umgr2cycl 34132

W3C validator