Proof of Theorem weexenwe
| Step | Hyp | Ref
| Expression |
| 1 | | ween 10114 |
. . . 4
⊢ (𝐴 ∈ dom card ↔
∃𝑟 𝑟 We 𝐴) |
| 2 | | inss2 4183 |
. . . . . . 7
⊢ (𝑟 ∩ (𝐴 × 𝐴)) ⊆ (𝐴 × 𝐴) |
| 3 | | weinxp 5736 |
. . . . . . . . 9
⊢ (𝑟 We 𝐴 ↔ (𝑟 ∩ (𝐴 × 𝐴)) We 𝐴) |
| 4 | 3 | biimpi 219 |
. . . . . . . 8
⊢ (𝑟 We 𝐴 → (𝑟 ∩ (𝐴 × 𝐴)) We 𝐴) |
| 5 | 4 | 3ad2ant3 1153 |
. . . . . . 7
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴 ∧ 𝑟 We 𝐴) → (𝑟 ∩ (𝐴 × 𝐴)) We 𝐴) |
| 6 | | reldom 8979 |
. . . . . . . . . . . . 13
⊢ Rel
≼ |
| 7 | 6 | brrelex2i 5708 |
. . . . . . . . . . . 12
⊢ (ω
≼ 𝐴 → 𝐴 ∈ V) |
| 8 | 7, 7 | xpexd 7765 |
. . . . . . . . . . 11
⊢ (ω
≼ 𝐴 → (𝐴 × 𝐴) ∈ V) |
| 9 | | ssdomg 9027 |
. . . . . . . . . . 11
⊢ ((𝐴 × 𝐴) ∈ V → ((𝑟 ∩ (𝐴 × 𝐴)) ⊆ (𝐴 × 𝐴) → (𝑟 ∩ (𝐴 × 𝐴)) ≼ (𝐴 × 𝐴))) |
| 10 | 8, 2, 9 | mpisyl 22 |
. . . . . . . . . 10
⊢ (ω
≼ 𝐴 → (𝑟 ∩ (𝐴 × 𝐴)) ≼ (𝐴 × 𝐴)) |
| 11 | | infxpidm2 10096 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴) → (𝐴 × 𝐴) ≈ 𝐴) |
| 12 | | domentr 9040 |
. . . . . . . . . 10
⊢ (((𝑟 ∩ (𝐴 × 𝐴)) ≼ (𝐴 × 𝐴) ∧ (𝐴 × 𝐴) ≈ 𝐴) → (𝑟 ∩ (𝐴 × 𝐴)) ≼ 𝐴) |
| 13 | 10, 11, 12 | syl2an2 699 |
. . . . . . . . 9
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴) → (𝑟 ∩ (𝐴 × 𝐴)) ≼ 𝐴) |
| 14 | 13 | 3adant3 1150 |
. . . . . . . 8
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴 ∧ 𝑟 We 𝐴) → (𝑟 ∩ (𝐴 × 𝐴)) ≼ 𝐴) |
| 15 | | weso 5642 |
. . . . . . . . . . . 12
⊢ ((𝑟 ∩ (𝐴 × 𝐴)) We 𝐴 → (𝑟 ∩ (𝐴 × 𝐴)) Or 𝐴) |
| 16 | 3, 15 | sylbi 220 |
. . . . . . . . . . 11
⊢ (𝑟 We 𝐴 → (𝑟 ∩ (𝐴 × 𝐴)) Or 𝐴) |
| 17 | | vex 3455 |
. . . . . . . . . . . . 13
⊢ 𝑟 ∈ V |
| 18 | 17 | inex1 5277 |
. . . . . . . . . . . 12
⊢ (𝑟 ∩ (𝐴 × 𝐴)) ∈ V |
| 19 | | soinfdom 35717 |
. . . . . . . . . . . 12
⊢ (((𝑟 ∩ (𝐴 × 𝐴)) Or 𝐴 ∧ (𝑟 ∩ (𝐴 × 𝐴)) ∈ V ∧ ω ≼ 𝐴) → 𝐴 ≼ (𝑟 ∩ (𝐴 × 𝐴))) |
| 20 | 18, 19 | mp3an2 1478 |
. . . . . . . . . . 11
⊢ (((𝑟 ∩ (𝐴 × 𝐴)) Or 𝐴 ∧ ω ≼ 𝐴) → 𝐴 ≼ (𝑟 ∩ (𝐴 × 𝐴))) |
| 21 | 16, 20 | sylan 592 |
. . . . . . . . . 10
⊢ ((𝑟 We 𝐴 ∧ ω ≼ 𝐴) → 𝐴 ≼ (𝑟 ∩ (𝐴 × 𝐴))) |
| 22 | 21 | ancoms 464 |
. . . . . . . . 9
⊢ ((ω
≼ 𝐴 ∧ 𝑟 We 𝐴) → 𝐴 ≼ (𝑟 ∩ (𝐴 × 𝐴))) |
| 23 | 22 | 3adant1 1148 |
. . . . . . . 8
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴 ∧ 𝑟 We 𝐴) → 𝐴 ≼ (𝑟 ∩ (𝐴 × 𝐴))) |
| 24 | | sbth 9116 |
. . . . . . . 8
⊢ (((𝑟 ∩ (𝐴 × 𝐴)) ≼ 𝐴 ∧ 𝐴 ≼ (𝑟 ∩ (𝐴 × 𝐴))) → (𝑟 ∩ (𝐴 × 𝐴)) ≈ 𝐴) |
| 25 | 14, 23, 24 | syl2anc 596 |
. . . . . . 7
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴 ∧ 𝑟 We 𝐴) → (𝑟 ∩ (𝐴 × 𝐴)) ≈ 𝐴) |
| 26 | | sseq1 3956 |
. . . . . . . . 9
⊢ (𝑠 = (𝑟 ∩ (𝐴 × 𝐴)) → (𝑠 ⊆ (𝐴 × 𝐴) ↔ (𝑟 ∩ (𝐴 × 𝐴)) ⊆ (𝐴 × 𝐴))) |
| 27 | | weeq1 5638 |
. . . . . . . . 9
⊢ (𝑠 = (𝑟 ∩ (𝐴 × 𝐴)) → (𝑠 We 𝐴 ↔ (𝑟 ∩ (𝐴 × 𝐴)) We 𝐴)) |
| 28 | | breq1 5106 |
. . . . . . . . 9
⊢ (𝑠 = (𝑟 ∩ (𝐴 × 𝐴)) → (𝑠 ≈ 𝐴 ↔ (𝑟 ∩ (𝐴 × 𝐴)) ≈ 𝐴)) |
| 29 | 26, 27, 28 | 3anbi123d 1464 |
. . . . . . . 8
⊢ (𝑠 = (𝑟 ∩ (𝐴 × 𝐴)) → ((𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴) ↔ ((𝑟 ∩ (𝐴 × 𝐴)) ⊆ (𝐴 × 𝐴) ∧ (𝑟 ∩ (𝐴 × 𝐴)) We 𝐴 ∧ (𝑟 ∩ (𝐴 × 𝐴)) ≈ 𝐴))) |
| 30 | 18, 29 | spcev 3561 |
. . . . . . 7
⊢ (((𝑟 ∩ (𝐴 × 𝐴)) ⊆ (𝐴 × 𝐴) ∧ (𝑟 ∩ (𝐴 × 𝐴)) We 𝐴 ∧ (𝑟 ∩ (𝐴 × 𝐴)) ≈ 𝐴) → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴)) |
| 31 | 2, 5, 25, 30 | mp3an2i 1495 |
. . . . . 6
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴 ∧ 𝑟 We 𝐴) → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴)) |
| 32 | 31 | 3expia 1139 |
. . . . 5
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴) → (𝑟 We 𝐴 → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴))) |
| 33 | 32 | exlimdv 1966 |
. . . 4
⊢ ((𝐴 ∈ dom card ∧ ω
≼ 𝐴) →
(∃𝑟 𝑟 We 𝐴 → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴))) |
| 34 | 1, 33 | sylanbr 594 |
. . 3
⊢
((∃𝑟 𝑟 We 𝐴 ∧ ω ≼ 𝐴) → (∃𝑟 𝑟 We 𝐴 → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴))) |
| 35 | 34 | adantrd 497 |
. 2
⊢
((∃𝑟 𝑟 We 𝐴 ∧ ω ≼ 𝐴) → ((∃𝑟 𝑟 We 𝐴 ∧ ω ≼ 𝐴) → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴))) |
| 36 | 35 | pm2.43i 53 |
1
⊢
((∃𝑟 𝑟 We 𝐴 ∧ ω ≼ 𝐴) → ∃𝑠(𝑠 ⊆ (𝐴 × 𝐴) ∧ 𝑠 We 𝐴 ∧ 𝑠 ≈ 𝐴)) |