MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  efgrelexlemb Structured version   Visualization version   GIF version

Theorem efgrelexlemb 18603
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
efgrelexlemb 𝐿
Distinct variable groups:   𝑐,𝑑,𝑖,𝑗   𝑦,𝑧   𝑛,𝑐,𝑡,𝑣,𝑤,𝑦,𝑧,𝑚,𝑥   𝑀,𝑐   𝑖,𝑚,𝑛,𝑡,𝑣,𝑤,𝑥,𝑀,𝑗   𝑘,𝑐,𝑇,𝑖,𝑗,𝑚,𝑡,𝑥   𝑊,𝑐   𝑘,𝑑,𝑚,𝑛,𝑡,𝑣,𝑤,𝑥,𝑦,𝑧,𝑊,𝑖,𝑗   ,𝑐,𝑑,𝑖,𝑗,𝑚,𝑡,𝑥,𝑦,𝑧   𝑆,𝑐,𝑑,𝑖,𝑗   𝐼,𝑐,𝑖,𝑗,𝑚,𝑛,𝑡,𝑣,𝑤,𝑥,𝑦,𝑧   𝐷,𝑐,𝑑,𝑖,𝑗,𝑚,𝑡
Allowed substitution hints:   𝐷(𝑥,𝑦,𝑧,𝑤,𝑣,𝑘,𝑛)   (𝑤,𝑣,𝑘,𝑛)   𝑆(𝑥,𝑦,𝑧,𝑤,𝑣,𝑡,𝑘,𝑚,𝑛)   𝑇(𝑦,𝑧,𝑤,𝑣,𝑛,𝑑)   𝐼(𝑘,𝑑)   𝐿(𝑥,𝑦,𝑧,𝑤,𝑣,𝑡,𝑖,𝑗,𝑘,𝑚,𝑛,𝑐,𝑑)   𝑀(𝑦,𝑧,𝑘,𝑑)

