Proof of Theorem cgsex2gd
| Step | Hyp | Ref
| Expression |
| 1 | | cgsex2gd.maj |
. . . . . 6
⊢ ((𝜑 ∧ 𝜓) → (𝜒 ↔ 𝜃)) |
| 2 | 1 | biimp3a 1472 |
. . . . 5
⊢ ((𝜑 ∧ 𝜓 ∧ 𝜒) → 𝜃) |
| 3 | 2 | 3expib 1123 |
. . . 4
⊢ (𝜑 → ((𝜓 ∧ 𝜒) → 𝜃)) |
| 4 | 3 | exlimdvv 1936 |
. . 3
⊢ (𝜑 → (∃𝑥∃𝑦(𝜓 ∧ 𝜒) → 𝜃)) |
| 5 | 4 | adantr 480 |
. 2
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊)) → (∃𝑥∃𝑦(𝜓 ∧ 𝜒) → 𝜃)) |
| 6 | | cgsex2gd.is |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → 𝜓) |
| 7 | 6 | ex 412 |
. . . . 5
⊢ (𝜑 → ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝜓)) |
| 8 | 7 | 2eximdv 1921 |
. . . 4
⊢ (𝜑 → (∃𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ∃𝑥∃𝑦𝜓)) |
| 9 | | elisset 2819 |
. . . . . 6
⊢ (𝐴 ∈ 𝑉 → ∃𝑥 𝑥 = 𝐴) |
| 10 | | elisset 2819 |
. . . . . 6
⊢ (𝐵 ∈ 𝑊 → ∃𝑦 𝑦 = 𝐵) |
| 11 | 9, 10 | anim12i 614 |
. . . . 5
⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (∃𝑥 𝑥 = 𝐴 ∧ ∃𝑦 𝑦 = 𝐵)) |
| 12 | | exdistrv 1957 |
. . . . 5
⊢
(∃𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ↔ (∃𝑥 𝑥 = 𝐴 ∧ ∃𝑦 𝑦 = 𝐵)) |
| 13 | 11, 12 | sylibr 234 |
. . . 4
⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ∃𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) |
| 14 | 8, 13 | impel 505 |
. . 3
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊)) → ∃𝑥∃𝑦𝜓) |
| 15 | 1 | biimprd 248 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝜓) → (𝜃 → 𝜒)) |
| 16 | 15 | impancom 451 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝜃) → (𝜓 → 𝜒)) |
| 17 | 16 | ancld 550 |
. . . . . 6
⊢ ((𝜑 ∧ 𝜃) → (𝜓 → (𝜓 ∧ 𝜒))) |
| 18 | 17 | 2eximdv 1921 |
. . . . 5
⊢ ((𝜑 ∧ 𝜃) → (∃𝑥∃𝑦𝜓 → ∃𝑥∃𝑦(𝜓 ∧ 𝜒))) |
| 19 | 18 | expimpd 453 |
. . . 4
⊢ (𝜑 → ((𝜃 ∧ ∃𝑥∃𝑦𝜓) → ∃𝑥∃𝑦(𝜓 ∧ 𝜒))) |
| 20 | 19 | adantr 480 |
. . 3
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊)) → ((𝜃 ∧ ∃𝑥∃𝑦𝜓) → ∃𝑥∃𝑦(𝜓 ∧ 𝜒))) |
| 21 | 14, 20 | mpan2d 695 |
. 2
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊)) → (𝜃 → ∃𝑥∃𝑦(𝜓 ∧ 𝜒))) |
| 22 | 5, 21 | impbid 212 |
1
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊)) → (∃𝑥∃𝑦(𝜓 ∧ 𝜒) ↔ 𝜃)) |