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

Theorem efgrelexlema 19611
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
StepHypRef Expression
1 efgrelexlem.1 . . 3 𝐿 = {βŸ¨π‘–, π‘—βŸ© ∣ βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑖})βˆƒπ‘‘ ∈ (◑𝑆 β€œ {𝑗})(π‘β€˜0) = (π‘‘β€˜0)}
21bropaex12 5765 . 2 (𝐴𝐿𝐡 β†’ (𝐴 ∈ V ∧ 𝐡 ∈ V))
3 n0i 4332 . . . . . 6 (π‘Ž ∈ (◑𝑆 β€œ {𝐴}) β†’ Β¬ (◑𝑆 β€œ {𝐴}) = βˆ…)
4 snprc 4720 . . . . . . . 8 (Β¬ 𝐴 ∈ V ↔ {𝐴} = βˆ…)
5 imaeq2 6053 . . . . . . . 8 ({𝐴} = βˆ… β†’ (◑𝑆 β€œ {𝐴}) = (◑𝑆 β€œ βˆ…))
64, 5sylbi 216 . . . . . . 7 (Β¬ 𝐴 ∈ V β†’ (◑𝑆 β€œ {𝐴}) = (◑𝑆 β€œ βˆ…))
7 ima0 6073 . . . . . . 7 (◑𝑆 β€œ βˆ…) = βˆ…
86, 7eqtrdi 2788 . . . . . 6 (Β¬ 𝐴 ∈ V β†’ (◑𝑆 β€œ {𝐴}) = βˆ…)
93, 8nsyl2 141 . . . . 5 (π‘Ž ∈ (◑𝑆 β€œ {𝐴}) β†’ 𝐴 ∈ V)
10 n0i 4332 . . . . . 6 (𝑏 ∈ (◑𝑆 β€œ {𝐡}) β†’ Β¬ (◑𝑆 β€œ {𝐡}) = βˆ…)
11 snprc 4720 . . . . . . . 8 (Β¬ 𝐡 ∈ V ↔ {𝐡} = βˆ…)
12 imaeq2 6053 . . . . . . . 8 ({𝐡} = βˆ… β†’ (◑𝑆 β€œ {𝐡}) = (◑𝑆 β€œ βˆ…))
1311, 12sylbi 216 . . . . . . 7 (Β¬ 𝐡 ∈ V β†’ (◑𝑆 β€œ {𝐡}) = (◑𝑆 β€œ βˆ…))
1413, 7eqtrdi 2788 . . . . . 6 (Β¬ 𝐡 ∈ V β†’ (◑𝑆 β€œ {𝐡}) = βˆ…)
1510, 14nsyl2 141 . . . . 5 (𝑏 ∈ (◑𝑆 β€œ {𝐡}) β†’ 𝐡 ∈ V)
169, 15anim12i 613 . . . 4 ((π‘Ž ∈ (◑𝑆 β€œ {𝐴}) ∧ 𝑏 ∈ (◑𝑆 β€œ {𝐡})) β†’ (𝐴 ∈ V ∧ 𝐡 ∈ V))
1716a1d 25 . . 3 ((π‘Ž ∈ (◑𝑆 β€œ {𝐴}) ∧ 𝑏 ∈ (◑𝑆 β€œ {𝐡})) β†’ ((π‘Žβ€˜0) = (π‘β€˜0) β†’ (𝐴 ∈ V ∧ 𝐡 ∈ V)))
1817rexlimivv 3199 . 2 (βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝐡})(π‘Žβ€˜0) = (π‘β€˜0) β†’ (𝐴 ∈ V ∧ 𝐡 ∈ V))
19 fveq1 6887 . . . . . 6 (𝑐 = π‘Ž β†’ (π‘β€˜0) = (π‘Žβ€˜0))
2019eqeq1d 2734 . . . . 5 (𝑐 = π‘Ž β†’ ((π‘β€˜0) = (π‘‘β€˜0) ↔ (π‘Žβ€˜0) = (π‘‘β€˜0)))
21 fveq1 6887 . . . . . 6 (𝑑 = 𝑏 β†’ (π‘‘β€˜0) = (π‘β€˜0))
2221eqeq2d 2743 . . . . 5 (𝑑 = 𝑏 β†’ ((π‘Žβ€˜0) = (π‘‘β€˜0) ↔ (π‘Žβ€˜0) = (π‘β€˜0)))
2320, 22cbvrex2vw 3239 . . . 4 (βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑖})βˆƒπ‘‘ ∈ (◑𝑆 β€œ {𝑗})(π‘β€˜0) = (π‘‘β€˜0) ↔ βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝑖})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑗})(π‘Žβ€˜0) = (π‘β€˜0))
24 sneq 4637 . . . . . 6 (𝑖 = 𝐴 β†’ {𝑖} = {𝐴})
2524imaeq2d 6057 . . . . 5 (𝑖 = 𝐴 β†’ (◑𝑆 β€œ {𝑖}) = (◑𝑆 β€œ {𝐴}))
2625rexeqdv 3326 . . . 4 (𝑖 = 𝐴 β†’ (βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝑖})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑗})(π‘Žβ€˜0) = (π‘β€˜0) ↔ βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑗})(π‘Žβ€˜0) = (π‘β€˜0)))
2723, 26bitrid 282 . . 3 (𝑖 = 𝐴 β†’ (βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑖})βˆƒπ‘‘ ∈ (◑𝑆 β€œ {𝑗})(π‘β€˜0) = (π‘‘β€˜0) ↔ βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑗})(π‘Žβ€˜0) = (π‘β€˜0)))
28 sneq 4637 . . . . . 6 (𝑗 = 𝐡 β†’ {𝑗} = {𝐡})
2928imaeq2d 6057 . . . . 5 (𝑗 = 𝐡 β†’ (◑𝑆 β€œ {𝑗}) = (◑𝑆 β€œ {𝐡}))
3029rexeqdv 3326 . . . 4 (𝑗 = 𝐡 β†’ (βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑗})(π‘Žβ€˜0) = (π‘β€˜0) ↔ βˆƒπ‘ ∈ (◑𝑆 β€œ {𝐡})(π‘Žβ€˜0) = (π‘β€˜0)))
3130rexbidv 3178 . . 3 (𝑗 = 𝐡 β†’ (βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝑗})(π‘Žβ€˜0) = (π‘β€˜0) ↔ βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝐡})(π‘Žβ€˜0) = (π‘β€˜0)))
3227, 31, 1brabg 5538 . 2 ((𝐴 ∈ V ∧ 𝐡 ∈ V) β†’ (𝐴𝐿𝐡 ↔ βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝐡})(π‘Žβ€˜0) = (π‘β€˜0)))
332, 18, 32pm5.21nii 379 1 (𝐴𝐿𝐡 ↔ βˆƒπ‘Ž ∈ (◑𝑆 β€œ {𝐴})βˆƒπ‘ ∈ (◑𝑆 β€œ {𝐡})(π‘Žβ€˜0) = (π‘β€˜0))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106  βˆ€wral 3061  βˆƒwrex 3070  {crab 3432  Vcvv 3474   βˆ– cdif 3944  βˆ…c0 4321  {csn 4627  βŸ¨cop 4633  βŸ¨cotp 4635  βˆͺ ciun 4996   class class class wbr 5147  {copab 5209   ↦ cmpt 5230   I cid 5572   Γ— cxp 5673  β—‘ccnv 5674  ran crn 5676   β€œ cima 5678  β€˜cfv 6540  (class class class)co 7405   ∈ cmpo 7407  1oc1o 8455  2oc2o 8456  0cc0 11106  1c1 11107   βˆ’ cmin 11440  ...cfz 13480  ..^cfzo 13623  β™―chash 14286  Word cword 14460   splice csplice 14695  βŸ¨β€œcs2 14788   ~FG cefg 19568
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5298  ax-nul 5305  ax-pr 5426
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-clab 2710  df-cleq 2724  df-clel 2810  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-br 5148  df-opab 5210  df-xp 5681  df-cnv 5683  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-iota 6492  df-fv 6548
This theorem is referenced by:  efgrelexlemb  19612  efgrelex  19613
  Copyright terms: Public domain W3C validator