Theorem loop1cycl 35435

Description: A hypergraph has a cycle of length one if and only if it has a loop. (Contributed by BTernaryTau, 13-Oct-2023.)

Assertion

Ref	Expression
loop1cycl	⊢ (𝐺 ∈ UHGraph → (∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) ↔ {𝐴} ∈ (Edg‘𝐺)))

Distinct variable groups:   𝐺,𝑝   𝐴,𝑓,𝑝   𝑓,𝐺

Proof of Theorem loop1cycl

Dummy variable 𝑗 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		cyclprop 29932	. . . . . . . . . . . . 13 ⊢ (𝑓(Cycles‘𝐺)𝑝 → (𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘(♯‘𝑓))))
2		fveq2 6856	. . . . . . . . . . . . . . . 16 ⊢ ((♯‘𝑓) = 1 → (𝑝‘(♯‘𝑓)) = (𝑝‘1))
3	2	eqeq2d 2767	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑓) = 1 → ((𝑝‘0) = (𝑝‘(♯‘𝑓)) ↔ (𝑝‘0) = (𝑝‘1)))
4	3	anbi2d 638	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑓) = 1 → ((𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘(♯‘𝑓))) ↔ (𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1))))
5	4	biimpd 231	. . . . . . . . . . . . 13 ⊢ ((♯‘𝑓) = 1 → ((𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘(♯‘𝑓))) → (𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1))))
6	1, 5	mpan9 513	. . . . . . . . . . . 12 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) → (𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)))
7		pthiswlk 29864	. . . . . . . . . . . . 13 ⊢ (𝑓(Paths‘𝐺)𝑝 → 𝑓(Walks‘𝐺)𝑝)
8	7	anim1i 623	. . . . . . . . . . . 12 ⊢ ((𝑓(Paths‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)) → (𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)))
9	6, 8	syl 17	. . . . . . . . . . 11 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) → (𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)))
10	9	anim1i 623	. . . . . . . . . 10 ⊢ (((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) ∧ (♯‘𝑓) = 1) → ((𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)) ∧ (♯‘𝑓) = 1))
11	10	anabss3 683	. . . . . . . . 9 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) → ((𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)) ∧ (♯‘𝑓) = 1))
12		df-3an 1097	. . . . . . . . 9 ⊢ ((𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1) ∧ (♯‘𝑓) = 1) ↔ ((𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1)) ∧ (♯‘𝑓) = 1))
13	11, 12	sylibr 236	. . . . . . . 8 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) → (𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1) ∧ (♯‘𝑓) = 1))
14		3ancomb 1107	. . . . . . . 8 ⊢ ((𝑓(Walks‘𝐺)𝑝 ∧ (𝑝‘0) = (𝑝‘1) ∧ (♯‘𝑓) = 1) ↔ (𝑓(Walks‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = (𝑝‘1)))
15	13, 14	sylib 220	. . . . . . 7 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) → (𝑓(Walks‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = (𝑝‘1)))
16		wlkl1loop 29777	. . . . . . . . . 10 ⊢ (((Fun (iEdg‘𝐺) ∧ 𝑓(Walks‘𝐺)𝑝) ∧ ((♯‘𝑓) = 1 ∧ (𝑝‘0) = (𝑝‘1))) → {(𝑝‘0)} ∈ (Edg‘𝐺))
17	16	expl 460	. . . . . . . . 9 ⊢ (Fun (iEdg‘𝐺) → ((𝑓(Walks‘𝐺)𝑝 ∧ ((♯‘𝑓) = 1 ∧ (𝑝‘0) = (𝑝‘1))) → {(𝑝‘0)} ∈ (Edg‘𝐺)))
18		eqid 2756	. . . . . . . . . 10 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
19	18	uhgrfun 29206	. . . . . . . . 9 ⊢ (𝐺 ∈ UHGraph → Fun (iEdg‘𝐺))
20	17, 19	syl11 33	. . . . . . . 8 ⊢ ((𝑓(Walks‘𝐺)𝑝 ∧ ((♯‘𝑓) = 1 ∧ (𝑝‘0) = (𝑝‘1))) → (𝐺 ∈ UHGraph → {(𝑝‘0)} ∈ (Edg‘𝐺)))
21	20	3impb 1123	. . . . . . 7 ⊢ ((𝑓(Walks‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = (𝑝‘1)) → (𝐺 ∈ UHGraph → {(𝑝‘0)} ∈ (Edg‘𝐺)))
22	15, 21	syl 17	. . . . . 6 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1) → (𝐺 ∈ UHGraph → {(𝑝‘0)} ∈ (Edg‘𝐺)))
23	22	3adant3 1141	. . . . 5 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) → (𝐺 ∈ UHGraph → {(𝑝‘0)} ∈ (Edg‘𝐺)))
24		sneq 4586	. . . . . . 7 ⊢ ((𝑝‘0) = 𝐴 → {(𝑝‘0)} = {𝐴})
25	24	eleq1d 2841	. . . . . 6 ⊢ ((𝑝‘0) = 𝐴 → ({(𝑝‘0)} ∈ (Edg‘𝐺) ↔ {𝐴} ∈ (Edg‘𝐺)))
26	25	3ad2ant3 1144	. . . . 5 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) → ({(𝑝‘0)} ∈ (Edg‘𝐺) ↔ {𝐴} ∈ (Edg‘𝐺)))
27	23, 26	sylibd 241	. . . 4 ⊢ ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) → (𝐺 ∈ UHGraph → {𝐴} ∈ (Edg‘𝐺)))
28	27	exlimivv 1946	. . 3 ⊢ (∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) → (𝐺 ∈ UHGraph → {𝐴} ∈ (Edg‘𝐺)))
29	28	com12 32	. 2 ⊢ (𝐺 ∈ UHGraph → (∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) → {𝐴} ∈ (Edg‘𝐺)))
30		edgval 29189	. . . . . . . . . . . . . 14 ⊢ (Edg‘𝐺) = ran (iEdg‘𝐺)
31	30	eleq2i 2848	. . . . . . . . . . . . 13 ⊢ ({𝐴} ∈ (Edg‘𝐺) ↔ {𝐴} ∈ ran (iEdg‘𝐺))
32		elrnrexdm 7059	. . . . . . . . . . . . . 14 ⊢ (Fun (iEdg‘𝐺) → ({𝐴} ∈ ran (iEdg‘𝐺) → ∃𝑗 ∈ dom (iEdg‘𝐺){𝐴} = ((iEdg‘𝐺)‘𝑗)))
33		eqcom 2763	. . . . . . . . . . . . . . 15 ⊢ ({𝐴} = ((iEdg‘𝐺)‘𝑗) ↔ ((iEdg‘𝐺)‘𝑗) = {𝐴})
34	33	rexbii 3103	. . . . . . . . . . . . . 14 ⊢ (∃𝑗 ∈ dom (iEdg‘𝐺){𝐴} = ((iEdg‘𝐺)‘𝑗) ↔ ∃𝑗 ∈ dom (iEdg‘𝐺)((iEdg‘𝐺)‘𝑗) = {𝐴})
35	32, 34	imbitrdi 253	. . . . . . . . . . . . 13 ⊢ (Fun (iEdg‘𝐺) → ({𝐴} ∈ ran (iEdg‘𝐺) → ∃𝑗 ∈ dom (iEdg‘𝐺)((iEdg‘𝐺)‘𝑗) = {𝐴}))
36	31, 35	biimtrid 244	. . . . . . . . . . . 12 ⊢ (Fun (iEdg‘𝐺) → ({𝐴} ∈ (Edg‘𝐺) → ∃𝑗 ∈ dom (iEdg‘𝐺)((iEdg‘𝐺)‘𝑗) = {𝐴}))
37	19, 36	syl 17	. . . . . . . . . . 11 ⊢ (𝐺 ∈ UHGraph → ({𝐴} ∈ (Edg‘𝐺) → ∃𝑗 ∈ dom (iEdg‘𝐺)((iEdg‘𝐺)‘𝑗) = {𝐴}))
38		df-rex 3081	. . . . . . . . . . 11 ⊢ (∃𝑗 ∈ dom (iEdg‘𝐺)((iEdg‘𝐺)‘𝑗) = {𝐴} ↔ ∃𝑗(𝑗 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑗) = {𝐴}))
39	37, 38	imbitrdi 253	. . . . . . . . . 10 ⊢ (𝐺 ∈ UHGraph → ({𝐴} ∈ (Edg‘𝐺) → ∃𝑗(𝑗 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑗) = {𝐴})))
40	18	lp1cycl 30293	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑗 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑗) = {𝐴}) → ⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩)
41	40	3expib 1131	. . . . . . . . . . 11 ⊢ (𝐺 ∈ UHGraph → ((𝑗 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑗) = {𝐴}) → ⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩))
42	41	eximdv 1931	. . . . . . . . . 10 ⊢ (𝐺 ∈ UHGraph → (∃𝑗(𝑗 ∈ dom (iEdg‘𝐺) ∧ ((iEdg‘𝐺)‘𝑗) = {𝐴}) → ∃𝑗⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩))
43	39, 42	syld 47	. . . . . . . . 9 ⊢ (𝐺 ∈ UHGraph → ({𝐴} ∈ (Edg‘𝐺) → ∃𝑗⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩))
44		s1len 14610	. . . . . . . . . . 11 ⊢ (♯‘⟨“𝑗”⟩) = 1
45	44	ax-gen 1809	. . . . . . . . . 10 ⊢ ∀𝑗(♯‘⟨“𝑗”⟩) = 1
46		19.29r 1888	. . . . . . . . . 10 ⊢ ((∃𝑗⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ ∀𝑗(♯‘⟨“𝑗”⟩) = 1) → ∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1))
47	45, 46	mpan2 699	. . . . . . . . 9 ⊢ (∃𝑗⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ → ∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1))
48	43, 47	syl6 35	. . . . . . . 8 ⊢ (𝐺 ∈ UHGraph → ({𝐴} ∈ (Edg‘𝐺) → ∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1)))
49	48	imp 409	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → ∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1))
50		uhgredgn0 29268	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → {𝐴} ∈ (𝒫 (Vtx‘𝐺) ∖ {∅}))
51		eldifsni 4744	. . . . . . . . . . 11 ⊢ ({𝐴} ∈ (𝒫 (Vtx‘𝐺) ∖ {∅}) → {𝐴} ≠ ∅)
52	50, 51	syl 17	. . . . . . . . . 10 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → {𝐴} ≠ ∅)
53		snnzb 4671	. . . . . . . . . 10 ⊢ (𝐴 ∈ V ↔ {𝐴} ≠ ∅)
54	52, 53	sylibr 236	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → 𝐴 ∈ V)
55		s2fv0 14890	. . . . . . . . 9 ⊢ (𝐴 ∈ V → (⟨“𝐴𝐴”⟩‘0) = 𝐴)
56	54, 55	syl 17	. . . . . . . 8 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → (⟨“𝐴𝐴”⟩‘0) = 𝐴)
57	56	alrimiv 1941	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → ∀𝑗(⟨“𝐴𝐴”⟩‘0) = 𝐴)
58		19.29r 1888	. . . . . . 7 ⊢ ((∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1) ∧ ∀𝑗(⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑗((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1) ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
59	49, 57, 58	syl2anc 592	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → ∃𝑗((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1) ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
60		df-3an 1097	. . . . . . 7 ⊢ ((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) ↔ ((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1) ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
61	60	exbii 1862	. . . . . 6 ⊢ (∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) ↔ ∃𝑗((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1) ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
62	59, 61	sylibr 236	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → ∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
63		s1cli 14609	. . . . . . . 8 ⊢ ⟨“𝑗”⟩ ∈ Word V
64		breq1 5097	. . . . . . . . . 10 ⊢ (𝑓 = ⟨“𝑗”⟩ → (𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ↔ ⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩))
65		fveqeq2 6865	. . . . . . . . . 10 ⊢ (𝑓 = ⟨“𝑗”⟩ → ((♯‘𝑓) = 1 ↔ (♯‘⟨“𝑗”⟩) = 1))
66	64, 65	3anbi12d 1452	. . . . . . . . 9 ⊢ (𝑓 = ⟨“𝑗”⟩ → ((𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) ↔ (⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴)))
67	66	rspcev 3576	. . . . . . . 8 ⊢ ((⟨“𝑗”⟩ ∈ Word V ∧ (⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴)) → ∃𝑓 ∈ Word V(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
68	63, 67	mpan 698	. . . . . . 7 ⊢ ((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑓 ∈ Word V(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
69		rexex 3086	. . . . . . 7 ⊢ (∃𝑓 ∈ Word V(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑓(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
70	68, 69	syl 17	. . . . . 6 ⊢ ((⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑓(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
71	70	exlimiv 1944	. . . . 5 ⊢ (∃𝑗(⟨“𝑗”⟩(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘⟨“𝑗”⟩) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑓(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
72	62, 71	syl 17	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → ∃𝑓(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
73		s2cli 14883	. . . . . . 7 ⊢ ⟨“𝐴𝐴”⟩ ∈ Word V
74		breq2 5098	. . . . . . . . 9 ⊢ (𝑝 = ⟨“𝐴𝐴”⟩ → (𝑓(Cycles‘𝐺)𝑝 ↔ 𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩))
75		fveq1 6855	. . . . . . . . . 10 ⊢ (𝑝 = ⟨“𝐴𝐴”⟩ → (𝑝‘0) = (⟨“𝐴𝐴”⟩‘0))
76	75	eqeq1d 2758	. . . . . . . . 9 ⊢ (𝑝 = ⟨“𝐴𝐴”⟩ → ((𝑝‘0) = 𝐴 ↔ (⟨“𝐴𝐴”⟩‘0) = 𝐴))
77	74, 76	3anbi13d 1453	. . . . . . . 8 ⊢ (𝑝 = ⟨“𝐴𝐴”⟩ → ((𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) ↔ (𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴)))
78	77	rspcev 3576	. . . . . . 7 ⊢ ((⟨“𝐴𝐴”⟩ ∈ Word V ∧ (𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴)) → ∃𝑝 ∈ Word V(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴))
79	73, 78	mpan 698	. . . . . 6 ⊢ ((𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑝 ∈ Word V(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴))
80		rexex 3086	. . . . . 6 ⊢ (∃𝑝 ∈ Word V(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) → ∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴))
81	79, 80	syl 17	. . . . 5 ⊢ ((𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴))
82	81	eximi 1849	. . . 4 ⊢ (∃𝑓(𝑓(Cycles‘𝐺)⟨“𝐴𝐴”⟩ ∧ (♯‘𝑓) = 1 ∧ (⟨“𝐴𝐴”⟩‘0) = 𝐴) → ∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴))
83	72, 82	syl 17	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ {𝐴} ∈ (Edg‘𝐺)) → ∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴))
84	83	ex 415	. 2 ⊢ (𝐺 ∈ UHGraph → ({𝐴} ∈ (Edg‘𝐺) → ∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴)))
85	29, 84	impbid 214	1 ⊢ (𝐺 ∈ UHGraph → (∃𝑓∃𝑝(𝑓(Cycles‘𝐺)𝑝 ∧ (♯‘𝑓) = 1 ∧ (𝑝‘0) = 𝐴) ↔ {𝐴} ∈ (Edg‘𝐺)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1095  ∀wal 1552   = wceq 1554  ∃wex 1793   ∈ wcel 2136   ≠ wne 2951  ∃wrex 3080  Vcvv 3448   ∖ cdif 3896  ∅c0 4280  𝒫 cpw 4549  {csn 4576   class class class wbr 5094  dom cdm 5640  ran crn 5641  Fun wfun 6504  ‘cfv 6510  0cc0 11063  1c1 11064  ♯chash 14333  Word cword 14516  ⟨“cs1 14599  ⟨“cs2 14844  Vtxcvtx 29136  iEdgciedg 29137  Edgcedg 29187  UHGraphcuhgr 29196  Walkscwlks 29736  Pathscpths 29849  Cyclesccycls 29924

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1809  ax-4 1823  ax-5 1924  ax-6 1981  ax-7 2022  ax-8 2138  ax-9 2146  ax-10 2169  ax-11 2185  ax-12 2206  ax-ext 2728  ax-rep 5221  ax-sep 5240  ax-nul 5250  ax-pow 5316  ax-pr 5384  ax-un 7707  ax-cnex 11119  ax-resscn 11120  ax-1cn 11121  ax-icn 11122  ax-addcl 11123  ax-addrcl 11124  ax-mulcl 11125  ax-mulrcl 11126  ax-mulcom 11127  ax-addass 11128  ax-mulass 11129  ax-distr 11130  ax-i2m1 11131  ax-1ne0 11132  ax-1rid 11133  ax-rnegex 11134  ax-rrecex 11135  ax-cnre 11136  ax-pre-lttri 11137  ax-pre-lttrn 11138  ax-pre-ltadd 11139  ax-pre-mulgt0 11140

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-ifp 1072  df-3or 1096  df-3an 1097  df-tru 1557  df-fal 1567  df-ex 1794  df-nf 1798  df-sb 2085  df-mo 2560  df-eu 2590  df-clab 2735  df-cleq 2748  df-clel 2831  df-nfc 2905  df-ne 2952  df-nel 3056  df-ral 3071  df-rex 3081  df-reu 3362  df-rab 3409  df-v 3450  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4281  df-if 4475  df-pw 4551  df-sn 4577  df-pr 4579  df-op 4583  df-uni 4860  df-int 4900  df-iun 4945  df-br 5095  df-opab 5157  df-mpt 5176  df-tr 5202  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6466  df-fun 6512  df-fn 6513  df-f 6514  df-f1 6515  df-fo 6516  df-f1o 6517  df-fv 6518  df-riota 7342  df-ov 7388  df-oprab 7389  df-mpo 7390  df-om 7836  df-1st 7959  df-2nd 7960  df-frecs 8250  df-wrecs 8281  df-recs 8330  df-rdg 8369  df-1o 8425  df-er 8666  df-map 8798  df-pm 8799  df-en 8917  df-dom 8918  df-sdom 8919  df-fin 8920  df-card 9887  df-pnf 11208  df-mnf 11209  df-xr 11210  df-ltxr 11211  df-le 11212  df-sub 11406  df-neg 11407  df-nn 12201  df-2 12270  df-n0 12472  df-z 12559  df-uz 12830  df-fz 13503  df-fzo 13650  df-hash 14334  df-word 14517  df-concat 14574  df-s1 14600  df-s2 14851  df-edg 29188  df-uhgr 29198  df-wlks 29739  df-wlkson 29740  df-trls 29830  df-trlson 29831  df-pths 29853  df-pthson 29855  df-cycls 29926

This theorem is referenced by:  acycgrislfgr  35450