Proof of Theorem con3th
| Step | Hyp | Ref
 | Expression | 
| 1 |   | id 19 | 
. . . 4
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) → (ψ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ))))) | 
| 2 | 1 | notbid 285 | 
. . 3
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) → (¬ ψ ↔ ¬ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ))))) | 
| 3 | 2 | imbi1d 308 | 
. 2
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) → ((¬ ψ → ¬ φ) ↔ (¬ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ))) → ¬ φ))) | 
| 4 | 1 | imbi2d 307 | 
. . . 4
⊢ ((ψ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) → ((φ → ψ) ↔ (φ → ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))))) | 
| 5 |   | id 19 | 
. . . . 5
⊢ ((φ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) → (φ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ))))) | 
| 6 | 5 | imbi2d 307 | 
. . . 4
⊢ ((φ ↔ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) → ((φ → φ) ↔ (φ → ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))))) | 
| 7 |   | id 19 | 
. . . 4
⊢ (φ → φ) | 
| 8 | 4, 6, 7 | elimh 922 | 
. . 3
⊢ (φ → ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ)))) | 
| 9 | 8 | con3i 127 | 
. 2
⊢ (¬ ((ψ ∧ (φ → ψ))  ∨ (φ ∧ ¬
(φ → ψ))) → ¬ φ) | 
| 10 | 3, 9 | dedt 923 | 
1
⊢ ((φ → ψ) → (¬ ψ → ¬ φ)) |