Proof of Theorem efgrelexlemb
Dummy variables 𝑎 𝑏 𝑓 𝑔 𝑟 𝑠 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 efgval.w . . 3 𝑊 = ( I ‘Word (𝐼 × 2o))
2 efgval.r . . 3 = ( ~FG𝐼)
3 efgval2.m . . 3 𝑀 = (𝑦𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o𝑧)⟩)
4 efgval2.t . . 3 𝑇 = (𝑣𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀𝑤)”⟩⟩)))
51, 2, 3, 4efgval2 18577 . 2 = {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)}
6 efgrelexlem.1 . . . . . . . 8 𝐿 = {⟨𝑖, 𝑗⟩ ∣ ∃𝑐 ∈ (𝑆 “ {𝑖})∃𝑑 ∈ (𝑆 “ {𝑗})(𝑐‘0) = (𝑑‘0)}
76relopabi 5580 . . . . . . 7 Rel 𝐿
87a1i 11 . . . . . 6 (⊤ → Rel 𝐿)
9 simpr 485 . . . . . . 7 ((⊤ ∧ 𝑓𝐿𝑔) → 𝑓𝐿𝑔)
10 eqcom 2802 . . . . . . . . . 10 ((𝑎‘0) = (𝑏‘0) ↔ (𝑏‘0) = (𝑎‘0))
11102rexbii 3212 . . . . . . . . 9 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑏‘0) = (𝑎‘0))
12 rexcom 3316 . . . . . . . . 9 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑏‘0) = (𝑎‘0) ↔ ∃𝑏 ∈ (𝑆 “ {𝑔})∃𝑎 ∈ (𝑆 “ {𝑓})(𝑏‘0) = (𝑎‘0))
1311, 12bitri 276 . . . . . . . 8 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑏 ∈ (𝑆 “ {𝑔})∃𝑎 ∈ (𝑆 “ {𝑓})(𝑏‘0) = (𝑎‘0))
14 efgred.d . . . . . . . . 9 𝐷 = (𝑊 𝑥𝑊 ran (𝑇𝑥))
15 efgred.s . . . . . . . . 9 𝑆 = (𝑚 ∈ {𝑡 ∈ (Word 𝑊 ∖ {∅}) ∣ ((𝑡‘0) ∈ 𝐷 ∧ ∀𝑘 ∈ (1..^(♯‘𝑡))(𝑡𝑘) ∈ ran (𝑇‘(𝑡‘(𝑘 − 1))))} ↦ (𝑚‘((♯‘𝑚) − 1)))
161, 2, 3, 4, 14, 15, 6efgrelexlema 18602 . . . . . . . 8 (𝑓𝐿𝑔 ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0))
171, 2, 3, 4, 14, 15, 6efgrelexlema 18602 . . . . . . . 8 (𝑔𝐿𝑓 ↔ ∃𝑏 ∈ (𝑆 “ {𝑔})∃𝑎 ∈ (𝑆 “ {𝑓})(𝑏‘0) = (𝑎‘0))
1813, 16, 173bitr4i 304 . . . . . . 7 (𝑓𝐿𝑔𝑔𝐿𝑓)
199, 18sylib 219 . . . . . 6 ((⊤ ∧ 𝑓𝐿𝑔) → 𝑔𝐿𝑓)
201, 2, 3, 4, 14, 15, 6efgrelexlema 18602 . . . . . . . . 9 (𝑔𝐿 ↔ ∃𝑟 ∈ (𝑆 “ {𝑔})∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0))
21 reeanv 3328 . . . . . . . . . 10 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑟 ∈ (𝑆 “ {𝑔})(∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) ↔ (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑟 ∈ (𝑆 “ {𝑔})∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)))
221, 2, 3, 4, 14, 15efgsfo 18592 . . . . . . . . . . . . . . . . . . . 20 𝑆:dom 𝑆onto𝑊
23 fofn 6460 . . . . . . . . . . . . . . . . . . . 20 (𝑆:dom 𝑆onto𝑊𝑆 Fn dom 𝑆)
2422, 23ax-mp 5 . . . . . . . . . . . . . . . . . . 19 𝑆 Fn dom 𝑆
25 fniniseg 6695 . . . . . . . . . . . . . . . . . . 19 (𝑆 Fn dom 𝑆 → (𝑟 ∈ (𝑆 “ {𝑔}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑔)))
2624, 25ax-mp 5 . . . . . . . . . . . . . . . . . 18 (𝑟 ∈ (𝑆 “ {𝑔}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑔))
27 fniniseg 6695 . . . . . . . . . . . . . . . . . . 19 (𝑆 Fn dom 𝑆 → (𝑏 ∈ (𝑆 “ {𝑔}) ↔ (𝑏 ∈ dom 𝑆 ∧ (𝑆𝑏) = 𝑔)))
2824, 27ax-mp 5 . . . . . . . . . . . . . . . . . 18 (𝑏 ∈ (𝑆 “ {𝑔}) ↔ (𝑏 ∈ dom 𝑆 ∧ (𝑆𝑏) = 𝑔))
29 eqtr3 2818 . . . . . . . . . . . . . . . . . . . 20 (((𝑆𝑟) = 𝑔 ∧ (𝑆𝑏) = 𝑔) → (𝑆𝑟) = (𝑆𝑏))
301, 2, 3, 4, 14, 15efgred 18601 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆 ∧ (𝑆𝑟) = (𝑆𝑏)) → (𝑟‘0) = (𝑏‘0))
3130eqcomd 2801 . . . . . . . . . . . . . . . . . . . . 21 ((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆 ∧ (𝑆𝑟) = (𝑆𝑏)) → (𝑏‘0) = (𝑟‘0))
32313expa 1111 . . . . . . . . . . . . . . . . . . . 20 (((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆) ∧ (𝑆𝑟) = (𝑆𝑏)) → (𝑏‘0) = (𝑟‘0))
3329, 32sylan2 592 . . . . . . . . . . . . . . . . . . 19 (((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆) ∧ ((𝑆𝑟) = 𝑔 ∧ (𝑆𝑏) = 𝑔)) → (𝑏‘0) = (𝑟‘0))
3433an4s 656 . . . . . . . . . . . . . . . . . 18 (((𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑔) ∧ (𝑏 ∈ dom 𝑆 ∧ (𝑆𝑏) = 𝑔)) → (𝑏‘0) = (𝑟‘0))
3526, 28, 34syl2anb 597 . . . . . . . . . . . . . . . . 17 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → (𝑏‘0) = (𝑟‘0))
36 eqeq2 2806 . . . . . . . . . . . . . . . . 17 ((𝑟‘0) = (𝑠‘0) → ((𝑏‘0) = (𝑟‘0) ↔ (𝑏‘0) = (𝑠‘0)))
3735, 36syl5ibcom 246 . . . . . . . . . . . . . . . 16 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → ((𝑟‘0) = (𝑠‘0) → (𝑏‘0) = (𝑠‘0)))
3837reximdv 3236 . . . . . . . . . . . . . . 15 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑏‘0) = (𝑠‘0)))
39 eqeq1 2799 . . . . . . . . . . . . . . . . 17 ((𝑎‘0) = (𝑏‘0) → ((𝑎‘0) = (𝑠‘0) ↔ (𝑏‘0) = (𝑠‘0)))
4039rexbidv 3260 . . . . . . . . . . . . . . . 16 ((𝑎‘0) = (𝑏‘0) → (∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0) ↔ ∃𝑠 ∈ (𝑆 “ {})(𝑏‘0) = (𝑠‘0)))
4140imbi2d 342 . . . . . . . . . . . . . . 15 ((𝑎‘0) = (𝑏‘0) → ((∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0)) ↔ (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑏‘0) = (𝑠‘0))))
4238, 41syl5ibrcom 248 . . . . . . . . . . . . . 14 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → ((𝑎‘0) = (𝑏‘0) → (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))))
4342rexlimdva 3247 . . . . . . . . . . . . 13 (𝑟 ∈ (𝑆 “ {𝑔}) → (∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) → (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))))
4443impd 411 . . . . . . . . . . . 12 (𝑟 ∈ (𝑆 “ {𝑔}) → ((∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0)))
4544rexlimiv 3243 . . . . . . . . . . 11 (∃𝑟 ∈ (𝑆 “ {𝑔})(∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
4645reximi 3207 . . . . . . . . . 10 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑟 ∈ (𝑆 “ {𝑔})(∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
4721, 46sylbir 236 . . . . . . . . 9 ((∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑟 ∈ (𝑆 “ {𝑔})∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
4816, 20, 47syl2anb 597 . . . . . . . 8 ((𝑓𝐿𝑔𝑔𝐿) → ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
491, 2, 3, 4, 14, 15, 6efgrelexlema 18602 . . . . . . . 8 (𝑓𝐿 ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
5048, 49sylibr 235 . . . . . . 7 ((𝑓𝐿𝑔𝑔𝐿) → 𝑓𝐿)
5150adantl 482 . . . . . 6 ((⊤ ∧ (𝑓𝐿𝑔𝑔𝐿)) → 𝑓𝐿)
52 eqid 2795 . . . . . . . . . . . 12 (𝑎‘0) = (𝑎‘0)
53 fveq1 6537 . . . . . . . . . . . . 13 (𝑏 = 𝑎 → (𝑏‘0) = (𝑎‘0))
5453rspceeqv 3577 . . . . . . . . . . . 12 ((𝑎 ∈ (𝑆 “ {𝑓}) ∧ (𝑎‘0) = (𝑎‘0)) → ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0))
5552, 54mpan2 687 . . . . . . . . . . 11 (𝑎 ∈ (𝑆 “ {𝑓}) → ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0))
5655pm4.71i 560 . . . . . . . . . 10 (𝑎 ∈ (𝑆 “ {𝑓}) ↔ (𝑎 ∈ (𝑆 “ {𝑓}) ∧ ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0)))
57 fniniseg 6695 . . . . . . . . . . 11 (𝑆 Fn dom 𝑆 → (𝑎 ∈ (𝑆 “ {𝑓}) ↔ (𝑎 ∈ dom 𝑆 ∧ (𝑆𝑎) = 𝑓)))
5824, 57ax-mp 5 . . . . . . . . . 10 (𝑎 ∈ (𝑆 “ {𝑓}) ↔ (𝑎 ∈ dom 𝑆 ∧ (𝑆𝑎) = 𝑓))
5956, 58bitr3i 278 . . . . . . . . 9 ((𝑎 ∈ (𝑆 “ {𝑓}) ∧ ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0)) ↔ (𝑎 ∈ dom 𝑆 ∧ (𝑆𝑎) = 𝑓))
6059rexbii2 3209 . . . . . . . 8 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓)
611, 2, 3, 4, 14, 15, 6efgrelexlema 18602 . . . . . . . 8 (𝑓𝐿𝑓 ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0))
62 forn 6461 . . . . . . . . . . 11 (𝑆:dom 𝑆onto𝑊 → ran 𝑆 = 𝑊)
6322, 62ax-mp 5 . . . . . . . . . 10 ran 𝑆 = 𝑊
6463eleq2i 2874 . . . . . . . . 9 (𝑓 ∈ ran 𝑆𝑓𝑊)
65 fvelrnb 6594 . . . . . . . . . 10 (𝑆 Fn dom 𝑆 → (𝑓 ∈ ran 𝑆 ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓))
6624, 65ax-mp 5 . . . . . . . . 9 (𝑓 ∈ ran 𝑆 ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓)
6764, 66bitr3i 278 . . . . . . . 8 (𝑓𝑊 ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓)
6860, 61, 673bitr4ri 305 . . . . . . 7 (𝑓𝑊𝑓𝐿𝑓)
6968a1i 11 . . . . . 6 (⊤ → (𝑓𝑊𝑓𝐿𝑓))
708, 19, 51, 69iserd 8165 . . . . 5 (⊤ → 𝐿 Er 𝑊)
7170mptru 1529 . . . 4 𝐿 Er 𝑊
72 simpl 483 . . . . . . . . . . 11 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑎𝑊)
73 foelrn 6735 . . . . . . . . . . 11 ((𝑆:dom 𝑆onto𝑊𝑎𝑊) → ∃𝑟 ∈ dom 𝑆 𝑎 = (𝑆𝑟))
7422, 72, 73sylancr 587 . . . . . . . . . 10 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → ∃𝑟 ∈ dom 𝑆 𝑎 = (𝑆𝑟))
75 simprl 767 . . . . . . . . . . 11 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ dom 𝑆)
76 simprr 769 . . . . . . . . . . . 12 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑎 = (𝑆𝑟))
7776eqcomd 2801 . . . . . . . . . . 11 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑆𝑟) = 𝑎)
78 fniniseg 6695 . . . . . . . . . . . 12 (𝑆 Fn dom 𝑆 → (𝑟 ∈ (𝑆 “ {𝑎}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑎)))
7924, 78ax-mp 5 . . . . . . . . . . 11 (𝑟 ∈ (𝑆 “ {𝑎}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑎))
8075, 77, 79sylanbrc 583 . . . . . . . . . 10 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ (𝑆 “ {𝑎}))
81 simplr 765 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑏 ∈ ran (𝑇𝑎))
8276fveq2d 6542 . . . . . . . . . . . . . . 15 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑇𝑎) = (𝑇‘(𝑆𝑟)))
8382rneqd 5690 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ran (𝑇𝑎) = ran (𝑇‘(𝑆𝑟)))
8481, 83eleqtrd 2885 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑏 ∈ ran (𝑇‘(𝑆𝑟)))
851, 2, 3, 4, 14, 15efgsp1 18590 . . . . . . . . . . . . 13 ((𝑟 ∈ dom 𝑆𝑏 ∈ ran (𝑇‘(𝑆𝑟))) → (𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆)
8675, 84, 85syl2anc 584 . . . . . . . . . . . 12 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆)
871, 2, 3, 4, 14, 15efgsdm 18583 . . . . . . . . . . . . . . . 16 (𝑟 ∈ dom 𝑆 ↔ (𝑟 ∈ (Word 𝑊 ∖ {∅}) ∧ (𝑟‘0) ∈ 𝐷 ∧ ∀𝑖 ∈ (1..^(♯‘𝑟))(𝑟𝑖) ∈ ran (𝑇‘(𝑟‘(𝑖 − 1)))))
8887simp1bi 1138 . . . . . . . . . . . . . . 15 (𝑟 ∈ dom 𝑆𝑟 ∈ (Word 𝑊 ∖ {∅}))
8988ad2antrl 724 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ (Word 𝑊 ∖ {∅}))
9089eldifad 3871 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ Word 𝑊)
911, 2, 3, 4efgtf 18575 . . . . . . . . . . . . . . . . 17 (𝑎𝑊 → ((𝑇𝑎) = (𝑓 ∈ (0...(♯‘𝑎)), 𝑔 ∈ (𝐼 × 2o) ↦ (𝑎 splice ⟨𝑓, 𝑓, ⟨“𝑔(𝑀𝑔)”⟩⟩)) ∧ (𝑇𝑎):((0...(♯‘𝑎)) × (𝐼 × 2o))⟶𝑊))
9291simprd 496 . . . . . . . . . . . . . . . 16 (𝑎𝑊 → (𝑇𝑎):((0...(♯‘𝑎)) × (𝐼 × 2o))⟶𝑊)
9392frnd 6389 . . . . . . . . . . . . . . 15 (𝑎𝑊 → ran (𝑇𝑎) ⊆ 𝑊)
9493sselda 3889 . . . . . . . . . . . . . 14 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑏𝑊)
9594adantr 481 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑏𝑊)
961, 2, 3, 4, 14, 15efgsval2 18586 . . . . . . . . . . . . 13 ((𝑟 ∈ Word 𝑊𝑏𝑊 ∧ (𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆) → (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏)
9790, 95, 86, 96syl3anc 1364 . . . . . . . . . . . 12 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏)
98 fniniseg 6695 . . . . . . . . . . . . 13 (𝑆 Fn dom 𝑆 → ((𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}) ↔ ((𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆 ∧ (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏)))
9924, 98ax-mp 5 . . . . . . . . . . . 12 ((𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}) ↔ ((𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆 ∧ (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏))
10086, 97, 99sylanbrc 583 . . . . . . . . . . 11 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}))
10195s1cld 13801 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ⟨“𝑏”⟩ ∈ Word 𝑊)
102 eldifsn 4626 . . . . . . . . . . . . . . . 16 (𝑟 ∈ (Word 𝑊 ∖ {∅}) ↔ (𝑟 ∈ Word 𝑊𝑟 ≠ ∅))
103 lennncl 13730 . . . . . . . . . . . . . . . 16 ((𝑟 ∈ Word 𝑊𝑟 ≠ ∅) → (♯‘𝑟) ∈ ℕ)
104102, 103sylbi 218 . . . . . . . . . . . . . . 15 (𝑟 ∈ (Word 𝑊 ∖ {∅}) → (♯‘𝑟) ∈ ℕ)
10589, 104syl 17 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (♯‘𝑟) ∈ ℕ)
106 lbfzo0 12927 . . . . . . . . . . . . . 14 (0 ∈ (0..^(♯‘𝑟)) ↔ (♯‘𝑟) ∈ ℕ)
107105, 106sylibr 235 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 0 ∈ (0..^(♯‘𝑟)))
108 ccatval1 13775 . . . . . . . . . . . . 13 ((𝑟 ∈ Word 𝑊 ∧ ⟨“𝑏”⟩ ∈ Word 𝑊 ∧ 0 ∈ (0..^(♯‘𝑟))) → ((𝑟 ++ ⟨“𝑏”⟩)‘0) = (𝑟‘0))
10990, 101, 107, 108syl3anc 1364 . . . . . . . . . . . 12 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ((𝑟 ++ ⟨“𝑏”⟩)‘0) = (𝑟‘0))
110109eqcomd 2801 . . . . . . . . . . 11 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0))
111 fveq1 6537 . . . . . . . . . . . 12 (𝑠 = (𝑟 ++ ⟨“𝑏”⟩) → (𝑠‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0))
112111rspceeqv 3577 . . . . . . . . . . 11 (((𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}) ∧ (𝑟‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0)) → ∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
113100, 110, 112syl2anc 584 . . . . . . . . . 10 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
11474, 80, 113reximssdv 3239 . . . . . . . . 9 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → ∃𝑟 ∈ (𝑆 “ {𝑎})∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
1151, 2, 3, 4, 14, 15, 6efgrelexlema 18602 . . . . . . . . 9 (𝑎𝐿𝑏 ↔ ∃𝑟 ∈ (𝑆 “ {𝑎})∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
116114, 115sylibr 235 . . . . . . . 8 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑎𝐿𝑏)
117 vex 3440 . . . . . . . . 9 𝑏 ∈ V
118 vex 3440 . . . . . . . . 9 𝑎 ∈ V
119117, 118elec 8183 . . . . . . . 8 (𝑏 ∈ [𝑎]𝐿𝑎𝐿𝑏)
120116, 119sylibr 235 . . . . . . 7 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑏 ∈ [𝑎]𝐿)
121120ex 413 . . . . . 6 (𝑎𝑊 → (𝑏 ∈ ran (𝑇𝑎) → 𝑏 ∈ [𝑎]𝐿))
122121ssrdv 3895 . . . . 5 (𝑎𝑊 → ran (𝑇𝑎) ⊆ [𝑎]𝐿)
123122rgen 3115 . . . 4 𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿
1241fvexi 6552 . . . . . 6 𝑊 ∈ V
125 erex 8163 . . . . . 6 (𝐿 Er 𝑊 → (𝑊 ∈ V → 𝐿 ∈ V))
12671, 124, 125mp2 9 . . . . 5 𝐿 ∈ V
127 ereq1 8146 . . . . . 6 (𝑟 = 𝐿 → (𝑟 Er 𝑊𝐿 Er 𝑊))
128 eceq2 8179 . . . . . . . 8 (𝑟 = 𝐿 → [𝑎]𝑟 = [𝑎]𝐿)
129128sseq2d 3920 . . . . . . 7 (𝑟 = 𝐿 → (ran (𝑇𝑎) ⊆ [𝑎]𝑟 ↔ ran (𝑇𝑎) ⊆ [𝑎]𝐿))
130129ralbidv 3164 . . . . . 6 (𝑟 = 𝐿 → (∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟 ↔ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿))
131127, 130anbi12d 630 . . . . 5 (𝑟 = 𝐿 → ((𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟) ↔ (𝐿 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿)))
132126, 131elab 3605 . . . 4 (𝐿 ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} ↔ (𝐿 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿))
13371, 123, 132mpbir2an 707 . . 3 𝐿 ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)}
134 intss1 4797 . . 3 (𝐿 ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} → {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} ⊆ 𝐿)
135133, 134ax-mp 5 . 2 {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} ⊆ 𝐿
1365, 135eqsstri 3922 1 𝐿
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396  w3a 1080   = wceq 1522  wtru 1523  wcel 2081  {cab 2775  wne 2984  wral 3105  wrex 3106  {crab 3109  Vcvv 3437  cdif 3856  wss 3859  c0 4211  {csn 4472  cop 4478  cotp 4480   cint 4782   ciun 4825   class class class wbr 4962  {copab 5024  cmpt 5041   I cid 5347   × cxp 5441  ccnv 5442  dom cdm 5443  ran crn 5444  cima 5446  Rel wrel 5448   Fn wfn 6220  wf 6221  ontowfo 6223  cfv 6225  (class class class)co 7016  cmpo 7018  1oc1o 7946  2oc2o 7947   Er wer 8136  [cec 8137  0cc0 10383  1c1 10384  cmin 10717  cn 11486  ...cfz 12742  ..^cfzo 12883  chash 13540  Word cword 13707   ++ cconcat 13768  ⟨“cs1 13793   splice csplice 13947  ⟨“cs2 14039   ~FG cefg 18559
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-cnex 10439  ax-resscn 10440  ax-1cn 10441  ax-icn 10442  ax-addcl 10443  ax-addrcl 10444  ax-mulcl 10445  ax-mulrcl 10446  ax-mulcom 10447  ax-addass 10448  ax-mulass 10449  ax-distr 10450  ax-i2m1 10451  ax-1ne0 10452  ax-1rid 10453  ax-rnegex 10454  ax-rrecex 10455  ax-cnre 10456  ax-pre-lttri 10457  ax-pre-lttrn 10458  ax-pre-ltadd 10459  ax-pre-mulgt0 10460
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-nel 3091  df-ral 3110  df-rex 3111  df-reu 3112  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-ot 4481  df-uni 4746  df-int 4783  df-iun 4827  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-om 7437  df-1st 7545  df-2nd 7546  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-1o 7953  df-2o 7954  df-oadd 7957  df-er 8139  df-ec 8141  df-map 8258  df-en 8358  df-dom 8359  df-sdom 8360  df-fin 8361  df-card 9214  df-pnf 10523  df-mnf 10524  df-xr 10525  df-ltxr 10526  df-le 10527  df-sub 10719  df-neg 10720  df-nn 11487  df-2 11548  df-n0 11746  df-z 11830  df-uz 12094  df-rp 12240  df-fz 12743  df-fzo 12884  df-hash 13541  df-word 13708  df-concat 13769  df-s1 13794  df-substr 13839  df-pfx 13869  df-splice 13948  df-s2 14046  df-efg 18562
This theorem is referenced by:  efgrelex  18604
  Copyright terms: Public domain W3C validator