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

Theorem efgrelexlemb 18084
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 (𝐼 × 2𝑜))
efgval.r = ( ~FG𝐼)
efgval2.m 𝑀 = (𝑦𝐼, 𝑧 ∈ 2𝑜 ↦ ⟨𝑦, (1𝑜𝑧)⟩)
efgval2.t 𝑇 = (𝑣𝑊 ↦ (𝑛 ∈ (0...(#‘𝑣)), 𝑤 ∈ (𝐼 × 2𝑜) ↦ (𝑣 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 (𝐼 × 2𝑜))
2 efgval.r . . 3 = ( ~FG𝐼)
3 efgval2.m . . 3 𝑀 = (𝑦𝐼, 𝑧 ∈ 2𝑜 ↦ ⟨𝑦, (1𝑜𝑧)⟩)
4 efgval2.t . . 3 𝑇 = (𝑣𝑊 ↦ (𝑛 ∈ (0...(#‘𝑣)), 𝑤 ∈ (𝐼 × 2𝑜) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀𝑤)”⟩⟩)))
51, 2, 3, 4efgval2 18058 . 2 = {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)}
6 efgrelexlem.1 . . . . . . . 8 𝐿 = {⟨𝑖, 𝑗⟩ ∣ ∃𝑐 ∈ (𝑆 “ {𝑖})∃𝑑 ∈ (𝑆 “ {𝑗})(𝑐‘0) = (𝑑‘0)}
76relopabi 5205 . . . . . . 7 Rel 𝐿
87a1i 11 . . . . . 6 (⊤ → Rel 𝐿)
9 simpr 477 . . . . . . 7 ((⊤ ∧ 𝑓𝐿𝑔) → 𝑓𝐿𝑔)
10 eqcom 2628 . . . . . . . . . 10 ((𝑎‘0) = (𝑏‘0) ↔ (𝑏‘0) = (𝑎‘0))
11102rexbii 3035 . . . . . . . . 9 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑏‘0) = (𝑎‘0))
12 rexcom 3091 . . . . . . . . 9 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑏‘0) = (𝑎‘0) ↔ ∃𝑏 ∈ (𝑆 “ {𝑔})∃𝑎 ∈ (𝑆 “ {𝑓})(𝑏‘0) = (𝑎‘0))
1311, 12bitri 264 . . . . . . . 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 18083 . . . . . . . 8 (𝑓𝐿𝑔 ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0))
171, 2, 3, 4, 14, 15, 6efgrelexlema 18083 . . . . . . . 8 (𝑔𝐿𝑓 ↔ ∃𝑏 ∈ (𝑆 “ {𝑔})∃𝑎 ∈ (𝑆 “ {𝑓})(𝑏‘0) = (𝑎‘0))
1813, 16, 173bitr4i 292 . . . . . . 7 (𝑓𝐿𝑔𝑔𝐿𝑓)
199, 18sylib 208 . . . . . 6 ((⊤ ∧ 𝑓𝐿𝑔) → 𝑔𝐿𝑓)
201, 2, 3, 4, 14, 15, 6efgrelexlema 18083 . . . . . . . . 9 (𝑔𝐿 ↔ ∃𝑟 ∈ (𝑆 “ {𝑔})∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0))
21 reeanv 3097 . . . . . . . . . 10 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑟 ∈ (𝑆 “ {𝑔})(∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) ↔ (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑟 ∈ (𝑆 “ {𝑔})∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)))
221, 2, 3, 4, 14, 15efgsfo 18073 . . . . . . . . . . . . . . . . . . . 20 𝑆:dom 𝑆onto𝑊
23 fofn 6074 . . . . . . . . . . . . . . . . . . . 20 (𝑆:dom 𝑆onto𝑊𝑆 Fn dom 𝑆)
2422, 23ax-mp 5 . . . . . . . . . . . . . . . . . . 19 𝑆 Fn dom 𝑆
25 fniniseg 6294 . . . . . . . . . . . . . . . . . . 19 (𝑆 Fn dom 𝑆 → (𝑟 ∈ (𝑆 “ {𝑔}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑔)))
2624, 25ax-mp 5 . . . . . . . . . . . . . . . . . 18 (𝑟 ∈ (𝑆 “ {𝑔}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑔))
27 fniniseg 6294 . . . . . . . . . . . . . . . . . . 19 (𝑆 Fn dom 𝑆 → (𝑏 ∈ (𝑆 “ {𝑔}) ↔ (𝑏 ∈ dom 𝑆 ∧ (𝑆𝑏) = 𝑔)))
2824, 27ax-mp 5 . . . . . . . . . . . . . . . . . 18 (𝑏 ∈ (𝑆 “ {𝑔}) ↔ (𝑏 ∈ dom 𝑆 ∧ (𝑆𝑏) = 𝑔))
29 eqtr3 2642 . . . . . . . . . . . . . . . . . . . 20 (((𝑆𝑟) = 𝑔 ∧ (𝑆𝑏) = 𝑔) → (𝑆𝑟) = (𝑆𝑏))
301, 2, 3, 4, 14, 15efgred 18082 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆 ∧ (𝑆𝑟) = (𝑆𝑏)) → (𝑟‘0) = (𝑏‘0))
3130eqcomd 2627 . . . . . . . . . . . . . . . . . . . . 21 ((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆 ∧ (𝑆𝑟) = (𝑆𝑏)) → (𝑏‘0) = (𝑟‘0))
32313expa 1262 . . . . . . . . . . . . . . . . . . . 20 (((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆) ∧ (𝑆𝑟) = (𝑆𝑏)) → (𝑏‘0) = (𝑟‘0))
3329, 32sylan2 491 . . . . . . . . . . . . . . . . . . 19 (((𝑟 ∈ dom 𝑆𝑏 ∈ dom 𝑆) ∧ ((𝑆𝑟) = 𝑔 ∧ (𝑆𝑏) = 𝑔)) → (𝑏‘0) = (𝑟‘0))
3433an4s 868 . . . . . . . . . . . . . . . . . 18 (((𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑔) ∧ (𝑏 ∈ dom 𝑆 ∧ (𝑆𝑏) = 𝑔)) → (𝑏‘0) = (𝑟‘0))
3526, 28, 34syl2anb 496 . . . . . . . . . . . . . . . . 17 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → (𝑏‘0) = (𝑟‘0))
36 eqeq2 2632 . . . . . . . . . . . . . . . . 17 ((𝑟‘0) = (𝑠‘0) → ((𝑏‘0) = (𝑟‘0) ↔ (𝑏‘0) = (𝑠‘0)))
3735, 36syl5ibcom 235 . . . . . . . . . . . . . . . 16 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → ((𝑟‘0) = (𝑠‘0) → (𝑏‘0) = (𝑠‘0)))
3837reximdv 3010 . . . . . . . . . . . . . . 15 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑏‘0) = (𝑠‘0)))
39 eqeq1 2625 . . . . . . . . . . . . . . . . 17 ((𝑎‘0) = (𝑏‘0) → ((𝑎‘0) = (𝑠‘0) ↔ (𝑏‘0) = (𝑠‘0)))
4039rexbidv 3045 . . . . . . . . . . . . . . . 16 ((𝑎‘0) = (𝑏‘0) → (∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0) ↔ ∃𝑠 ∈ (𝑆 “ {})(𝑏‘0) = (𝑠‘0)))
4140imbi2d 330 . . . . . . . . . . . . . . 15 ((𝑎‘0) = (𝑏‘0) → ((∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0)) ↔ (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑏‘0) = (𝑠‘0))))
4238, 41syl5ibrcom 237 . . . . . . . . . . . . . 14 ((𝑟 ∈ (𝑆 “ {𝑔}) ∧ 𝑏 ∈ (𝑆 “ {𝑔})) → ((𝑎‘0) = (𝑏‘0) → (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))))
4342rexlimdva 3024 . . . . . . . . . . . . 13 (𝑟 ∈ (𝑆 “ {𝑔}) → (∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) → (∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))))
4443impd 447 . . . . . . . . . . . 12 (𝑟 ∈ (𝑆 “ {𝑔}) → ((∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0)))
4544rexlimiv 3020 . . . . . . . . . . 11 (∃𝑟 ∈ (𝑆 “ {𝑔})(∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
4645reximi 3005 . . . . . . . . . 10 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑟 ∈ (𝑆 “ {𝑔})(∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
4721, 46sylbir 225 . . . . . . . . 9 ((∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑔})(𝑎‘0) = (𝑏‘0) ∧ ∃𝑟 ∈ (𝑆 “ {𝑔})∃𝑠 ∈ (𝑆 “ {})(𝑟‘0) = (𝑠‘0)) → ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
4816, 20, 47syl2anb 496 . . . . . . . 8 ((𝑓𝐿𝑔𝑔𝐿) → ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
491, 2, 3, 4, 14, 15, 6efgrelexlema 18083 . . . . . . . 8 (𝑓𝐿 ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑠 ∈ (𝑆 “ {})(𝑎‘0) = (𝑠‘0))
5048, 49sylibr 224 . . . . . . 7 ((𝑓𝐿𝑔𝑔𝐿) → 𝑓𝐿)
5150adantl 482 . . . . . 6 ((⊤ ∧ (𝑓𝐿𝑔𝑔𝐿)) → 𝑓𝐿)
52 eqid 2621 . . . . . . . . . . . 12 (𝑎‘0) = (𝑎‘0)
53 fveq1 6147 . . . . . . . . . . . . . 14 (𝑏 = 𝑎 → (𝑏‘0) = (𝑎‘0))
5453eqeq2d 2631 . . . . . . . . . . . . 13 (𝑏 = 𝑎 → ((𝑎‘0) = (𝑏‘0) ↔ (𝑎‘0) = (𝑎‘0)))
5554rspcev 3295 . . . . . . . . . . . 12 ((𝑎 ∈ (𝑆 “ {𝑓}) ∧ (𝑎‘0) = (𝑎‘0)) → ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0))
5652, 55mpan2 706 . . . . . . . . . . 11 (𝑎 ∈ (𝑆 “ {𝑓}) → ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0))
5756pm4.71i 663 . . . . . . . . . 10 (𝑎 ∈ (𝑆 “ {𝑓}) ↔ (𝑎 ∈ (𝑆 “ {𝑓}) ∧ ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0)))
58 fniniseg 6294 . . . . . . . . . . 11 (𝑆 Fn dom 𝑆 → (𝑎 ∈ (𝑆 “ {𝑓}) ↔ (𝑎 ∈ dom 𝑆 ∧ (𝑆𝑎) = 𝑓)))
5924, 58ax-mp 5 . . . . . . . . . 10 (𝑎 ∈ (𝑆 “ {𝑓}) ↔ (𝑎 ∈ dom 𝑆 ∧ (𝑆𝑎) = 𝑓))
6057, 59bitr3i 266 . . . . . . . . 9 ((𝑎 ∈ (𝑆 “ {𝑓}) ∧ ∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0)) ↔ (𝑎 ∈ dom 𝑆 ∧ (𝑆𝑎) = 𝑓))
6160rexbii2 3032 . . . . . . . 8 (∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0) ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓)
621, 2, 3, 4, 14, 15, 6efgrelexlema 18083 . . . . . . . 8 (𝑓𝐿𝑓 ↔ ∃𝑎 ∈ (𝑆 “ {𝑓})∃𝑏 ∈ (𝑆 “ {𝑓})(𝑎‘0) = (𝑏‘0))
63 forn 6075 . . . . . . . . . . 11 (𝑆:dom 𝑆onto𝑊 → ran 𝑆 = 𝑊)
6422, 63ax-mp 5 . . . . . . . . . 10 ran 𝑆 = 𝑊
6564eleq2i 2690 . . . . . . . . 9 (𝑓 ∈ ran 𝑆𝑓𝑊)
66 fvelrnb 6200 . . . . . . . . . 10 (𝑆 Fn dom 𝑆 → (𝑓 ∈ ran 𝑆 ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓))
6724, 66ax-mp 5 . . . . . . . . 9 (𝑓 ∈ ran 𝑆 ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓)
6865, 67bitr3i 266 . . . . . . . 8 (𝑓𝑊 ↔ ∃𝑎 ∈ dom 𝑆(𝑆𝑎) = 𝑓)
6961, 62, 683bitr4ri 293 . . . . . . 7 (𝑓𝑊𝑓𝐿𝑓)
7069a1i 11 . . . . . 6 (⊤ → (𝑓𝑊𝑓𝐿𝑓))
718, 19, 51, 70iserd 7713 . . . . 5 (⊤ → 𝐿 Er 𝑊)
7271trud 1490 . . . 4 𝐿 Er 𝑊
73 simpl 473 . . . . . . . . . . 11 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑎𝑊)
74 foelrn 6334 . . . . . . . . . . 11 ((𝑆:dom 𝑆onto𝑊𝑎𝑊) → ∃𝑟 ∈ dom 𝑆 𝑎 = (𝑆𝑟))
7522, 73, 74sylancr 694 . . . . . . . . . 10 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → ∃𝑟 ∈ dom 𝑆 𝑎 = (𝑆𝑟))
76 simprl 793 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ dom 𝑆)
77 simprr 795 . . . . . . . . . . . . . . 15 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑎 = (𝑆𝑟))
7877eqcomd 2627 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑆𝑟) = 𝑎)
79 fniniseg 6294 . . . . . . . . . . . . . . 15 (𝑆 Fn dom 𝑆 → (𝑟 ∈ (𝑆 “ {𝑎}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑎)))
8024, 79ax-mp 5 . . . . . . . . . . . . . 14 (𝑟 ∈ (𝑆 “ {𝑎}) ↔ (𝑟 ∈ dom 𝑆 ∧ (𝑆𝑟) = 𝑎))
8176, 78, 80sylanbrc 697 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ (𝑆 “ {𝑎}))
82 simplr 791 . . . . . . . . . . . . . . . . 17 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑏 ∈ ran (𝑇𝑎))
8377fveq2d 6152 . . . . . . . . . . . . . . . . . 18 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑇𝑎) = (𝑇‘(𝑆𝑟)))
8483rneqd 5313 . . . . . . . . . . . . . . . . 17 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ran (𝑇𝑎) = ran (𝑇‘(𝑆𝑟)))
8582, 84eleqtrd 2700 . . . . . . . . . . . . . . . 16 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑏 ∈ ran (𝑇‘(𝑆𝑟)))
861, 2, 3, 4, 14, 15efgsp1 18071 . . . . . . . . . . . . . . . 16 ((𝑟 ∈ dom 𝑆𝑏 ∈ ran (𝑇‘(𝑆𝑟))) → (𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆)
8776, 85, 86syl2anc 692 . . . . . . . . . . . . . . 15 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆)
881, 2, 3, 4, 14, 15efgsdm 18064 . . . . . . . . . . . . . . . . . . 19 (𝑟 ∈ dom 𝑆 ↔ (𝑟 ∈ (Word 𝑊 ∖ {∅}) ∧ (𝑟‘0) ∈ 𝐷 ∧ ∀𝑖 ∈ (1..^(#‘𝑟))(𝑟𝑖) ∈ ran (𝑇‘(𝑟‘(𝑖 − 1)))))
8988simp1bi 1074 . . . . . . . . . . . . . . . . . 18 (𝑟 ∈ dom 𝑆𝑟 ∈ (Word 𝑊 ∖ {∅}))
9089ad2antrl 763 . . . . . . . . . . . . . . . . 17 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ (Word 𝑊 ∖ {∅}))
9190eldifad 3567 . . . . . . . . . . . . . . . 16 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑟 ∈ Word 𝑊)
921, 2, 3, 4efgtf 18056 . . . . . . . . . . . . . . . . . . . 20 (𝑎𝑊 → ((𝑇𝑎) = (𝑓 ∈ (0...(#‘𝑎)), 𝑔 ∈ (𝐼 × 2𝑜) ↦ (𝑎 splice ⟨𝑓, 𝑓, ⟨“𝑔(𝑀𝑔)”⟩⟩)) ∧ (𝑇𝑎):((0...(#‘𝑎)) × (𝐼 × 2𝑜))⟶𝑊))
9392simprd 479 . . . . . . . . . . . . . . . . . . 19 (𝑎𝑊 → (𝑇𝑎):((0...(#‘𝑎)) × (𝐼 × 2𝑜))⟶𝑊)
94 frn 6010 . . . . . . . . . . . . . . . . . . 19 ((𝑇𝑎):((0...(#‘𝑎)) × (𝐼 × 2𝑜))⟶𝑊 → ran (𝑇𝑎) ⊆ 𝑊)
9593, 94syl 17 . . . . . . . . . . . . . . . . . 18 (𝑎𝑊 → ran (𝑇𝑎) ⊆ 𝑊)
9695sselda 3583 . . . . . . . . . . . . . . . . 17 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑏𝑊)
9796adantr 481 . . . . . . . . . . . . . . . 16 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 𝑏𝑊)
981, 2, 3, 4, 14, 15efgsval2 18067 . . . . . . . . . . . . . . . 16 ((𝑟 ∈ Word 𝑊𝑏𝑊 ∧ (𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆) → (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏)
9991, 97, 87, 98syl3anc 1323 . . . . . . . . . . . . . . 15 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏)
100 fniniseg 6294 . . . . . . . . . . . . . . . 16 (𝑆 Fn dom 𝑆 → ((𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}) ↔ ((𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆 ∧ (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏)))
10124, 100ax-mp 5 . . . . . . . . . . . . . . 15 ((𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}) ↔ ((𝑟 ++ ⟨“𝑏”⟩) ∈ dom 𝑆 ∧ (𝑆‘(𝑟 ++ ⟨“𝑏”⟩)) = 𝑏))
10287, 99, 101sylanbrc 697 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}))
10397s1cld 13322 . . . . . . . . . . . . . . . 16 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ⟨“𝑏”⟩ ∈ Word 𝑊)
104 eldifsn 4287 . . . . . . . . . . . . . . . . . . 19 (𝑟 ∈ (Word 𝑊 ∖ {∅}) ↔ (𝑟 ∈ Word 𝑊𝑟 ≠ ∅))
105 lennncl 13264 . . . . . . . . . . . . . . . . . . 19 ((𝑟 ∈ Word 𝑊𝑟 ≠ ∅) → (#‘𝑟) ∈ ℕ)
106104, 105sylbi 207 . . . . . . . . . . . . . . . . . 18 (𝑟 ∈ (Word 𝑊 ∖ {∅}) → (#‘𝑟) ∈ ℕ)
10790, 106syl 17 . . . . . . . . . . . . . . . . 17 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (#‘𝑟) ∈ ℕ)
108 lbfzo0 12448 . . . . . . . . . . . . . . . . 17 (0 ∈ (0..^(#‘𝑟)) ↔ (#‘𝑟) ∈ ℕ)
109107, 108sylibr 224 . . . . . . . . . . . . . . . 16 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → 0 ∈ (0..^(#‘𝑟)))
110 ccatval1 13300 . . . . . . . . . . . . . . . 16 ((𝑟 ∈ Word 𝑊 ∧ ⟨“𝑏”⟩ ∈ Word 𝑊 ∧ 0 ∈ (0..^(#‘𝑟))) → ((𝑟 ++ ⟨“𝑏”⟩)‘0) = (𝑟‘0))
11191, 103, 109, 110syl3anc 1323 . . . . . . . . . . . . . . 15 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ((𝑟 ++ ⟨“𝑏”⟩)‘0) = (𝑟‘0))
112111eqcomd 2627 . . . . . . . . . . . . . 14 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0))
113 fveq1 6147 . . . . . . . . . . . . . . . 16 (𝑠 = (𝑟 ++ ⟨“𝑏”⟩) → (𝑠‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0))
114113eqeq2d 2631 . . . . . . . . . . . . . . 15 (𝑠 = (𝑟 ++ ⟨“𝑏”⟩) → ((𝑟‘0) = (𝑠‘0) ↔ (𝑟‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0)))
115114rspcev 3295 . . . . . . . . . . . . . 14 (((𝑟 ++ ⟨“𝑏”⟩) ∈ (𝑆 “ {𝑏}) ∧ (𝑟‘0) = ((𝑟 ++ ⟨“𝑏”⟩)‘0)) → ∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
116102, 112, 115syl2anc 692 . . . . . . . . . . . . 13 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → ∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
11781, 116jca 554 . . . . . . . . . . . 12 (((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) ∧ (𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟))) → (𝑟 ∈ (𝑆 “ {𝑎}) ∧ ∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0)))
118117ex 450 . . . . . . . . . . 11 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → ((𝑟 ∈ dom 𝑆𝑎 = (𝑆𝑟)) → (𝑟 ∈ (𝑆 “ {𝑎}) ∧ ∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))))
119118reximdv2 3008 . . . . . . . . . 10 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → (∃𝑟 ∈ dom 𝑆 𝑎 = (𝑆𝑟) → ∃𝑟 ∈ (𝑆 “ {𝑎})∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0)))
12075, 119mpd 15 . . . . . . . . 9 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → ∃𝑟 ∈ (𝑆 “ {𝑎})∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
1211, 2, 3, 4, 14, 15, 6efgrelexlema 18083 . . . . . . . . 9 (𝑎𝐿𝑏 ↔ ∃𝑟 ∈ (𝑆 “ {𝑎})∃𝑠 ∈ (𝑆 “ {𝑏})(𝑟‘0) = (𝑠‘0))
122120, 121sylibr 224 . . . . . . . 8 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑎𝐿𝑏)
123 vex 3189 . . . . . . . . 9 𝑏 ∈ V
124 vex 3189 . . . . . . . . 9 𝑎 ∈ V
125123, 124elec 7731 . . . . . . . 8 (𝑏 ∈ [𝑎]𝐿𝑎𝐿𝑏)
126122, 125sylibr 224 . . . . . . 7 ((𝑎𝑊𝑏 ∈ ran (𝑇𝑎)) → 𝑏 ∈ [𝑎]𝐿)
127126ex 450 . . . . . 6 (𝑎𝑊 → (𝑏 ∈ ran (𝑇𝑎) → 𝑏 ∈ [𝑎]𝐿))
128127ssrdv 3589 . . . . 5 (𝑎𝑊 → ran (𝑇𝑎) ⊆ [𝑎]𝐿)
129128rgen 2917 . . . 4 𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿
130 fvex 6158 . . . . . . 7 ( I ‘Word (𝐼 × 2𝑜)) ∈ V
1311, 130eqeltri 2694 . . . . . 6 𝑊 ∈ V
132 erex 7711 . . . . . 6 (𝐿 Er 𝑊 → (𝑊 ∈ V → 𝐿 ∈ V))
13372, 131, 132mp2 9 . . . . 5 𝐿 ∈ V
134 ereq1 7694 . . . . . 6 (𝑟 = 𝐿 → (𝑟 Er 𝑊𝐿 Er 𝑊))
135 eceq2 7729 . . . . . . . 8 (𝑟 = 𝐿 → [𝑎]𝑟 = [𝑎]𝐿)
136135sseq2d 3612 . . . . . . 7 (𝑟 = 𝐿 → (ran (𝑇𝑎) ⊆ [𝑎]𝑟 ↔ ran (𝑇𝑎) ⊆ [𝑎]𝐿))
137136ralbidv 2980 . . . . . 6 (𝑟 = 𝐿 → (∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟 ↔ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿))
138134, 137anbi12d 746 . . . . 5 (𝑟 = 𝐿 → ((𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟) ↔ (𝐿 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿)))
139133, 138elab 3333 . . . 4 (𝐿 ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} ↔ (𝐿 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝐿))
14072, 129, 139mpbir2an 954 . . 3 𝐿 ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)}
141 intss1 4457 . . 3 (𝐿 ∈ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} → {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} ⊆ 𝐿)
142140, 141ax-mp 5 . 2 {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑎𝑊 ran (𝑇𝑎) ⊆ [𝑎]𝑟)} ⊆ 𝐿
1435, 142eqsstri 3614 1 𝐿
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1036   = wceq 1480  wtru 1481  wcel 1987  {cab 2607  wne 2790  wral 2907  wrex 2908  {crab 2911  Vcvv 3186  cdif 3552  wss 3555  c0 3891  {csn 4148  cop 4154  cotp 4156   cint 4440   ciun 4485   class class class wbr 4613  {copab 4672  cmpt 4673   I cid 4984   × cxp 5072  ccnv 5073  dom cdm 5074  ran crn 5075  cima 5077  Rel wrel 5079   Fn wfn 5842  wf 5843  ontowfo 5845  cfv 5847  (class class class)co 6604  cmpt2 6606  1𝑜c1o 7498  2𝑜c2o 7499   Er wer 7684  [cec 7685  0cc0 9880  1c1 9881  cmin 10210  cn 10964  ...cfz 12268  ..^cfzo 12406  #chash 13057  Word cword 13230   ++ cconcat 13232  ⟨“cs1 13233   splice csplice 13235  ⟨“cs2 13523   ~FG cefg 18040
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4731  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902  ax-cnex 9936  ax-resscn 9937  ax-1cn 9938  ax-icn 9939  ax-addcl 9940  ax-addrcl 9941  ax-mulcl 9942  ax-mulrcl 9943  ax-mulcom 9944  ax-addass 9945  ax-mulass 9946  ax-distr 9947  ax-i2m1 9948  ax-1ne0 9949  ax-1rid 9950  ax-rnegex 9951  ax-rrecex 9952  ax-cnre 9953  ax-pre-lttri 9954  ax-pre-lttrn 9955  ax-pre-ltadd 9956  ax-pre-mulgt0 9957
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-pss 3571  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-tp 4153  df-op 4155  df-ot 4157  df-uni 4403  df-int 4441  df-iun 4487  df-br 4614  df-opab 4674  df-mpt 4675  df-tr 4713  df-eprel 4985  df-id 4989  df-po 4995  df-so 4996  df-fr 5033  df-we 5035  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-pred 5639  df-ord 5685  df-on 5686  df-lim 5687  df-suc 5688  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-riota 6565  df-ov 6607  df-oprab 6608  df-mpt2 6609  df-om 7013  df-1st 7113  df-2nd 7114  df-wrecs 7352  df-recs 7413  df-rdg 7451  df-1o 7505  df-2o 7506  df-oadd 7509  df-er 7687  df-ec 7689  df-map 7804  df-pm 7805  df-en 7900  df-dom 7901  df-sdom 7902  df-fin 7903  df-card 8709  df-pnf 10020  df-mnf 10021  df-xr 10022  df-ltxr 10023  df-le 10024  df-sub 10212  df-neg 10213  df-nn 10965  df-2 11023  df-n0 11237  df-z 11322  df-uz 11632  df-rp 11777  df-fz 12269  df-fzo 12407  df-hash 13058  df-word 13238  df-concat 13240  df-s1 13241  df-substr 13242  df-splice 13243  df-s2 13530  df-efg 18043
This theorem is referenced by:  efgrelex  18085
  Copyright terms: Public domain W3C validator