Proof of Theorem luk-1
Step | Hyp | Ref
| Expression |
1 | | ax-meredith 1406 |
. 2
⊢ (((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ) → ((ψ → χ) → (φ → χ))) |
2 | | merlem13 1419 |
. . . 4
⊢ ((φ → ψ) → ((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ)) |
3 | | merlem13 1419 |
. . . 4
⊢ (((φ → ψ) → ((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ)) → ((((((ψ → χ) → (φ → χ)) → φ) → (¬ ¬ ¬ (φ → ψ) → ¬ (φ → ψ))) → ¬ ¬ (φ → ψ)) → ((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ))) |
4 | 2, 3 | ax-mp 5 |
. . 3
⊢ ((((((ψ → χ) → (φ → χ)) → φ) → (¬ ¬ ¬ (φ → ψ) → ¬ (φ → ψ))) → ¬ ¬ (φ → ψ)) → ((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ)) |
5 | | ax-meredith 1406 |
. . 3
⊢ (((((((ψ → χ) → (φ → χ)) → φ) → (¬ ¬ ¬ (φ → ψ) → ¬ (φ → ψ))) → ¬ ¬ (φ → ψ)) → ((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ)) → ((((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ) → ((ψ → χ) → (φ → χ))) → ((φ → ψ) → ((ψ → χ) → (φ → χ))))) |
6 | 4, 5 | ax-mp 5 |
. 2
⊢ ((((((χ → χ) → (¬ ¬ ¬ φ → ¬ φ)) → ¬ ¬ φ) → ψ) → ((ψ → χ) → (φ → χ))) → ((φ → ψ) → ((ψ → χ) → (φ → χ)))) |
7 | 1, 6 | ax-mp 5 |
1
⊢ ((φ → ψ) → ((ψ → χ) → (φ → χ))) |