Proof of Theorem 2exeu
Step | Hyp | Ref
| Expression |
1 | | excom 1657 |
. . . . 5
⊢
(∃𝑦∃𝑥𝜑 ↔ ∃𝑥∃𝑦𝜑) |
2 | | hbe1 1488 |
. . . . . . . 8
⊢
(∃𝑥𝜑 → ∀𝑥∃𝑥𝜑) |
3 | 2 | hbmo 2058 |
. . . . . . 7
⊢
(∃*𝑦∃𝑥𝜑 → ∀𝑥∃*𝑦∃𝑥𝜑) |
4 | 3 | 19.41h 1678 |
. . . . . 6
⊢
(∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦∃𝑥𝜑) ↔ (∃𝑥∃𝑦𝜑 ∧ ∃*𝑦∃𝑥𝜑)) |
5 | | 19.8a 1583 |
. . . . . . . . 9
⊢ (𝜑 → ∃𝑥𝜑) |
6 | 5 | moimi 2084 |
. . . . . . . 8
⊢
(∃*𝑦∃𝑥𝜑 → ∃*𝑦𝜑) |
7 | 6 | anim2i 340 |
. . . . . . 7
⊢
((∃𝑦𝜑 ∧ ∃*𝑦∃𝑥𝜑) → (∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
8 | 7 | eximi 1593 |
. . . . . 6
⊢
(∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦∃𝑥𝜑) → ∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
9 | 4, 8 | sylbir 134 |
. . . . 5
⊢
((∃𝑥∃𝑦𝜑 ∧ ∃*𝑦∃𝑥𝜑) → ∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
10 | 1, 9 | sylanb 282 |
. . . 4
⊢
((∃𝑦∃𝑥𝜑 ∧ ∃*𝑦∃𝑥𝜑) → ∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
11 | | simpl 108 |
. . . . . 6
⊢
((∃𝑦𝜑 ∧ ∃*𝑦𝜑) → ∃𝑦𝜑) |
12 | 11 | moimi 2084 |
. . . . 5
⊢
(∃*𝑥∃𝑦𝜑 → ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
13 | 12 | adantl 275 |
. . . 4
⊢
((∃𝑥∃𝑦𝜑 ∧ ∃*𝑥∃𝑦𝜑) → ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
14 | 10, 13 | anim12i 336 |
. . 3
⊢
(((∃𝑦∃𝑥𝜑 ∧ ∃*𝑦∃𝑥𝜑) ∧ (∃𝑥∃𝑦𝜑 ∧ ∃*𝑥∃𝑦𝜑)) → (∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑) ∧ ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑))) |
15 | 14 | ancoms 266 |
. 2
⊢
(((∃𝑥∃𝑦𝜑 ∧ ∃*𝑥∃𝑦𝜑) ∧ (∃𝑦∃𝑥𝜑 ∧ ∃*𝑦∃𝑥𝜑)) → (∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑) ∧ ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑))) |
16 | | eu5 2066 |
. . 3
⊢
(∃!𝑥∃𝑦𝜑 ↔ (∃𝑥∃𝑦𝜑 ∧ ∃*𝑥∃𝑦𝜑)) |
17 | | eu5 2066 |
. . 3
⊢
(∃!𝑦∃𝑥𝜑 ↔ (∃𝑦∃𝑥𝜑 ∧ ∃*𝑦∃𝑥𝜑)) |
18 | 16, 17 | anbi12i 457 |
. 2
⊢
((∃!𝑥∃𝑦𝜑 ∧ ∃!𝑦∃𝑥𝜑) ↔ ((∃𝑥∃𝑦𝜑 ∧ ∃*𝑥∃𝑦𝜑) ∧ (∃𝑦∃𝑥𝜑 ∧ ∃*𝑦∃𝑥𝜑))) |
19 | | eu5 2066 |
. . 3
⊢
(∃!𝑥∃!𝑦𝜑 ↔ (∃𝑥∃!𝑦𝜑 ∧ ∃*𝑥∃!𝑦𝜑)) |
20 | | eu5 2066 |
. . . . 5
⊢
(∃!𝑦𝜑 ↔ (∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
21 | 20 | exbii 1598 |
. . . 4
⊢
(∃𝑥∃!𝑦𝜑 ↔ ∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
22 | 20 | mobii 2056 |
. . . 4
⊢
(∃*𝑥∃!𝑦𝜑 ↔ ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑)) |
23 | 21, 22 | anbi12i 457 |
. . 3
⊢
((∃𝑥∃!𝑦𝜑 ∧ ∃*𝑥∃!𝑦𝜑) ↔ (∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑) ∧ ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑))) |
24 | 19, 23 | bitri 183 |
. 2
⊢
(∃!𝑥∃!𝑦𝜑 ↔ (∃𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑) ∧ ∃*𝑥(∃𝑦𝜑 ∧ ∃*𝑦𝜑))) |
25 | 15, 18, 24 | 3imtr4i 200 |
1
⊢
((∃!𝑥∃𝑦𝜑 ∧ ∃!𝑦∃𝑥𝜑) → ∃!𝑥∃!𝑦𝜑) |