Proof of Theorem mopick2
| Step | Hyp | Ref
| Expression |
| 1 | | pm3.26 256 |
. . . . 5
⊢ ((φ ∧ ψ) → φ) |
| 2 | 1 | 19.22i 723 |
. . . 4
⊢ (∃x(φ ∧
ψ) → ∃xφ) |
| 3 | 2 | adantl 305 |
. . 3
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ)) → ∃xφ) |
| 4 | 3 | 3adant3 599 |
. 2
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → ∃xφ) |
| 5 | | hbmo1 1032 |
. . . 4
⊢ (∃*xφ →
∀x∃*xφ) |
| 6 | | hbe1 709 |
. . . 4
⊢ (∃x(φ ∧
ψ) → ∀x∃x(φ ∧ ψ)) |
| 7 | | hbe1 709 |
. . . 4
⊢ (∃x(φ ∧
χ) → ∀x∃x(φ ∧ χ)) |
| 8 | 5, 6, 7 | hb3an 707 |
. . 3
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → ∀x(∃*xφ ∧ ∃x(φ ∧
ψ) ∧ ∃x(φ ∧
χ))) |
| 9 | | mopick 1054 |
. . . . . . 7
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ)) → (φ → ψ)) |
| 10 | | mopick 1054 |
. . . . . . 7
⊢ ((∃*xφ ∧
∃x(φ ∧ χ)) → (φ → χ)) |
| 11 | 9, 10 | anim12i 268 |
. . . . . 6
⊢ (((∃*xφ ∧
∃x(φ ∧ ψ)) ∧ (∃*xφ ∧
∃x(φ ∧ χ))) → ((φ → ψ) ∧ (φ → χ))) |
| 12 | | 3anass 585 |
. . . . . . 7
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) ↔ (∃*xφ ∧
(∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)))) |
| 13 | | anandi 392 |
. . . . . . 7
⊢ ((∃*xφ ∧
(∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ))) ↔ ((∃*xφ ∧
∃x(φ ∧ ψ)) ∧ (∃*xφ ∧
∃x(φ ∧ χ)))) |
| 14 | 12, 13 | bitr 151 |
. . . . . 6
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) ↔ ((∃*xφ ∧
∃x(φ ∧ ψ)) ∧ (∃*xφ ∧
∃x(φ ∧ χ)))) |
| 15 | | jcab 454 |
. . . . . 6
⊢ ((φ → (ψ ∧ χ)) ↔ ((φ → ψ) ∧ (φ → χ))) |
| 16 | 11, 14, 15 | 3imtr4 192 |
. . . . 5
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → (φ → (ψ ∧ χ))) |
| 17 | 16 | ancld 246 |
. . . 4
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → (φ → (φ ∧ (ψ ∧ χ)))) |
| 18 | | 3anass 585 |
. . . 4
⊢ ((φ ∧ ψ ∧ χ) ↔ (φ ∧ (ψ ∧ χ))) |
| 19 | 17, 18 | syl6ibr 186 |
. . 3
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → (φ → (φ ∧ ψ ∧ χ))) |
| 20 | 8, 19 | 19.22d 744 |
. 2
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → (∃xφ →
∃x(φ ∧ ψ ∧ χ))) |
| 21 | 4, 20 | mpd 46 |
1
⊢ ((∃*xφ ∧
∃x(φ ∧ ψ) ∧ ∃x(φ ∧
χ)) → ∃x(φ ∧
ψ ∧ χ)) |