Theorem luklem6 1428

Description: Used to rederive standard propositional axioms from Lukasiewicz'. (Contributed by NM, 22-Dec-2002.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
luklem6	⊢ ((φ → (φ → ψ)) → (φ → ψ))

Proof of Theorem luklem6

Step	Hyp	Ref	Expression
1		luk-1 1420	. 2 ⊢ ((φ → (φ → ψ)) → (((φ → ψ) → ψ) → (φ → ψ)))
2		luklem5 1427	. . . . . 6 ⊢ (¬ (φ → ψ) → (¬ ψ → ¬ (φ → ψ)))
3		luklem2 1424	. . . . . . 7 ⊢ ((¬ ψ → ¬ (φ → ψ)) → (((¬ ψ → ψ) → ψ) → ((φ → ψ) → ψ)))
4		luklem4 1426	. . . . . . 7 ⊢ ((((¬ ψ → ψ) → ψ) → ((φ → ψ) → ψ)) → ((φ → ψ) → ψ))
5	3, 4	luklem1 1423	. . . . . 6 ⊢ ((¬ ψ → ¬ (φ → ψ)) → ((φ → ψ) → ψ))
6	2, 5	luklem1 1423	. . . . 5 ⊢ (¬ (φ → ψ) → ((φ → ψ) → ψ))
7		luk-1 1420	. . . . 5 ⊢ ((¬ (φ → ψ) → ((φ → ψ) → ψ)) → ((((φ → ψ) → ψ) → (φ → ψ)) → (¬ (φ → ψ) → (φ → ψ))))
8	6, 7	ax-mp 5	. . . 4 ⊢ ((((φ → ψ) → ψ) → (φ → ψ)) → (¬ (φ → ψ) → (φ → ψ)))
9		luk-1 1420	. . . 4 ⊢ (((((φ → ψ) → ψ) → (φ → ψ)) → (¬ (φ → ψ) → (φ → ψ))) → (((¬ (φ → ψ) → (φ → ψ)) → (φ → ψ)) → ((((φ → ψ) → ψ) → (φ → ψ)) → (φ → ψ))))
10	8, 9	ax-mp 5	. . 3 ⊢ (((¬ (φ → ψ) → (φ → ψ)) → (φ → ψ)) → ((((φ → ψ) → ψ) → (φ → ψ)) → (φ → ψ)))
11		luklem4 1426	. . 3 ⊢ ((((¬ (φ → ψ) → (φ → ψ)) → (φ → ψ)) → ((((φ → ψ) → ψ) → (φ → ψ)) → (φ → ψ))) → ((((φ → ψ) → ψ) → (φ → ψ)) → (φ → ψ)))
12	10, 11	ax-mp 5	. 2 ⊢ ((((φ → ψ) → ψ) → (φ → ψ)) → (φ → ψ))
13	1, 12	luklem1 1423	1 ⊢ ((φ → (φ → ψ)) → (φ → ψ))

Syntax hints:  ¬ wn 3   → wi 4

This theorem was proved from axioms:  ax-mp 5  ax-meredith 1406

This theorem is referenced by:  luklem7  1429  ax2  1432