Proof of Theorem luk-1
Step | Hyp | Ref
| Expression |
1 | | meredith 1647 |
. 2
⊢
(((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓) → ((𝜓 → 𝜒) → (𝜑 → 𝜒))) |
2 | | merlem13 1660 |
. . . 4
⊢ ((𝜑 → 𝜓) → ((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓)) |
3 | | merlem13 1660 |
. . . 4
⊢ (((𝜑 → 𝜓) → ((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓)) → ((((((𝜓 → 𝜒) → (𝜑 → 𝜒)) → 𝜑) → (¬ ¬ ¬ (𝜑 → 𝜓) → ¬ (𝜑 → 𝜓))) → ¬ ¬ (𝜑 → 𝜓)) → ((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓))) |
4 | 2, 3 | ax-mp 5 |
. . 3
⊢
((((((𝜓 → 𝜒) → (𝜑 → 𝜒)) → 𝜑) → (¬ ¬ ¬ (𝜑 → 𝜓) → ¬ (𝜑 → 𝜓))) → ¬ ¬ (𝜑 → 𝜓)) → ((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓)) |
5 | | meredith 1647 |
. . 3
⊢
(((((((𝜓 → 𝜒) → (𝜑 → 𝜒)) → 𝜑) → (¬ ¬ ¬ (𝜑 → 𝜓) → ¬ (𝜑 → 𝜓))) → ¬ ¬ (𝜑 → 𝜓)) → ((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓)) → ((((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓) → ((𝜓 → 𝜒) → (𝜑 → 𝜒))) → ((𝜑 → 𝜓) → ((𝜓 → 𝜒) → (𝜑 → 𝜒))))) |
6 | 4, 5 | ax-mp 5 |
. 2
⊢
((((((𝜒 → 𝜒) → (¬ ¬ ¬ 𝜑 → ¬ 𝜑)) → ¬ ¬ 𝜑) → 𝜓) → ((𝜓 → 𝜒) → (𝜑 → 𝜒))) → ((𝜑 → 𝜓) → ((𝜓 → 𝜒) → (𝜑 → 𝜒)))) |
7 | 1, 6 | ax-mp 5 |
1
⊢ ((𝜑 → 𝜓) → ((𝜓 → 𝜒) → (𝜑 → 𝜒))) |