Proof of Theorem mosubopt
Step | Hyp | Ref
| Expression |
1 | | nfa1 1529 |
. . 3
⊢
Ⅎ𝑦∀𝑦∀𝑧∃*𝑥𝜑 |
2 | | nfe1 1484 |
. . . 4
⊢
Ⅎ𝑦∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) |
3 | 2 | nfmo 2034 |
. . 3
⊢
Ⅎ𝑦∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) |
4 | | nfa1 1529 |
. . . . 5
⊢
Ⅎ𝑧∀𝑧∃*𝑥𝜑 |
5 | | nfe1 1484 |
. . . . . . 7
⊢
Ⅎ𝑧∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) |
6 | 5 | nfex 1625 |
. . . . . 6
⊢
Ⅎ𝑧∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) |
7 | 6 | nfmo 2034 |
. . . . 5
⊢
Ⅎ𝑧∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) |
8 | | copsexg 4222 |
. . . . . . . 8
⊢ (𝐴 = 〈𝑦, 𝑧〉 → (𝜑 ↔ ∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
9 | 8 | mobidv 2050 |
. . . . . . 7
⊢ (𝐴 = 〈𝑦, 𝑧〉 → (∃*𝑥𝜑 ↔ ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
10 | 9 | biimpcd 158 |
. . . . . 6
⊢
(∃*𝑥𝜑 → (𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
11 | 10 | sps 1525 |
. . . . 5
⊢
(∀𝑧∃*𝑥𝜑 → (𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
12 | 4, 7, 11 | exlimd 1585 |
. . . 4
⊢
(∀𝑧∃*𝑥𝜑 → (∃𝑧 𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
13 | 12 | sps 1525 |
. . 3
⊢
(∀𝑦∀𝑧∃*𝑥𝜑 → (∃𝑧 𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
14 | 1, 3, 13 | exlimd 1585 |
. 2
⊢
(∀𝑦∀𝑧∃*𝑥𝜑 → (∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
15 | | moanimv 2089 |
. . 3
⊢
(∃*𝑥(∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉 ∧ ∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑)) ↔ (∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
16 | | simpl 108 |
. . . . . 6
⊢ ((𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) → 𝐴 = 〈𝑦, 𝑧〉) |
17 | 16 | 2eximi 1589 |
. . . . 5
⊢
(∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) → ∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉) |
18 | 17 | ancri 322 |
. . . 4
⊢
(∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑) → (∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉 ∧ ∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑))) |
19 | 18 | moimi 2079 |
. . 3
⊢
(∃*𝑥(∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉 ∧ ∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑)) → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑)) |
20 | 15, 19 | sylbir 134 |
. 2
⊢
((∃𝑦∃𝑧 𝐴 = 〈𝑦, 𝑧〉 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑)) → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑)) |
21 | 14, 20 | syl 14 |
1
⊢
(∀𝑦∀𝑧∃*𝑥𝜑 → ∃*𝑥∃𝑦∃𝑧(𝐴 = 〈𝑦, 𝑧〉 ∧ 𝜑)) |