Theorem efgrelexlema 19969

Description: If two words 𝐴, 𝐵 are related under the free group equivalence, then there exist two extension sequences 𝑎, 𝑏 such that 𝑎 ends at 𝐴, 𝑏 ends at 𝐵, and 𝑎 and 𝐵 have the same starting point. (Contributed by Mario Carneiro, 1-Oct-2015.)

Hypotheses

Ref	Expression
efgval.w	⊢ 𝑊 = ( I ‘Word (𝐼 × 2o))
efgval.r	⊢ ∼ = ( ~FG ‘𝐼)
efgval2.m	⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o ∖ 𝑧)⟩)
efgval2.t	⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀‘𝑤)”⟩⟩)))
efgred.d	⊢ 𝐷 = (𝑊 ∖ ∪ 𝑥 ∈ 𝑊 ran (𝑇‘𝑥))
efgred.s	⊢ 𝑆 = (𝑚 ∈ {𝑡 ∈ (Word 𝑊 ∖ {∅}) ∣ ((𝑡‘0) ∈ 𝐷 ∧ ∀𝑘 ∈ (1..^(♯‘𝑡))(𝑡‘𝑘) ∈ ran (𝑇‘(𝑡‘(𝑘 − 1))))} ↦ (𝑚‘((♯‘𝑚) − 1)))
efgrelexlem.1	⊢ 𝐿 = {⟨𝑖, 𝑗⟩ ∣ ∃𝑐 ∈ (◡𝑆 “ {𝑖})∃𝑑 ∈ (◡𝑆 “ {𝑗})(𝑐‘0) = (𝑑‘0)}

Assertion

Ref	Expression
efgrelexlema	⊢ (𝐴𝐿𝐵 ↔ ∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝐵})(𝑎‘0) = (𝑏‘0))

Distinct variable groups:   𝑎,𝑏,𝑐,𝑑,𝑖,𝑗,𝐴   𝑦,𝑎,𝑧,𝑏   𝐿,𝑎,𝑏   𝑛,𝑐,𝑡,𝑣,𝑤,𝑦,𝑧   𝑚,𝑎,𝑛,𝑡,𝑣,𝑤,𝑥,𝑀,𝑏,𝑐,𝑖,𝑗   𝑘,𝑎,𝑇,𝑏,𝑐,𝑖,𝑗,𝑚,𝑡,𝑥   𝑊,𝑎,𝑏,𝑐   𝑘,𝑑,𝑚,𝑛,𝑡,𝑣,𝑤,𝑥,𝑦,𝑧,𝑊,𝑖,𝑗   ∼ ,𝑎,𝑏,𝑐,𝑑,𝑖,𝑗,𝑚,𝑡,𝑥,𝑦,𝑧   𝐵,𝑎,𝑏,𝑐,𝑑,𝑖,𝑗   𝑆,𝑎,𝑏,𝑐,𝑑,𝑖,𝑗   𝐼,𝑎,𝑏,𝑐,𝑖,𝑗,𝑚,𝑛,𝑡,𝑣,𝑤,𝑥,𝑦,𝑧   𝐷,𝑎,𝑏,𝑐,𝑑,𝑖,𝑗,𝑚,𝑡

Allowed substitution hints:   𝐴(𝑥, 𝑦, 𝑧, 𝑤, 𝑣, 𝑡, 𝑘, 𝑚, 𝑛)   𝐵(𝑥, 𝑦, 𝑧, 𝑤, 𝑣, 𝑡, 𝑘, 𝑚, 𝑛)   𝐷(𝑥, 𝑦, 𝑧, 𝑤, 𝑣, 𝑘, 𝑛)   ∼ (𝑤, 𝑣, 𝑘, 𝑛)   𝑆(𝑥, 𝑦, 𝑧, 𝑤, 𝑣, 𝑡, 𝑘, 𝑚, 𝑛)   𝑇(𝑦, 𝑧, 𝑤, 𝑣, 𝑛, 𝑑)   𝐼(𝑘, 𝑑)   𝐿(𝑥, 𝑦, 𝑧, 𝑤, 𝑣, 𝑡, 𝑖, 𝑗, 𝑘, 𝑚, 𝑛, 𝑐, 𝑑)   𝑀(𝑦, 𝑧, 𝑘, 𝑑)

