Step | Hyp | Ref
| Expression |
1 | | brwdom3i 9527 |
. . 3
⊢ (𝐴 ≼* 𝐵 → ∃𝑓∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏)) |
2 | 1 | adantr 482 |
. 2
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → ∃𝑓∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏)) |
3 | | brwdom3i 9527 |
. . 3
⊢ (𝐶 ≼* 𝐷 → ∃𝑔∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) |
4 | 3 | adantl 483 |
. 2
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → ∃𝑔∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) |
5 | | relwdom 9510 |
. . . . . . . . . 10
⊢ Rel
≼* |
6 | 5 | brrelex1i 5692 |
. . . . . . . . 9
⊢ (𝐴 ≼* 𝐵 → 𝐴 ∈ V) |
7 | 5 | brrelex1i 5692 |
. . . . . . . . 9
⊢ (𝐶 ≼* 𝐷 → 𝐶 ∈ V) |
8 | | xpexg 7688 |
. . . . . . . . 9
⊢ ((𝐴 ∈ V ∧ 𝐶 ∈ V) → (𝐴 × 𝐶) ∈ V) |
9 | 6, 7, 8 | syl2an 597 |
. . . . . . . 8
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → (𝐴 × 𝐶) ∈ V) |
10 | 9 | adantr 482 |
. . . . . . 7
⊢ (((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) ∧ (∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑))) → (𝐴 × 𝐶) ∈ V) |
11 | 5 | brrelex2i 5693 |
. . . . . . . . 9
⊢ (𝐴 ≼* 𝐵 → 𝐵 ∈ V) |
12 | 5 | brrelex2i 5693 |
. . . . . . . . 9
⊢ (𝐶 ≼* 𝐷 → 𝐷 ∈ V) |
13 | | xpexg 7688 |
. . . . . . . . 9
⊢ ((𝐵 ∈ V ∧ 𝐷 ∈ V) → (𝐵 × 𝐷) ∈ V) |
14 | 11, 12, 13 | syl2an 597 |
. . . . . . . 8
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → (𝐵 × 𝐷) ∈ V) |
15 | 14 | adantr 482 |
. . . . . . 7
⊢ (((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) ∧ (∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑))) → (𝐵 × 𝐷) ∈ V) |
16 | | pm3.2 471 |
. . . . . . . . . . . . . . . 16
⊢
(∃𝑏 ∈
𝐵 𝑎 = (𝑓‘𝑏) → (∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)))) |
17 | 16 | ralimdv 3163 |
. . . . . . . . . . . . . . 15
⊢
(∃𝑏 ∈
𝐵 𝑎 = (𝑓‘𝑏) → (∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → ∀𝑐 ∈ 𝐶 (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)))) |
18 | 17 | com12 32 |
. . . . . . . . . . . . . 14
⊢
(∀𝑐 ∈
𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) → ∀𝑐 ∈ 𝐶 (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)))) |
19 | 18 | ralimdv 3163 |
. . . . . . . . . . . . 13
⊢
(∀𝑐 ∈
𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) → ∀𝑎 ∈ 𝐴 ∀𝑐 ∈ 𝐶 (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)))) |
20 | 19 | impcom 409 |
. . . . . . . . . . . 12
⊢
((∀𝑎 ∈
𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) → ∀𝑎 ∈ 𝐴 ∀𝑐 ∈ 𝐶 (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑))) |
21 | | pm3.2 471 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑎 = (𝑓‘𝑏) → (𝑐 = (𝑔‘𝑑) → (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑)))) |
22 | 21 | reximdv 3164 |
. . . . . . . . . . . . . . . 16
⊢ (𝑎 = (𝑓‘𝑏) → (∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑)))) |
23 | 22 | com12 32 |
. . . . . . . . . . . . . . 15
⊢
(∃𝑑 ∈
𝐷 𝑐 = (𝑔‘𝑑) → (𝑎 = (𝑓‘𝑏) → ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑)))) |
24 | 23 | reximdv 3164 |
. . . . . . . . . . . . . 14
⊢
(∃𝑑 ∈
𝐷 𝑐 = (𝑔‘𝑑) → (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) → ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑)))) |
25 | 24 | impcom 409 |
. . . . . . . . . . . . 13
⊢
((∃𝑏 ∈
𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) → ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑))) |
26 | 25 | 2ralimi 3123 |
. . . . . . . . . . . 12
⊢
(∀𝑎 ∈
𝐴 ∀𝑐 ∈ 𝐶 (∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) → ∀𝑎 ∈ 𝐴 ∀𝑐 ∈ 𝐶 ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑))) |
27 | 20, 26 | syl 17 |
. . . . . . . . . . 11
⊢
((∀𝑎 ∈
𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) → ∀𝑎 ∈ 𝐴 ∀𝑐 ∈ 𝐶 ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑))) |
28 | | eqeq1 2737 |
. . . . . . . . . . . . . 14
⊢ (𝑥 = ⟨𝑎, 𝑐⟩ → (𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩ ↔ ⟨𝑎, 𝑐⟩ = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩)) |
29 | | vex 3451 |
. . . . . . . . . . . . . . 15
⊢ 𝑎 ∈ V |
30 | | vex 3451 |
. . . . . . . . . . . . . . 15
⊢ 𝑐 ∈ V |
31 | 29, 30 | opth 5437 |
. . . . . . . . . . . . . 14
⊢
(⟨𝑎, 𝑐⟩ = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩ ↔ (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑))) |
32 | 28, 31 | bitrdi 287 |
. . . . . . . . . . . . 13
⊢ (𝑥 = ⟨𝑎, 𝑐⟩ → (𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩ ↔ (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑)))) |
33 | 32 | 2rexbidv 3210 |
. . . . . . . . . . . 12
⊢ (𝑥 = ⟨𝑎, 𝑐⟩ → (∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩ ↔ ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑)))) |
34 | 33 | ralxp 5801 |
. . . . . . . . . . 11
⊢
(∀𝑥 ∈
(𝐴 × 𝐶)∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩ ↔ ∀𝑎 ∈ 𝐴 ∀𝑐 ∈ 𝐶 ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 (𝑎 = (𝑓‘𝑏) ∧ 𝑐 = (𝑔‘𝑑))) |
35 | 27, 34 | sylibr 233 |
. . . . . . . . . 10
⊢
((∀𝑎 ∈
𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) → ∀𝑥 ∈ (𝐴 × 𝐶)∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩) |
36 | 35 | r19.21bi 3233 |
. . . . . . . . 9
⊢
(((∀𝑎 ∈
𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) ∧ 𝑥 ∈ (𝐴 × 𝐶)) → ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩) |
37 | | vex 3451 |
. . . . . . . . . . . . . 14
⊢ 𝑏 ∈ V |
38 | | vex 3451 |
. . . . . . . . . . . . . 14
⊢ 𝑑 ∈ V |
39 | 37, 38 | op1std 7935 |
. . . . . . . . . . . . 13
⊢ (𝑦 = ⟨𝑏, 𝑑⟩ → (1st ‘𝑦) = 𝑏) |
40 | 39 | fveq2d 6850 |
. . . . . . . . . . . 12
⊢ (𝑦 = ⟨𝑏, 𝑑⟩ → (𝑓‘(1st ‘𝑦)) = (𝑓‘𝑏)) |
41 | 37, 38 | op2ndd 7936 |
. . . . . . . . . . . . 13
⊢ (𝑦 = ⟨𝑏, 𝑑⟩ → (2nd ‘𝑦) = 𝑑) |
42 | 41 | fveq2d 6850 |
. . . . . . . . . . . 12
⊢ (𝑦 = ⟨𝑏, 𝑑⟩ → (𝑔‘(2nd ‘𝑦)) = (𝑔‘𝑑)) |
43 | 40, 42 | opeq12d 4842 |
. . . . . . . . . . 11
⊢ (𝑦 = ⟨𝑏, 𝑑⟩ → ⟨(𝑓‘(1st ‘𝑦)), (𝑔‘(2nd ‘𝑦))⟩ = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩) |
44 | 43 | eqeq2d 2744 |
. . . . . . . . . 10
⊢ (𝑦 = ⟨𝑏, 𝑑⟩ → (𝑥 = ⟨(𝑓‘(1st ‘𝑦)), (𝑔‘(2nd ‘𝑦))⟩ ↔ 𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩)) |
45 | 44 | rexxp 5802 |
. . . . . . . . 9
⊢
(∃𝑦 ∈
(𝐵 × 𝐷)𝑥 = ⟨(𝑓‘(1st ‘𝑦)), (𝑔‘(2nd ‘𝑦))⟩ ↔ ∃𝑏 ∈ 𝐵 ∃𝑑 ∈ 𝐷 𝑥 = ⟨(𝑓‘𝑏), (𝑔‘𝑑)⟩) |
46 | 36, 45 | sylibr 233 |
. . . . . . . 8
⊢
(((∀𝑎 ∈
𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑)) ∧ 𝑥 ∈ (𝐴 × 𝐶)) → ∃𝑦 ∈ (𝐵 × 𝐷)𝑥 = ⟨(𝑓‘(1st ‘𝑦)), (𝑔‘(2nd ‘𝑦))⟩) |
47 | 46 | adantll 713 |
. . . . . . 7
⊢ ((((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) ∧ (∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑))) ∧ 𝑥 ∈ (𝐴 × 𝐶)) → ∃𝑦 ∈ (𝐵 × 𝐷)𝑥 = ⟨(𝑓‘(1st ‘𝑦)), (𝑔‘(2nd ‘𝑦))⟩) |
48 | 10, 15, 47 | wdom2d 9524 |
. . . . . 6
⊢ (((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) ∧ (∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) ∧ ∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑))) → (𝐴 × 𝐶) ≼* (𝐵 × 𝐷)) |
49 | 48 | expr 458 |
. . . . 5
⊢ (((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) ∧ ∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏)) → (∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (𝐴 × 𝐶) ≼* (𝐵 × 𝐷))) |
50 | 49 | exlimdv 1937 |
. . . 4
⊢ (((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) ∧ ∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏)) → (∃𝑔∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (𝐴 × 𝐶) ≼* (𝐵 × 𝐷))) |
51 | 50 | ex 414 |
. . 3
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → (∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) → (∃𝑔∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (𝐴 × 𝐶) ≼* (𝐵 × 𝐷)))) |
52 | 51 | exlimdv 1937 |
. 2
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → (∃𝑓∀𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝑎 = (𝑓‘𝑏) → (∃𝑔∀𝑐 ∈ 𝐶 ∃𝑑 ∈ 𝐷 𝑐 = (𝑔‘𝑑) → (𝐴 × 𝐶) ≼* (𝐵 × 𝐷)))) |
53 | 2, 4, 52 | mp2d 49 |
1
⊢ ((𝐴 ≼* 𝐵 ∧ 𝐶 ≼* 𝐷) → (𝐴 × 𝐶) ≼* (𝐵 × 𝐷)) |