Proof of Theorem con3th
| Step | Hyp | Ref
| Expression |
| 1 | | id 9 |
. . . 4
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) → (ψ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ))))) |
| 2 | 1 | negbid 463 |
. . 3
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) → (¬ ψ ↔ ¬ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ))))) |
| 3 | 2 | imbi1d 465 |
. 2
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) → ((¬ ψ → ¬ φ) ↔ (¬ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ))) → ¬ φ))) |
| 4 | 1 | imbi2d 464 |
. . . 4
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) → ((φ → ψ) ↔ (φ → ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))))) |
| 5 | | id 9 |
. . . . 5
⊢ ((φ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) → (φ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ))))) |
| 6 | 5 | imbi2d 464 |
. . . 4
⊢ ((φ ↔ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) → ((φ → φ) ↔ (φ → ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))))) |
| 7 | | id 9 |
. . . 4
⊢ (φ
→ φ) |
| 8 | 4, 6, 7 | elimh 571 |
. . 3
⊢ (φ
→ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ)))) |
| 9 | 8 | con3i 90 |
. 2
⊢ (¬ ((ψ ∧ (φ → ψ)) ∨ (φ ∧ ¬ (φ → ψ))) → ¬ φ) |
| 10 | 3, 9 | dedt 572 |
1
⊢ ((φ → ψ) → (¬ ψ → ¬ φ)) |