Theorem frege60a 38172

Description: Swap antecedents of ax-frege58a 38169. Proposition 60 of [Frege1879] p. 52. (Contributed by RP, 17-Apr-2020.) (Proof modification is discouraged.)

Assertion

Ref	Expression
frege60a	|- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> (if- ( ph , ch , et ) -> (if- ( ph , ps , ta ) -> if- ( ph , th , ze ) ) ) )

Proof of Theorem frege60a

Step	Hyp	Ref	Expression
1		frege58acor 38170	. . 3 |- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> (if- ( ph , ps , ta ) -> if- ( ph , ( ch -> th ) , ( et -> ze ) ) ) )
2		ifpimim 37854	. . 3 |- (if- ( ph , ( ch -> th ) , ( et -> ze ) ) -> (if- ( ph , ch , et ) -> if- ( ph , th , ze ) ) )
3	1, 2	syl6 35	. 2 |- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> (if- ( ph , ps , ta ) -> (if- ( ph , ch , et ) -> if- ( ph , th , ze ) ) ) )
4		frege12 38107	. 2 |- ( ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> (if- ( ph , ps , ta ) -> (if- ( ph , ch , et ) -> if- ( ph , th , ze ) ) ) ) -> ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> (if- ( ph , ch , et ) -> (if- ( ph , ps , ta ) -> if- ( ph , th , ze ) ) ) ) )
5	3, 4	ax-mp 5	1 |- ( ( ( ps -> ( ch -> th ) ) /\ ( ta -> ( et -> ze ) ) ) -> (if- ( ph , ch , et ) -> (if- ( ph , ps , ta ) -> if- ( ph , th , ze ) ) ) )

Syntax hints:   -> wi 4   /\ wa 384  if-wif 1012

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-frege1 38084  ax-frege2 38085  ax-frege8 38103  ax-frege58a 38169

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-ifp 1013

This theorem is referenced by: (None)