Proof of Theorem moexex
| Step | Hyp | Ref
| Expression |
| 1 | | nfmo1 2215 |
. . . . 5
⊢ Ⅎx∃*xφ |
| 2 | | nfa1 1788 |
. . . . . 6
⊢ Ⅎx∀x∃*yψ |
| 3 | | nfe1 1732 |
. . . . . . 7
⊢ Ⅎx∃x(φ ∧ ψ) |
| 4 | 3 | nfmo 2221 |
. . . . . 6
⊢ Ⅎx∃*y∃x(φ ∧ ψ) |
| 5 | 2, 4 | nfim 1813 |
. . . . 5
⊢ Ⅎx(∀x∃*yψ →
∃*y∃x(φ ∧ ψ)) |
| 6 | 1, 5 | nfim 1813 |
. . . 4
⊢ Ⅎx(∃*xφ →
(∀x∃*yψ →
∃*y∃x(φ ∧ ψ))) |
| 7 | | moexex.1 |
. . . . . 6
⊢ Ⅎyφ |
| 8 | 7 | nfmo 2221 |
. . . . . 6
⊢ Ⅎy∃*xφ |
| 9 | | mopick 2266 |
. . . . . . . 8
⊢ ((∃*xφ ∧ ∃x(φ ∧ ψ)) → (φ → ψ)) |
| 10 | 9 | ex 423 |
. . . . . . 7
⊢ (∃*xφ → (∃x(φ ∧ ψ) → (φ → ψ))) |
| 11 | 10 | com3r 73 |
. . . . . 6
⊢ (φ → (∃*xφ → (∃x(φ ∧ ψ) → ψ))) |
| 12 | 7, 8, 11 | alrimd 1769 |
. . . . 5
⊢ (φ → (∃*xφ → ∀y(∃x(φ ∧ ψ) → ψ))) |
| 13 | | moim 2250 |
. . . . . 6
⊢ (∀y(∃x(φ ∧ ψ) → ψ) → (∃*yψ → ∃*y∃x(φ ∧ ψ))) |
| 14 | 13 | spsd 1755 |
. . . . 5
⊢ (∀y(∃x(φ ∧ ψ) → ψ) → (∀x∃*yψ → ∃*y∃x(φ ∧ ψ))) |
| 15 | 12, 14 | syl6 29 |
. . . 4
⊢ (φ → (∃*xφ → (∀x∃*yψ → ∃*y∃x(φ ∧ ψ)))) |
| 16 | 6, 15 | exlimi 1803 |
. . 3
⊢ (∃xφ → (∃*xφ → (∀x∃*yψ → ∃*y∃x(φ ∧ ψ)))) |
| 17 | 7 | nfex 1843 |
. . . . . . . 8
⊢ Ⅎy∃xφ |
| 18 | | exsimpl 1592 |
. . . . . . . 8
⊢ (∃x(φ ∧ ψ) → ∃xφ) |
| 19 | 17, 18 | exlimi 1803 |
. . . . . . 7
⊢ (∃y∃x(φ ∧ ψ) → ∃xφ) |
| 20 | 19 | con3i 127 |
. . . . . 6
⊢ (¬ ∃xφ → ¬ ∃y∃x(φ ∧ ψ)) |
| 21 | | exmo 2249 |
. . . . . . 7
⊢ (∃y∃x(φ ∧ ψ) ∨ ∃*y∃x(φ ∧ ψ)) |
| 22 | 21 | ori 364 |
. . . . . 6
⊢ (¬ ∃y∃x(φ ∧ ψ) → ∃*y∃x(φ ∧ ψ)) |
| 23 | 20, 22 | syl 15 |
. . . . 5
⊢ (¬ ∃xφ → ∃*y∃x(φ ∧ ψ)) |
| 24 | 23 | a1d 22 |
. . . 4
⊢ (¬ ∃xφ → (∀x∃*yψ → ∃*y∃x(φ ∧ ψ))) |
| 25 | 24 | a1d 22 |
. . 3
⊢ (¬ ∃xφ → (∃*xφ → (∀x∃*yψ → ∃*y∃x(φ ∧ ψ)))) |
| 26 | 16, 25 | pm2.61i 156 |
. 2
⊢ (∃*xφ → (∀x∃*yψ → ∃*y∃x(φ ∧ ψ))) |
| 27 | 26 | imp 418 |
1
⊢ ((∃*xφ ∧ ∀x∃*yψ) → ∃*y∃x(φ ∧ ψ)) |