HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem xpmapenlem5 3395
Description: Lemma for xpmapen 3396.
Hypotheses
Ref Expression
xpmapen.1 AV
xpmapen.2 BV
xpmapen.3 CV
xpmapenlem.4 D = {⟨z, w⟩∣(zCw = dom {(xz)})}
xpmapenlem.5 R = {⟨z, w⟩∣(zCw = ran {(xz)})}
xpmapenlem.6 S = {⟨z, w⟩∣(zCw = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)}
Assertion
Ref Expression
xpmapenlem5 ((A × B) ↑m C) ≈ ((Am C) × (Bm C))
Distinct variable group(s):   x,y,z,w,A   x,B,y,z,w   x,C,y,z,w   y,D   y,R   x,S

Proof of Theorem xpmapenlem5
StepHypRef Expression
1 oprex 3018 . 2 ((A × B) ↑m C) ∈ V
2 opex 1893 . . 3 D, R⟩ ∈ V
32a1i 7 . 2 (x ∈ ((A × B) ↑m C) → ⟨D, R⟩ ∈ V)
4 xpmapenlem.6 . . . 4 S = {⟨z, w⟩∣(zCw = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)}
5 xpmapen.3 . . . . 5 CV
6 moeq 1431 . . . . . 6 ∃*w w = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩
76a1i 7 . . . . 5 (zC → ∃*w w = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)
85, 7funopabex 2742 . . . 4 {⟨z, w⟩∣(zCw = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)} ∈ V
94, 8eqeltr 1159 . . 3 SV
109a1i 7 . 2 (y ∈ ((Am C) × (Bm C)) → SV)
11 xpmapenlem.4 . . . . . . . . . . . 12 D = {⟨z, w⟩∣(zCw = dom {(xz)})}
12 moeq 1431 . . . . . . . . . . . . . 14 ∃*w w = dom {(xz)}
1312a1i 7 . . . . . . . . . . . . 13 (zC → ∃*w w = dom {(xz)})
145, 13funopabex 2742 . . . . . . . . . . . 12 {⟨z, w⟩∣(zCw = dom {(xz)})} ∈ V
1511, 14eqeltr 1159 . . . . . . . . . . 11 DV
16 xpmapenlem.5 . . . . . . . . . . . 12 R = {⟨z, w⟩∣(zCw = ran {(xz)})}
17 moeq 1431 . . . . . . . . . . . . . 14 ∃*w w = ran {(xz)}
1817a1i 7 . . . . . . . . . . . . 13 (zC → ∃*w w = ran {(xz)})
195, 18funopabex 2742 . . . . . . . . . . . 12 {⟨z, w⟩∣(zCw = ran {(xz)})} ∈ V
2016, 19eqeltr 1159 . . . . . . . . . . 11 RV
2115, 20pm3.2i 234 . . . . . . . . . 10 (DVRV)
2220opelxp 2452 . . . . . . . . . 10 (⟨D, R⟩ ∈ (V × V) ↔ (DVRV))
2321, 22mpbir 165 . . . . . . . . 9 D, R⟩ ∈ (V × V)
24 eleq1 1149 . . . . . . . . 9 (y = ⟨D, R⟩ → (y ∈ (V × V) ↔ ⟨D, R⟩ ∈ (V × V)))
2523, 24mpbiri 169 . . . . . . . 8 (y = ⟨D, R⟩ → y ∈ (V × V))
2625adantl 305 . . . . . . 7 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → y ∈ (V × V))
27 elxp4 2640 . . . . . . . 8 (y ∈ (V × V) ↔ (y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y} ∈ Vran {y} ∈ V)))
2827pm3.26bd 259 . . . . . . 7 (y ∈ (V × V) → y = ⟨dom {y}, ran {y}⟩)
2926, 28syl 12 . . . . . 6 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → y = ⟨dom {y}, ran {y}⟩)
30 sneq 1816 . . . . . . . . . . . . . 14 (y = ⟨D, R⟩ → {y} = {⟨D, R⟩})
3130dmeqd 2533 . . . . . . . . . . . . 13 (y = ⟨D, R⟩ → dom {y} = dom {⟨D, R⟩})
3231unieqd 1929 . . . . . . . . . . . 12 (y = ⟨D, R⟩ → dom {y} = dom {⟨D, R⟩})
3315op1sta 2635 . . . . . . . . . . . 12 dom {⟨D, R⟩} = D
3432, 33syl6eq 1140 . . . . . . . . . . 11 (y = ⟨D, R⟩ → dom {y} = D)
35 xpmapen.1 . . . . . . . . . . . . . . 15 AV
36 xpmapen.2 . . . . . . . . . . . . . . 15 BV
3735, 36, 5, 11, 16, 4xpmapenlem1 3391 . . . . . . . . . . . . . 14 ((y = ⟨D, R⟩ → ∀z y = ⟨D, R⟩) ∧ (y = ⟨D, R⟩ → ∀w y = ⟨D, R⟩))
3837pm3.26i 257 . . . . . . . . . . . . 13 (y = ⟨D, R⟩ → ∀z y = ⟨D, R⟩)
3937pm3.27i 261 . . . . . . . . . . . . 13 (y = ⟨D, R⟩ → ∀w y = ⟨D, R⟩)
4035, 36, 5, 11, 16, 4xpmapenlem2 3392 . . . . . . . . . . . . . . . . 17 ((y = ⟨D, R⟩ ∧ zC) → ((dom {y} ‘z) = dom {(xz)} ∧ (ran {y} ‘z) = ran {(xz)}))
4140pm3.26d 258 . . . . . . . . . . . . . . . 16 ((y = ⟨D, R⟩ ∧ zC) → (dom {y} ‘z) = dom {(xz)})
4241cleq2d 1112 . . . . . . . . . . . . . . 15 ((y = ⟨D, R⟩ ∧ zC) → (w = (dom {y} ‘z) ↔ w = dom {(xz)}))
4342exp 291 . . . . . . . . . . . . . 14 (y = ⟨D, R⟩ → (zC → (w = (dom {y} ‘z) ↔ w = dom {(xz)})))
4443pm5.32d 491 . . . . . . . . . . . . 13 (y = ⟨D, R⟩ → ((zCw = (dom {y} ‘z)) ↔ (zCw = dom {(xz)})))
4538, 39, 44biopabd 2101 . . . . . . . . . . . 12 (y = ⟨D, R⟩ → {⟨z, w⟩∣(zCw = (dom {y} ‘z))} = {⟨z, w⟩∣(zCw = dom {(xz)})})
4645, 11syl6eqr 1142 . . . . . . . . . . 11 (y = ⟨D, R⟩ → {⟨z, w⟩∣(zCw = (dom {y} ‘z))} = D)
4734, 46eqtr4d 1131 . . . . . . . . . 10 (y = ⟨D, R⟩ → dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))})
4830rneqd 2557 . . . . . . . . . . . . 13 (y = ⟨D, R⟩ → ran {y} = ran {⟨D, R⟩})
4948unieqd 1929 . . . . . . . . . . . 12 (y = ⟨D, R⟩ → ran {y} = ran {⟨D, R⟩})
5015, 20op2nda 2639 . . . . . . . . . . . 12 ran {⟨D, R⟩} = R
5149, 50syl6eq 1140 . . . . . . . . . . 11 (y = ⟨D, R⟩ → ran {y} = R)
5240pm3.27d 262 . . . . . . . . . . . . . . . 16 ((y = ⟨D, R⟩ ∧ zC) → (ran {y} ‘z) = ran {(xz)})
5352cleq2d 1112 . . . . . . . . . . . . . . 15 ((y = ⟨D, R⟩ ∧ zC) → (w = (ran {y} ‘z) ↔ w = ran {(xz)}))
5453exp 291 . . . . . . . . . . . . . 14 (y = ⟨D, R⟩ → (zC → (w = (ran {y} ‘z) ↔ w = ran {(xz)})))
5554pm5.32d 491 . . . . . . . . . . . . 13 (y = ⟨D, R⟩ → ((zCw = (ran {y} ‘z)) ↔ (zCw = ran {(xz)})))
5638, 39, 55biopabd 2101 . . . . . . . . . . . 12 (y = ⟨D, R⟩ → {⟨z, w⟩∣(zCw = (ran {y} ‘z))} = {⟨z, w⟩∣(zCw = ran {(xz)})})
5756, 16syl6eqr 1142 . . . . . . . . . . 11 (y = ⟨D, R⟩ → {⟨z, w⟩∣(zCw = (ran {y} ‘z))} = R)
5851, 57eqtr4d 1131 . . . . . . . . . 10 (y = ⟨D, R⟩ → ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))})
5947, 58jca 236 . . . . . . . . 9 (y = ⟨D, R⟩ → (dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))}))
6059adantl 305 . . . . . . . 8 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))}))
61 ffvrn 2890 . . . . . . . . . . . 12 ((x:C–→(A × B) ∧ zC) → (xz) ∈ (A × B))
6261exp 291 . . . . . . . . . . 11 (x:C–→(A × B) → (zC → (xz) ∈ (A × B)))
6362r19.21aiv 1259 . . . . . . . . . 10 (x:C–→(A × B) → ∀zC (xz) ∈ (A × B))
6463adantr 306 . . . . . . . . 9 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → ∀zC (xz) ∈ (A × B))
65 ax-17 925 . . . . . . . . . . . 12 (x:C–→(A × B) → ∀z x:C–→(A × B))
6665, 38hban 704 . . . . . . . . . . 11 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → ∀z(x:C–→(A × B) ∧ y = ⟨D, R⟩))
6735, 36, 5, 11, 16, 4xpmapenlem3 3393 . . . . . . . . . . . . . . 15 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → x = S)
6867fveq1d 2834 . . . . . . . . . . . . . 14 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (xz) = (Sz))
69 opex 1893 . . . . . . . . . . . . . . . 16 ⟨(dom {y} ‘z), (ran {y} ‘z)⟩ ∈ V
70 fvopab2 2878 . . . . . . . . . . . . . . . 16 ((zC ∧ ⟨(dom {y} ‘z), (ran {y} ‘z)⟩ ∈ V) → ({⟨z, w⟩∣(zCw = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)} ‘z) = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)
7169, 70mpan2 519 . . . . . . . . . . . . . . 15 (zC → ({⟨z, w⟩∣(zCw = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)} ‘z) = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)
724fveq1i 2833 . . . . . . . . . . . . . . 15 (Sz) = ({⟨z, w⟩∣(zCw = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)} ‘z)
7371, 72syl5eq 1136 . . . . . . . . . . . . . 14 (zC → (Sz) = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)
7468, 73sylan9eq 1144 . . . . . . . . . . . . 13 (((x:C–→(A × B) ∧ y = ⟨D, R⟩) ∧ zC) → (xz) = ⟨(dom {y} ‘z), (ran {y} ‘z)⟩)
7574eleq1d 1155 . . . . . . . . . . . 12 (((x:C–→(A × B) ∧ y = ⟨D, R⟩) ∧ zC) → ((xz) ∈ (A × B) ↔ ⟨(dom {y} ‘z), (ran {y} ‘z)⟩ ∈ (A × B)))
76 fvex 2838 . . . . . . . . . . . . 13 (ran {y} ‘z) ∈ V
7776opelxp 2452 . . . . . . . . . . . 12 (⟨(dom {y} ‘z), (ran {y} ‘z)⟩ ∈ (A × B) ↔ ((dom {y} ‘z) ∈ A ∧ (ran {y} ‘z) ∈ B))
7875, 77syl6bb 414 . . . . . . . . . . 11 (((x:C–→(A × B) ∧ y = ⟨D, R⟩) ∧ zC) → ((xz) ∈ (A × B) ↔ ((dom {y} ‘z) ∈ A ∧ (ran {y} ‘z) ∈ B)))
7966, 78biralda 1213 . . . . . . . . . 10 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (∀zC (xz) ∈ (A × B) ↔ ∀zC ((dom {y} ‘z) ∈ A ∧ (ran {y} ‘z) ∈ B)))
80 r19.26 1289 . . . . . . . . . 10 (∀zC ((dom {y} ‘z) ∈ A ∧ (ran {y} ‘z) ∈ B) ↔ (∀zC (dom {y} ‘z) ∈ A ∧ ∀zC (ran {y} ‘z) ∈ B))
8179, 80syl6bb 414 . . . . . . . . 9 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (∀zC (xz) ∈ (A × B) ↔ (∀zC (dom {y} ‘z) ∈ A ∧ ∀zC (ran {y} ‘z) ∈ B)))
8264, 81mpbid 170 . . . . . . . 8 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (∀zC (dom {y} ‘z) ∈ A ∧ ∀zC (ran {y} ‘z) ∈ B))
8360, 82jca 236 . . . . . . 7 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → ((dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))}) ∧ (∀zC (dom {y} ‘z) ∈ A ∧ ∀zC (ran {y} ‘z) ∈ B)))
84 an4 388 . . . . . . . 8 (((dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))}) ∧ (∀zC (dom {y} ‘z) ∈ A ∧ ∀zC (ran {y} ‘z) ∈ B)) ↔ ((dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ∀zC (dom {y} ‘z) ∈ A) ∧ (ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))} ∧ ∀zC (ran {y} ‘z) ∈ B)))
85 fopabfv 2894 . . . . . . . . 9 (dom {y}:C–→A ↔ (dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ∀zC (dom {y} ‘z) ∈ A))
86 fopabfv 2894 . . . . . . . . 9 (ran {y}:C–→B ↔ (ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))} ∧ ∀zC (ran {y} ‘z) ∈ B))
8785, 86anbi12i 369 . . . . . . . 8 ((dom {y}:C–→Aran {y}:C–→B) ↔ ((dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ∀zC (dom {y} ‘z) ∈ A) ∧ (ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))} ∧ ∀zC (ran {y} ‘z) ∈ B)))
8884, 87bitr4 154 . . . . . . 7 (((dom {y} = {⟨z, w⟩∣(zCw = (dom {y} ‘z))} ∧ ran {y} = {⟨z, w⟩∣(zCw = (ran {y} ‘z))}) ∧ (∀zC (dom {y} ‘z) ∈ A ∧ ∀zC (ran {y} ‘z) ∈ B)) ↔ (dom {y}:C–→Aran {y}:C–→B))
8983, 88sylib 173 . . . . . 6 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (dom {y}:C–→Aran {y}:C–→B))
9029, 89jca 236 . . . . 5 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → (y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)))
9190, 67jca 236 . . . 4 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) → ((y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)) ∧ x = S))
9235, 36, 5, 11, 16, 4xpmapenlem4 3394 . . . 4 (((y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)) ∧ x = S) → (x:C–→(A × B) ∧ y = ⟨D, R⟩))
9391, 92impbi 139 . . 3 ((x:C–→(A × B) ∧ y = ⟨D, R⟩) ↔ ((y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)) ∧ x = S))
9435, 36xpex 2488 . . . . 5 (A × B) ∈ V
9594, 5elmap 3265 . . . 4 (x ∈ ((A × B) ↑m C) ↔ x:C–→(A × B))
9695anbi1i 368 . . 3 ((x ∈ ((A × B) ↑m C) ∧ y = ⟨D, R⟩) ↔ (x:C–→(A × B) ∧ y = ⟨D, R⟩))
97 elxp4 2640 . . . . 5 (y ∈ ((Am C) × (Bm C)) ↔ (y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y} ∈ (Am C) ∧ ran {y} ∈ (Bm C))))
9835, 5elmap 3265 . . . . . . 7 (dom {y} ∈ (Am C) ↔ dom {y}:C–→A)
9936, 5elmap 3265 . . . . . . 7 (ran {y} ∈ (Bm C) ↔ ran {y}:C–→B)
10098, 99anbi12i 369 . . . . . 6 ((dom {y} ∈ (Am C) ∧ ran {y} ∈ (Bm C)) ↔ (dom {y}:C–→Aran {y}:C–→B))
101100anbi2i 367 . . . . 5 ((y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y} ∈ (Am C) ∧ ran {y} ∈ (Bm C))) ↔ (y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)))
10297, 101bitr 151 . . . 4 (y ∈ ((Am C) × (Bm C)) ↔ (y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)))
103102anbi1i 368 . . 3 ((y ∈ ((Am C) × (Bm C)) ∧ x = S) ↔ ((y = ⟨dom {y}, ran {y}⟩ ∧ (dom {y}:C–→Aran {y}:C–→B)) ∧ x = S))
10493, 96, 1033bitr4 158 . 2 ((x ∈ ((A × B) ↑m C) ∧ y = ⟨D, R⟩) ↔ (y ∈ ((Am C) × (Bm C)) ∧ x = S))
1051, 3, 10, 104en2 3305 1 ((A × B) ↑m C) ≈ ((Am C) × (Bm C))
Colors of variables: wff set class
Syntax hints:   → wi 2   ↔ wb 127   ∧ wa 196  ∀wal 672  ∃*wmo 1008   = wceq 1091   ∈ wcel 1092  ∀wral 1201  Vcvv 1348  {csn 1808  ⟨cop 1810  cuni 1919   class class class wbr 2054  {copab 2055   × cxp 2408  dom cdm 2410  ran crn 2411  –→wf 2418   ‘cfv 2422  (class class class)co 3001   ↑m cm 3258   ≈ cen 3271
This theorem is referenced by:  xpmapen 3396
This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14 805  ax-16 922  ax-17 925  ax-ext 1074  ax-rep 1075  ax-un 1076  ax-pow 1077
This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-3an 583  df-ex 679  df-sb 853  df-eu 1009  df-mo 1010  df-clab 1093  df-cleq 1097  df-clel 1099  df-ral 1205  df-rex 1206  df-v 1349  df-dif 1489  df-un 1490  df-in 1491  df-ss 1492  df-nul 1708  df-pw 1799  df-sn 1811  df-pr 1812  df-op 1815  df-uni 1920  df-br 2063  df-opab 2098  df-id 2125  df-xp 2424  df-rel 2425  df-cnv 2426  df-co 2427  df-dm 2428  df-rn 2429  df-res 2430  df-ima 2431  df-fun 2432  df-fn 2433  df-f 2434  df-f1 2435  df-fo 2436  df-f1o 2437  df-fv 2438  df-opr 3003  df-oprab 3004  df-map 3259  df-en 3274
metamath.org