Theorem frege60a 40214

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

Assertion

Ref	Expression
frege60a	⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜏 → (𝜂 → 𝜁))) → (if-(𝜑, 𝜒, 𝜂) → (if-(𝜑, 𝜓, 𝜏) → if-(𝜑, 𝜃, 𝜁))))

Proof of Theorem frege60a

Step	Hyp	Ref	Expression
1		frege58acor 40212	. . 3 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜏 → (𝜂 → 𝜁))) → (if-(𝜑, 𝜓, 𝜏) → if-(𝜑, (𝜒 → 𝜃), (𝜂 → 𝜁))))
2		ifpimim 39865	. . 3 ⊢ (if-(𝜑, (𝜒 → 𝜃), (𝜂 → 𝜁)) → (if-(𝜑, 𝜒, 𝜂) → if-(𝜑, 𝜃, 𝜁)))
3	1, 2	syl6 35	. 2 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜏 → (𝜂 → 𝜁))) → (if-(𝜑, 𝜓, 𝜏) → (if-(𝜑, 𝜒, 𝜂) → if-(𝜑, 𝜃, 𝜁))))
4		frege12 40149	. 2 ⊢ ((((𝜓 → (𝜒 → 𝜃)) ∧ (𝜏 → (𝜂 → 𝜁))) → (if-(𝜑, 𝜓, 𝜏) → (if-(𝜑, 𝜒, 𝜂) → if-(𝜑, 𝜃, 𝜁)))) → (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜏 → (𝜂 → 𝜁))) → (if-(𝜑, 𝜒, 𝜂) → (if-(𝜑, 𝜓, 𝜏) → if-(𝜑, 𝜃, 𝜁)))))
5	3, 4	ax-mp 5	1 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜏 → (𝜂 → 𝜁))) → (if-(𝜑, 𝜒, 𝜂) → (if-(𝜑, 𝜓, 𝜏) → if-(𝜑, 𝜃, 𝜁))))

Syntax hints:   → wi 4   ∧ wa 398  if-wif 1057

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-frege1 40126  ax-frege2 40127  ax-frege8 40145  ax-frege58a 40211

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-ifp 1058

This theorem is referenced by: (None)