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

Theorem fnwelem 8131
Description: Lemma for fnwe 8132. (Contributed by Mario Carneiro, 10-Mar-2013.) (Revised by Mario Carneiro, 18-Nov-2014.)
Hypotheses
Ref Expression
fnwe.1 𝑇 = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)))}
fnwe.2 (πœ‘ β†’ 𝐹:𝐴⟢𝐡)
fnwe.3 (πœ‘ β†’ 𝑅 We 𝐡)
fnwe.4 (πœ‘ β†’ 𝑆 We 𝐴)
fnwe.5 (πœ‘ β†’ (𝐹 β€œ 𝑀) ∈ V)
fnwelem.6 𝑄 = {βŸ¨π‘’, π‘£βŸ© ∣ ((𝑒 ∈ (𝐡 Γ— 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ∧ ((1st β€˜π‘’)𝑅(1st β€˜π‘£) ∨ ((1st β€˜π‘’) = (1st β€˜π‘£) ∧ (2nd β€˜π‘’)𝑆(2nd β€˜π‘£))))}
fnwelem.7 𝐺 = (𝑧 ∈ 𝐴 ↦ ⟨(πΉβ€˜π‘§), π‘§βŸ©)
Assertion
Ref Expression
fnwelem (πœ‘ β†’ 𝑇 We 𝐴)
Distinct variable groups:   𝑣,𝑒,𝑀,π‘₯,𝑦,𝑧,𝐴   𝑒,𝐡,𝑣,𝑀,π‘₯,𝑦,𝑧   𝑀,𝐺,π‘₯,𝑦   πœ‘,𝑀,π‘₯,𝑧   𝑒,𝐹,𝑣,𝑀,π‘₯,𝑦,𝑧   𝑀,𝑄,π‘₯,𝑦   𝑒,𝑅,𝑣,𝑀,π‘₯,𝑦   𝑒,𝑆,𝑣,𝑀,π‘₯,𝑦   𝑀,𝑇
Allowed substitution hints:   πœ‘(𝑦,𝑣,𝑒)   𝑄(𝑧,𝑣,𝑒)   𝑅(𝑧)   𝑆(𝑧)   𝑇(π‘₯,𝑦,𝑧,𝑣,𝑒)   𝐺(𝑧,𝑣,𝑒)

Proof of Theorem fnwelem
StepHypRef Expression
1 fnwe.2 . . . 4 (πœ‘ β†’ 𝐹:𝐴⟢𝐡)
2 ffvelcdm 7086 . . . . . 6 ((𝐹:𝐴⟢𝐡 ∧ 𝑧 ∈ 𝐴) β†’ (πΉβ€˜π‘§) ∈ 𝐡)
3 simpr 484 . . . . . 6 ((𝐹:𝐴⟢𝐡 ∧ 𝑧 ∈ 𝐴) β†’ 𝑧 ∈ 𝐴)
42, 3opelxpd 5712 . . . . 5 ((𝐹:𝐴⟢𝐡 ∧ 𝑧 ∈ 𝐴) β†’ ⟨(πΉβ€˜π‘§), π‘§βŸ© ∈ (𝐡 Γ— 𝐴))
5 fnwelem.7 . . . . 5 𝐺 = (𝑧 ∈ 𝐴 ↦ ⟨(πΉβ€˜π‘§), π‘§βŸ©)
64, 5fmptd 7119 . . . 4 (𝐹:𝐴⟢𝐡 β†’ 𝐺:𝐴⟢(𝐡 Γ— 𝐴))
7 frn 6724 . . . 4 (𝐺:𝐴⟢(𝐡 Γ— 𝐴) β†’ ran 𝐺 βŠ† (𝐡 Γ— 𝐴))
81, 6, 73syl 18 . . 3 (πœ‘ β†’ ran 𝐺 βŠ† (𝐡 Γ— 𝐴))
9 fnwe.3 . . . 4 (πœ‘ β†’ 𝑅 We 𝐡)
10 fnwe.4 . . . 4 (πœ‘ β†’ 𝑆 We 𝐴)
11 fnwelem.6 . . . . 5 𝑄 = {βŸ¨π‘’, π‘£βŸ© ∣ ((𝑒 ∈ (𝐡 Γ— 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ∧ ((1st β€˜π‘’)𝑅(1st β€˜π‘£) ∨ ((1st β€˜π‘’) = (1st β€˜π‘£) ∧ (2nd β€˜π‘’)𝑆(2nd β€˜π‘£))))}
1211wexp 8130 . . . 4 ((𝑅 We 𝐡 ∧ 𝑆 We 𝐴) β†’ 𝑄 We (𝐡 Γ— 𝐴))
139, 10, 12syl2anc 583 . . 3 (πœ‘ β†’ 𝑄 We (𝐡 Γ— 𝐴))
14 wess 5660 . . 3 (ran 𝐺 βŠ† (𝐡 Γ— 𝐴) β†’ (𝑄 We (𝐡 Γ— 𝐴) β†’ 𝑄 We ran 𝐺))
158, 13, 14sylc 65 . 2 (πœ‘ β†’ 𝑄 We ran 𝐺)
16 fveq2 6892 . . . . . . . . . . . 12 (𝑧 = π‘₯ β†’ (πΉβ€˜π‘§) = (πΉβ€˜π‘₯))
17 id 22 . . . . . . . . . . . 12 (𝑧 = π‘₯ β†’ 𝑧 = π‘₯)
1816, 17opeq12d 4878 . . . . . . . . . . 11 (𝑧 = π‘₯ β†’ ⟨(πΉβ€˜π‘§), π‘§βŸ© = ⟨(πΉβ€˜π‘₯), π‘₯⟩)
19 opex 5461 . . . . . . . . . . 11 ⟨(πΉβ€˜π‘₯), π‘₯⟩ ∈ V
2018, 5, 19fvmpt 7000 . . . . . . . . . 10 (π‘₯ ∈ 𝐴 β†’ (πΊβ€˜π‘₯) = ⟨(πΉβ€˜π‘₯), π‘₯⟩)
21 fveq2 6892 . . . . . . . . . . . 12 (𝑧 = 𝑦 β†’ (πΉβ€˜π‘§) = (πΉβ€˜π‘¦))
22 id 22 . . . . . . . . . . . 12 (𝑧 = 𝑦 β†’ 𝑧 = 𝑦)
2321, 22opeq12d 4878 . . . . . . . . . . 11 (𝑧 = 𝑦 β†’ ⟨(πΉβ€˜π‘§), π‘§βŸ© = ⟨(πΉβ€˜π‘¦), π‘¦βŸ©)
24 opex 5461 . . . . . . . . . . 11 ⟨(πΉβ€˜π‘¦), π‘¦βŸ© ∈ V
2523, 5, 24fvmpt 7000 . . . . . . . . . 10 (𝑦 ∈ 𝐴 β†’ (πΊβ€˜π‘¦) = ⟨(πΉβ€˜π‘¦), π‘¦βŸ©)
2620, 25eqeqan12d 2742 . . . . . . . . 9 ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) β†’ ((πΊβ€˜π‘₯) = (πΊβ€˜π‘¦) ↔ ⟨(πΉβ€˜π‘₯), π‘₯⟩ = ⟨(πΉβ€˜π‘¦), π‘¦βŸ©))
27 fvex 6905 . . . . . . . . . . 11 (πΉβ€˜π‘₯) ∈ V
28 vex 3474 . . . . . . . . . . 11 π‘₯ ∈ V
2927, 28opth 5473 . . . . . . . . . 10 (⟨(πΉβ€˜π‘₯), π‘₯⟩ = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© ↔ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯ = 𝑦))
3029simprbi 496 . . . . . . . . 9 (⟨(πΉβ€˜π‘₯), π‘₯⟩ = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ π‘₯ = 𝑦)
3126, 30biimtrdi 252 . . . . . . . 8 ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) β†’ ((πΊβ€˜π‘₯) = (πΊβ€˜π‘¦) β†’ π‘₯ = 𝑦))
3231rgen2 3193 . . . . . . 7 βˆ€π‘₯ ∈ 𝐴 βˆ€π‘¦ ∈ 𝐴 ((πΊβ€˜π‘₯) = (πΊβ€˜π‘¦) β†’ π‘₯ = 𝑦)
33 dff13 7260 . . . . . . 7 (𝐺:𝐴–1-1β†’(𝐡 Γ— 𝐴) ↔ (𝐺:𝐴⟢(𝐡 Γ— 𝐴) ∧ βˆ€π‘₯ ∈ 𝐴 βˆ€π‘¦ ∈ 𝐴 ((πΊβ€˜π‘₯) = (πΊβ€˜π‘¦) β†’ π‘₯ = 𝑦)))
346, 32, 33sylanblrc 589 . . . . . 6 (𝐹:𝐴⟢𝐡 β†’ 𝐺:𝐴–1-1β†’(𝐡 Γ— 𝐴))
35 f1f1orn 6845 . . . . . 6 (𝐺:𝐴–1-1β†’(𝐡 Γ— 𝐴) β†’ 𝐺:𝐴–1-1-ontoβ†’ran 𝐺)
36 f1ocnv 6846 . . . . . 6 (𝐺:𝐴–1-1-ontoβ†’ran 𝐺 β†’ ◑𝐺:ran 𝐺–1-1-onto→𝐴)
371, 34, 35, 364syl 19 . . . . 5 (πœ‘ β†’ ◑𝐺:ran 𝐺–1-1-onto→𝐴)
38 eqid 2728 . . . . . . 7 {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))} = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))}
3938f1oiso2 7355 . . . . . 6 (◑𝐺:ran 𝐺–1-1-onto→𝐴 β†’ ◑𝐺 Isom 𝑄, {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))} (ran 𝐺, 𝐴))
40 fnwe.1 . . . . . . . 8 𝑇 = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)))}
41 frel 6722 . . . . . . . . . . . . . . . 16 (𝐺:𝐴⟢(𝐡 Γ— 𝐴) β†’ Rel 𝐺)
42 dfrel2 6188 . . . . . . . . . . . . . . . 16 (Rel 𝐺 ↔ ◑◑𝐺 = 𝐺)
4341, 42sylib 217 . . . . . . . . . . . . . . 15 (𝐺:𝐴⟢(𝐡 Γ— 𝐴) β†’ ◑◑𝐺 = 𝐺)
4443fveq1d 6894 . . . . . . . . . . . . . 14 (𝐺:𝐴⟢(𝐡 Γ— 𝐴) β†’ (β—‘β—‘πΊβ€˜π‘₯) = (πΊβ€˜π‘₯))
4543fveq1d 6894 . . . . . . . . . . . . . 14 (𝐺:𝐴⟢(𝐡 Γ— 𝐴) β†’ (β—‘β—‘πΊβ€˜π‘¦) = (πΊβ€˜π‘¦))
4644, 45breq12d 5156 . . . . . . . . . . . . 13 (𝐺:𝐴⟢(𝐡 Γ— 𝐴) β†’ ((β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦) ↔ (πΊβ€˜π‘₯)𝑄(πΊβ€˜π‘¦)))
476, 46syl 17 . . . . . . . . . . . 12 (𝐹:𝐴⟢𝐡 β†’ ((β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦) ↔ (πΊβ€˜π‘₯)𝑄(πΊβ€˜π‘¦)))
4847adantr 480 . . . . . . . . . . 11 ((𝐹:𝐴⟢𝐡 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) β†’ ((β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦) ↔ (πΊβ€˜π‘₯)𝑄(πΊβ€˜π‘¦)))
4920, 25breqan12d 5159 . . . . . . . . . . . 12 ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) β†’ ((πΊβ€˜π‘₯)𝑄(πΊβ€˜π‘¦) ↔ ⟨(πΉβ€˜π‘₯), π‘₯βŸ©π‘„βŸ¨(πΉβ€˜π‘¦), π‘¦βŸ©))
5049adantl 481 . . . . . . . . . . 11 ((𝐹:𝐴⟢𝐡 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) β†’ ((πΊβ€˜π‘₯)𝑄(πΊβ€˜π‘¦) ↔ ⟨(πΉβ€˜π‘₯), π‘₯βŸ©π‘„βŸ¨(πΉβ€˜π‘¦), π‘¦βŸ©))
51 eleq1 2817 . . . . . . . . . . . . . . . 16 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (𝑒 ∈ (𝐡 Γ— 𝐴) ↔ ⟨(πΉβ€˜π‘₯), π‘₯⟩ ∈ (𝐡 Γ— 𝐴)))
52 opelxp 5709 . . . . . . . . . . . . . . . 16 (⟨(πΉβ€˜π‘₯), π‘₯⟩ ∈ (𝐡 Γ— 𝐴) ↔ ((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴))
5351, 52bitrdi 287 . . . . . . . . . . . . . . 15 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (𝑒 ∈ (𝐡 Γ— 𝐴) ↔ ((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴)))
5453anbi1d 630 . . . . . . . . . . . . . 14 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ ((𝑒 ∈ (𝐡 Γ— 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ↔ (((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴))))
5527, 28op1std 7998 . . . . . . . . . . . . . . . 16 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (1st β€˜π‘’) = (πΉβ€˜π‘₯))
5655breq1d 5153 . . . . . . . . . . . . . . 15 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ ((1st β€˜π‘’)𝑅(1st β€˜π‘£) ↔ (πΉβ€˜π‘₯)𝑅(1st β€˜π‘£)))
5755eqeq1d 2730 . . . . . . . . . . . . . . . 16 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ ((1st β€˜π‘’) = (1st β€˜π‘£) ↔ (πΉβ€˜π‘₯) = (1st β€˜π‘£)))
5827, 28op2ndd 7999 . . . . . . . . . . . . . . . . 17 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (2nd β€˜π‘’) = π‘₯)
5958breq1d 5153 . . . . . . . . . . . . . . . 16 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ ((2nd β€˜π‘’)𝑆(2nd β€˜π‘£) ↔ π‘₯𝑆(2nd β€˜π‘£)))
6057, 59anbi12d 631 . . . . . . . . . . . . . . 15 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (((1st β€˜π‘’) = (1st β€˜π‘£) ∧ (2nd β€˜π‘’)𝑆(2nd β€˜π‘£)) ↔ ((πΉβ€˜π‘₯) = (1st β€˜π‘£) ∧ π‘₯𝑆(2nd β€˜π‘£))))
6156, 60orbi12d 917 . . . . . . . . . . . . . 14 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (((1st β€˜π‘’)𝑅(1st β€˜π‘£) ∨ ((1st β€˜π‘’) = (1st β€˜π‘£) ∧ (2nd β€˜π‘’)𝑆(2nd β€˜π‘£))) ↔ ((πΉβ€˜π‘₯)𝑅(1st β€˜π‘£) ∨ ((πΉβ€˜π‘₯) = (1st β€˜π‘£) ∧ π‘₯𝑆(2nd β€˜π‘£)))))
6254, 61anbi12d 631 . . . . . . . . . . . . 13 (𝑒 = ⟨(πΉβ€˜π‘₯), π‘₯⟩ β†’ (((𝑒 ∈ (𝐡 Γ— 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ∧ ((1st β€˜π‘’)𝑅(1st β€˜π‘£) ∨ ((1st β€˜π‘’) = (1st β€˜π‘£) ∧ (2nd β€˜π‘’)𝑆(2nd β€˜π‘£)))) ↔ ((((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ∧ ((πΉβ€˜π‘₯)𝑅(1st β€˜π‘£) ∨ ((πΉβ€˜π‘₯) = (1st β€˜π‘£) ∧ π‘₯𝑆(2nd β€˜π‘£))))))
63 eleq1 2817 . . . . . . . . . . . . . . . 16 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (𝑣 ∈ (𝐡 Γ— 𝐴) ↔ ⟨(πΉβ€˜π‘¦), π‘¦βŸ© ∈ (𝐡 Γ— 𝐴)))
64 opelxp 5709 . . . . . . . . . . . . . . . 16 (⟨(πΉβ€˜π‘¦), π‘¦βŸ© ∈ (𝐡 Γ— 𝐴) ↔ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴))
6563, 64bitrdi 287 . . . . . . . . . . . . . . 15 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (𝑣 ∈ (𝐡 Γ— 𝐴) ↔ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴)))
6665anbi2d 629 . . . . . . . . . . . . . 14 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ ((((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ↔ (((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴))))
67 fvex 6905 . . . . . . . . . . . . . . . . 17 (πΉβ€˜π‘¦) ∈ V
68 vex 3474 . . . . . . . . . . . . . . . . 17 𝑦 ∈ V
6967, 68op1std 7998 . . . . . . . . . . . . . . . 16 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (1st β€˜π‘£) = (πΉβ€˜π‘¦))
7069breq2d 5155 . . . . . . . . . . . . . . 15 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ ((πΉβ€˜π‘₯)𝑅(1st β€˜π‘£) ↔ (πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦)))
7169eqeq2d 2739 . . . . . . . . . . . . . . . 16 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ ((πΉβ€˜π‘₯) = (1st β€˜π‘£) ↔ (πΉβ€˜π‘₯) = (πΉβ€˜π‘¦)))
7267, 68op2ndd 7999 . . . . . . . . . . . . . . . . 17 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (2nd β€˜π‘£) = 𝑦)
7372breq2d 5155 . . . . . . . . . . . . . . . 16 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (π‘₯𝑆(2nd β€˜π‘£) ↔ π‘₯𝑆𝑦))
7471, 73anbi12d 631 . . . . . . . . . . . . . . 15 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (((πΉβ€˜π‘₯) = (1st β€˜π‘£) ∧ π‘₯𝑆(2nd β€˜π‘£)) ↔ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)))
7570, 74orbi12d 917 . . . . . . . . . . . . . 14 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (((πΉβ€˜π‘₯)𝑅(1st β€˜π‘£) ∨ ((πΉβ€˜π‘₯) = (1st β€˜π‘£) ∧ π‘₯𝑆(2nd β€˜π‘£))) ↔ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦))))
7666, 75anbi12d 631 . . . . . . . . . . . . 13 (𝑣 = ⟨(πΉβ€˜π‘¦), π‘¦βŸ© β†’ (((((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ 𝑣 ∈ (𝐡 Γ— 𝐴)) ∧ ((πΉβ€˜π‘₯)𝑅(1st β€˜π‘£) ∨ ((πΉβ€˜π‘₯) = (1st β€˜π‘£) ∧ π‘₯𝑆(2nd β€˜π‘£)))) ↔ ((((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴)) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)))))
7719, 24, 62, 76, 11brab 5540 . . . . . . . . . . . 12 (⟨(πΉβ€˜π‘₯), π‘₯βŸ©π‘„βŸ¨(πΉβ€˜π‘¦), π‘¦βŸ© ↔ ((((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴)) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦))))
78 ffvelcdm 7086 . . . . . . . . . . . . . . 15 ((𝐹:𝐴⟢𝐡 ∧ π‘₯ ∈ 𝐴) β†’ (πΉβ€˜π‘₯) ∈ 𝐡)
79 simpr 484 . . . . . . . . . . . . . . 15 ((𝐹:𝐴⟢𝐡 ∧ π‘₯ ∈ 𝐴) β†’ π‘₯ ∈ 𝐴)
8078, 79jca 511 . . . . . . . . . . . . . 14 ((𝐹:𝐴⟢𝐡 ∧ π‘₯ ∈ 𝐴) β†’ ((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴))
81 ffvelcdm 7086 . . . . . . . . . . . . . . 15 ((𝐹:𝐴⟢𝐡 ∧ 𝑦 ∈ 𝐴) β†’ (πΉβ€˜π‘¦) ∈ 𝐡)
82 simpr 484 . . . . . . . . . . . . . . 15 ((𝐹:𝐴⟢𝐡 ∧ 𝑦 ∈ 𝐴) β†’ 𝑦 ∈ 𝐴)
8381, 82jca 511 . . . . . . . . . . . . . 14 ((𝐹:𝐴⟢𝐡 ∧ 𝑦 ∈ 𝐴) β†’ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴))
8480, 83anim12dan 618 . . . . . . . . . . . . 13 ((𝐹:𝐴⟢𝐡 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) β†’ (((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴)))
8584biantrurd 532 . . . . . . . . . . . 12 ((𝐹:𝐴⟢𝐡 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) β†’ (((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)) ↔ ((((πΉβ€˜π‘₯) ∈ 𝐡 ∧ π‘₯ ∈ 𝐴) ∧ ((πΉβ€˜π‘¦) ∈ 𝐡 ∧ 𝑦 ∈ 𝐴)) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)))))
8677, 85bitr4id 290 . . . . . . . . . . 11 ((𝐹:𝐴⟢𝐡 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) β†’ (⟨(πΉβ€˜π‘₯), π‘₯βŸ©π‘„βŸ¨(πΉβ€˜π‘¦), π‘¦βŸ© ↔ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦))))
8748, 50, 863bitrrd 306 . . . . . . . . . 10 ((𝐹:𝐴⟢𝐡 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) β†’ (((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)) ↔ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦)))
8887pm5.32da 578 . . . . . . . . 9 (𝐹:𝐴⟢𝐡 β†’ (((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦))) ↔ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))))
8988opabbidv 5209 . . . . . . . 8 (𝐹:𝐴⟢𝐡 β†’ {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ ((πΉβ€˜π‘₯)𝑅(πΉβ€˜π‘¦) ∨ ((πΉβ€˜π‘₯) = (πΉβ€˜π‘¦) ∧ π‘₯𝑆𝑦)))} = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))})
9040, 89eqtrid 2780 . . . . . . 7 (𝐹:𝐴⟢𝐡 β†’ 𝑇 = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))})
91 isoeq3 7322 . . . . . . 7 (𝑇 = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))} β†’ (◑𝐺 Isom 𝑄, 𝑇 (ran 𝐺, 𝐴) ↔ ◑𝐺 Isom 𝑄, {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))} (ran 𝐺, 𝐴)))
9290, 91syl 17 . . . . . 6 (𝐹:𝐴⟢𝐡 β†’ (◑𝐺 Isom 𝑄, 𝑇 (ran 𝐺, 𝐴) ↔ ◑𝐺 Isom 𝑄, {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (β—‘β—‘πΊβ€˜π‘₯)𝑄(β—‘β—‘πΊβ€˜π‘¦))} (ran 𝐺, 𝐴)))
9339, 92imbitrrid 245 . . . . 5 (𝐹:𝐴⟢𝐡 β†’ (◑𝐺:ran 𝐺–1-1-onto→𝐴 β†’ ◑𝐺 Isom 𝑄, 𝑇 (ran 𝐺, 𝐴)))
941, 37, 93sylc 65 . . . 4 (πœ‘ β†’ ◑𝐺 Isom 𝑄, 𝑇 (ran 𝐺, 𝐴))
95 isocnv 7333 . . . 4 (◑𝐺 Isom 𝑄, 𝑇 (ran 𝐺, 𝐴) β†’ ◑◑𝐺 Isom 𝑇, 𝑄 (𝐴, ran 𝐺))
9694, 95syl 17 . . 3 (πœ‘ β†’ ◑◑𝐺 Isom 𝑇, 𝑄 (𝐴, ran 𝐺))
97 imacnvcnv 6205 . . . . 5 (◑◑𝐺 β€œ 𝑀) = (𝐺 β€œ 𝑀)
98 fnwe.5 . . . . . . 7 (πœ‘ β†’ (𝐹 β€œ 𝑀) ∈ V)
99 vex 3474 . . . . . . 7 𝑀 ∈ V
100 xpexg 7747 . . . . . . 7 (((𝐹 β€œ 𝑀) ∈ V ∧ 𝑀 ∈ V) β†’ ((𝐹 β€œ 𝑀) Γ— 𝑀) ∈ V)
10198, 99, 100sylancl 585 . . . . . 6 (πœ‘ β†’ ((𝐹 β€œ 𝑀) Γ— 𝑀) ∈ V)
102 imadmres 6233 . . . . . . 7 (𝐺 β€œ dom (𝐺 β†Ύ 𝑀)) = (𝐺 β€œ 𝑀)
103 dmres 6002 . . . . . . . . . . 11 dom (𝐺 β†Ύ 𝑀) = (𝑀 ∩ dom 𝐺)
104103elin2 4194 . . . . . . . . . 10 (π‘₯ ∈ dom (𝐺 β†Ύ 𝑀) ↔ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺))
105 simprr 772 . . . . . . . . . . . . 13 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ π‘₯ ∈ dom 𝐺)
106 f1dm 6792 . . . . . . . . . . . . . . 15 (𝐺:𝐴–1-1β†’(𝐡 Γ— 𝐴) β†’ dom 𝐺 = 𝐴)
1071, 34, 1063syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ dom 𝐺 = 𝐴)
108107adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ dom 𝐺 = 𝐴)
109105, 108eleqtrd 2831 . . . . . . . . . . . 12 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ π‘₯ ∈ 𝐴)
110109, 20syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ (πΊβ€˜π‘₯) = ⟨(πΉβ€˜π‘₯), π‘₯⟩)
1111ffnd 6718 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐹 Fn 𝐴)
112111adantr 480 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ 𝐹 Fn 𝐴)
113 dmres 6002 . . . . . . . . . . . . . . 15 dom (𝐹 β†Ύ 𝑀) = (𝑀 ∩ dom 𝐹)
114 inss2 4226 . . . . . . . . . . . . . . . 16 (𝑀 ∩ dom 𝐹) βŠ† dom 𝐹
115112fndmd 6654 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ dom 𝐹 = 𝐴)
116114, 115sseqtrid 4031 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ (𝑀 ∩ dom 𝐹) βŠ† 𝐴)
117113, 116eqsstrid 4027 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ dom (𝐹 β†Ύ 𝑀) βŠ† 𝐴)
118 simprl 770 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ π‘₯ ∈ 𝑀)
119109, 115eleqtrrd 2832 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ π‘₯ ∈ dom 𝐹)
120113elin2 4194 . . . . . . . . . . . . . . 15 (π‘₯ ∈ dom (𝐹 β†Ύ 𝑀) ↔ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐹))
121118, 119, 120sylanbrc 582 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ π‘₯ ∈ dom (𝐹 β†Ύ 𝑀))
122 fnfvima 7240 . . . . . . . . . . . . . 14 ((𝐹 Fn 𝐴 ∧ dom (𝐹 β†Ύ 𝑀) βŠ† 𝐴 ∧ π‘₯ ∈ dom (𝐹 β†Ύ 𝑀)) β†’ (πΉβ€˜π‘₯) ∈ (𝐹 β€œ dom (𝐹 β†Ύ 𝑀)))
123112, 117, 121, 122syl3anc 1369 . . . . . . . . . . . . 13 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ (πΉβ€˜π‘₯) ∈ (𝐹 β€œ dom (𝐹 β†Ύ 𝑀)))
124 imadmres 6233 . . . . . . . . . . . . 13 (𝐹 β€œ dom (𝐹 β†Ύ 𝑀)) = (𝐹 β€œ 𝑀)
125123, 124eleqtrdi 2839 . . . . . . . . . . . 12 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ (πΉβ€˜π‘₯) ∈ (𝐹 β€œ 𝑀))
126125, 118opelxpd 5712 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ ⟨(πΉβ€˜π‘₯), π‘₯⟩ ∈ ((𝐹 β€œ 𝑀) Γ— 𝑀))
127110, 126eqeltrd 2829 . . . . . . . . . 10 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ π‘₯ ∈ dom 𝐺)) β†’ (πΊβ€˜π‘₯) ∈ ((𝐹 β€œ 𝑀) Γ— 𝑀))
128104, 127sylan2b 593 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ dom (𝐺 β†Ύ 𝑀)) β†’ (πΊβ€˜π‘₯) ∈ ((𝐹 β€œ 𝑀) Γ— 𝑀))
129128ralrimiva 3142 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ 𝑀)(πΊβ€˜π‘₯) ∈ ((𝐹 β€œ 𝑀) Γ— 𝑀))
130 f1fun 6790 . . . . . . . . . 10 (𝐺:𝐴–1-1β†’(𝐡 Γ— 𝐴) β†’ Fun 𝐺)
1311, 34, 1303syl 18 . . . . . . . . 9 (πœ‘ β†’ Fun 𝐺)
132 resss 6005 . . . . . . . . . 10 (𝐺 β†Ύ 𝑀) βŠ† 𝐺
133 dmss 5900 . . . . . . . . . 10 ((𝐺 β†Ύ 𝑀) βŠ† 𝐺 β†’ dom (𝐺 β†Ύ 𝑀) βŠ† dom 𝐺)
134132, 133ax-mp 5 . . . . . . . . 9 dom (𝐺 β†Ύ 𝑀) βŠ† dom 𝐺
135 funimass4 6958 . . . . . . . . 9 ((Fun 𝐺 ∧ dom (𝐺 β†Ύ 𝑀) βŠ† dom 𝐺) β†’ ((𝐺 β€œ dom (𝐺 β†Ύ 𝑀)) βŠ† ((𝐹 β€œ 𝑀) Γ— 𝑀) ↔ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ 𝑀)(πΊβ€˜π‘₯) ∈ ((𝐹 β€œ 𝑀) Γ— 𝑀)))
136131, 134, 135sylancl 585 . . . . . . . 8 (πœ‘ β†’ ((𝐺 β€œ dom (𝐺 β†Ύ 𝑀)) βŠ† ((𝐹 β€œ 𝑀) Γ— 𝑀) ↔ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ 𝑀)(πΊβ€˜π‘₯) ∈ ((𝐹 β€œ 𝑀) Γ— 𝑀)))
137129, 136mpbird 257 . . . . . . 7 (πœ‘ β†’ (𝐺 β€œ dom (𝐺 β†Ύ 𝑀)) βŠ† ((𝐹 β€œ 𝑀) Γ— 𝑀))
138102, 137eqsstrrid 4028 . . . . . 6 (πœ‘ β†’ (𝐺 β€œ 𝑀) βŠ† ((𝐹 β€œ 𝑀) Γ— 𝑀))
139101, 138ssexd 5319 . . . . 5 (πœ‘ β†’ (𝐺 β€œ 𝑀) ∈ V)
14097, 139eqeltrid 2833 . . . 4 (πœ‘ β†’ (◑◑𝐺 β€œ 𝑀) ∈ V)
141140alrimiv 1923 . . 3 (πœ‘ β†’ βˆ€π‘€(◑◑𝐺 β€œ 𝑀) ∈ V)
142 isowe2 7353 . . 3 ((◑◑𝐺 Isom 𝑇, 𝑄 (𝐴, ran 𝐺) ∧ βˆ€π‘€(◑◑𝐺 β€œ 𝑀) ∈ V) β†’ (𝑄 We ran 𝐺 β†’ 𝑇 We 𝐴))
14396, 141, 142syl2anc 583 . 2 (πœ‘ β†’ (𝑄 We ran 𝐺 β†’ 𝑇 We 𝐴))
14415, 143mpd 15 1 (πœ‘ β†’ 𝑇 We 𝐴)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 846  βˆ€wal 1532   = wceq 1534   ∈ wcel 2099  βˆ€wral 3057  Vcvv 3470   ∩ cin 3944   βŠ† wss 3945  βŸ¨cop 4631   class class class wbr 5143  {copab 5205   ↦ cmpt 5226   We wwe 5627   Γ— cxp 5671  β—‘ccnv 5672  dom cdm 5673  ran crn 5674   β†Ύ cres 5675   β€œ cima 5676  Rel wrel 5678  Fun wfun 6537   Fn wfn 6538  βŸΆwf 6539  β€“1-1β†’wf1 6540  β€“1-1-ontoβ†’wf1o 6542  β€˜cfv 6543   Isom wiso 6544  1st c1st 7986  2nd c2nd 7987
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-sep 5294  ax-nul 5301  ax-pow 5360  ax-pr 5424  ax-un 7735
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2937  df-ral 3058  df-rex 3067  df-rab 3429  df-v 3472  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4905  df-int 4946  df-br 5144  df-opab 5206  df-mpt 5227  df-id 5571  df-po 5585  df-so 5586  df-fr 5628  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-1st 7988  df-2nd 7989
This theorem is referenced by:  fnwe  8132
  Copyright terms: Public domain W3C validator