Proof of Theorem efgrelexlema

Step	Hyp	Ref	Expression
1		efgrelexlem.1	. . 3 ⊢ 𝐿 = {⟨𝑖, 𝑗⟩ ∣ ∃𝑐 ∈ (◡𝑆 “ {𝑖})∃𝑑 ∈ (◡𝑆 “ {𝑗})(𝑐‘0) = (𝑑‘0)}
2	1	bropaex12 5741	. 2 ⊢ (𝐴𝐿𝐵 → (𝐴 ∈ V ∧ 𝐵 ∈ V))
3		n0i 4285	. . . . . 6 ⊢ (𝑎 ∈ (◡𝑆 “ {𝐴}) → ¬ (◡𝑆 “ {𝐴}) = ∅)
4		snprc 4674	. . . . . . . 8 ⊢ (¬ 𝐴 ∈ V ↔ {𝐴} = ∅)
5		imaeq2 6047	. . . . . . . 8 ⊢ ({𝐴} = ∅ → (◡𝑆 “ {𝐴}) = (◡𝑆 “ ∅))
6	4, 5	sylbi 220	. . . . . . 7 ⊢ (¬ 𝐴 ∈ V → (◡𝑆 “ {𝐴}) = (◡𝑆 “ ∅))
7		ima0 6074	. . . . . . 7 ⊢ (◡𝑆 “ ∅) = ∅
8	6, 7	eqtrdi 2811	. . . . . 6 ⊢ (¬ 𝐴 ∈ V → (◡𝑆 “ {𝐴}) = ∅)
9	3, 8	nsyl2 142	. . . . 5 ⊢ (𝑎 ∈ (◡𝑆 “ {𝐴}) → 𝐴 ∈ V)
10		n0i 4285	. . . . . 6 ⊢ (𝑏 ∈ (◡𝑆 “ {𝐵}) → ¬ (◡𝑆 “ {𝐵}) = ∅)
11		snprc 4674	. . . . . . . 8 ⊢ (¬ 𝐵 ∈ V ↔ {𝐵} = ∅)
12		imaeq2 6047	. . . . . . . 8 ⊢ ({𝐵} = ∅ → (◡𝑆 “ {𝐵}) = (◡𝑆 “ ∅))
13	11, 12	sylbi 220	. . . . . . 7 ⊢ (¬ 𝐵 ∈ V → (◡𝑆 “ {𝐵}) = (◡𝑆 “ ∅))
14	13, 7	eqtrdi 2811	. . . . . 6 ⊢ (¬ 𝐵 ∈ V → (◡𝑆 “ {𝐵}) = ∅)
15	10, 14	nsyl2 142	. . . . 5 ⊢ (𝑏 ∈ (◡𝑆 “ {𝐵}) → 𝐵 ∈ V)
16	9, 15	anim12i 625	. . . 4 ⊢ ((𝑎 ∈ (◡𝑆 “ {𝐴}) ∧ 𝑏 ∈ (◡𝑆 “ {𝐵})) → (𝐴 ∈ V ∧ 𝐵 ∈ V))
17	16	a1d 26	. . 3 ⊢ ((𝑎 ∈ (◡𝑆 “ {𝐴}) ∧ 𝑏 ∈ (◡𝑆 “ {𝐵})) → ((𝑎‘0) = (𝑏‘0) → (𝐴 ∈ V ∧ 𝐵 ∈ V)))
18	17	rexlimivv 3204	. 2 ⊢ (∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝐵})(𝑎‘0) = (𝑏‘0) → (𝐴 ∈ V ∧ 𝐵 ∈ V))
19		fveq1 6885	. . . . . 6 ⊢ (𝑐 = 𝑎 → (𝑐‘0) = (𝑎‘0))
20	19	eqeq1d 2762	. . . . 5 ⊢ (𝑐 = 𝑎 → ((𝑐‘0) = (𝑑‘0) ↔ (𝑎‘0) = (𝑑‘0)))
21		fveq1 6885	. . . . . 6 ⊢ (𝑑 = 𝑏 → (𝑑‘0) = (𝑏‘0))
22	21	eqeq2d 2771	. . . . 5 ⊢ (𝑑 = 𝑏 → ((𝑎‘0) = (𝑑‘0) ↔ (𝑎‘0) = (𝑏‘0)))
23	20, 22	cbvrex2vw 3245	. . . 4 ⊢ (∃𝑐 ∈ (◡𝑆 “ {𝑖})∃𝑑 ∈ (◡𝑆 “ {𝑗})(𝑐‘0) = (𝑑‘0) ↔ ∃𝑎 ∈ (◡𝑆 “ {𝑖})∃𝑏 ∈ (◡𝑆 “ {𝑗})(𝑎‘0) = (𝑏‘0))
24		sneq 4590	. . . . . 6 ⊢ (𝑖 = 𝐴 → {𝑖} = {𝐴})
25	24	imaeq2d 6051	. . . . 5 ⊢ (𝑖 = 𝐴 → (◡𝑆 “ {𝑖}) = (◡𝑆 “ {𝐴}))
26	25	rexeqdv 3320	. . . 4 ⊢ (𝑖 = 𝐴 → (∃𝑎 ∈ (◡𝑆 “ {𝑖})∃𝑏 ∈ (◡𝑆 “ {𝑗})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝑗})(𝑎‘0) = (𝑏‘0)))
27	23, 26	bitrid 286	. . 3 ⊢ (𝑖 = 𝐴 → (∃𝑐 ∈ (◡𝑆 “ {𝑖})∃𝑑 ∈ (◡𝑆 “ {𝑗})(𝑐‘0) = (𝑑‘0) ↔ ∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝑗})(𝑎‘0) = (𝑏‘0)))
28		sneq 4590	. . . . . 6 ⊢ (𝑗 = 𝐵 → {𝑗} = {𝐵})
29	28	imaeq2d 6051	. . . . 5 ⊢ (𝑗 = 𝐵 → (◡𝑆 “ {𝑗}) = (◡𝑆 “ {𝐵}))
30	29	rexeqdv 3320	. . . 4 ⊢ (𝑗 = 𝐵 → (∃𝑏 ∈ (◡𝑆 “ {𝑗})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑏 ∈ (◡𝑆 “ {𝐵})(𝑎‘0) = (𝑏‘0)))
31	30	rexbidv 3186	. . 3 ⊢ (𝑗 = 𝐵 → (∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝑗})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝐵})(𝑎‘0) = (𝑏‘0)))
32	27, 31, 1	brabg 5513	. 2 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ V) → (𝐴𝐿𝐵 ↔ ∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝐵})(𝑎‘0) = (𝑏‘0)))
33	2, 18, 32	pm5.21nii 381	1 ⊢ (𝐴𝐿𝐵 ↔ ∃𝑎 ∈ (◡𝑆 “ {𝐴})∃𝑏 ∈ (◡𝑆 “ {𝐵})(𝑎‘0) = (𝑏‘0))

This proof depends on syntax axioms:  ¬ wn 3   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2144  ∀wral 3076  ∃wrex 3086  {crab 3412  Vcvv 3450   ∖ cdif 4045  ∅c0 4278  {csn 4584  ⟨cop 4834  ⟨cotp 4857  ∪ ciun 4950   class class class wbr 5102  {copab 5166   ↦ cmpt 5185   I cid 5544   × cxp 5648  ^◡ccnv 5649  ran crn 5651   “ cima 5653  ‘cfv 6539  (class class class)co 7421   ∈ cmpo 7423  1_oc1o 8473  2_oc2o 8474  0cc0 11204  1c1 11205   − cmin 11545  ...cfz 13643  ..^cfzo 13792  ♯chash 14478  Word cword 14662   splice csplice 14903  ⟨“cs2 14997   ~_FG cefg 19926

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-ext 2732  ax-sep 5248  ax-pr 5390

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-sb 2099  df-clab 2739  df-cleq 2752  df-clel 2835  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-br 5103  df-opab 5167  df-xp 5656  df-cnv 5658  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-iota 6494  df-fv 6547

This theorem is used by:  efgrelexlemb  19970  efgrelex  19971