Theorem frege60b 43384

Description: Swap antecedents of ax-frege58b 43380. Proposition 60 of [Frege1879] p. 52. (Contributed by RP, 24-Dec-2019.) (Proof modification is discouraged.)

Assertion

Ref	Expression
frege60b	⊢ (∀𝑥(𝜑 → (𝜓 → 𝜒)) → ([𝑦 / 𝑥]𝜓 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑥]𝜒)))

Proof of Theorem frege60b

Step	Hyp	Ref	Expression
1		ax-frege58b 43380	. . 3 ⊢ (∀𝑥(𝜑 → (𝜓 → 𝜒)) → [𝑦 / 𝑥](𝜑 → (𝜓 → 𝜒)))
2		sbim 2292	. . . 4 ⊢ ([𝑦 / 𝑥](𝜑 → (𝜓 → 𝜒)) ↔ ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑥](𝜓 → 𝜒)))
3		sbim 2292	. . . . 5 ⊢ ([𝑦 / 𝑥](𝜓 → 𝜒) ↔ ([𝑦 / 𝑥]𝜓 → [𝑦 / 𝑥]𝜒))
4	3	imbi2i 335	. . . 4 ⊢ (([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑥](𝜓 → 𝜒)) ↔ ([𝑦 / 𝑥]𝜑 → ([𝑦 / 𝑥]𝜓 → [𝑦 / 𝑥]𝜒)))
5	2, 4	bitri 274	. . 3 ⊢ ([𝑦 / 𝑥](𝜑 → (𝜓 → 𝜒)) ↔ ([𝑦 / 𝑥]𝜑 → ([𝑦 / 𝑥]𝜓 → [𝑦 / 𝑥]𝜒)))
6	1, 5	sylib 217	. 2 ⊢ (∀𝑥(𝜑 → (𝜓 → 𝜒)) → ([𝑦 / 𝑥]𝜑 → ([𝑦 / 𝑥]𝜓 → [𝑦 / 𝑥]𝜒)))
7		frege12 43292	. 2 ⊢ ((∀𝑥(𝜑 → (𝜓 → 𝜒)) → ([𝑦 / 𝑥]𝜑 → ([𝑦 / 𝑥]𝜓 → [𝑦 / 𝑥]𝜒))) → (∀𝑥(𝜑 → (𝜓 → 𝜒)) → ([𝑦 / 𝑥]𝜓 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑥]𝜒))))
8	6, 7	ax-mp 5	1 ⊢ (∀𝑥(𝜑 → (𝜓 → 𝜒)) → ([𝑦 / 𝑥]𝜓 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑥]𝜒)))

Syntax hints:   → wi 4  ∀wal 1531  [wsb 2059

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-10 2129  ax-12 2166  ax-frege1 43269  ax-frege2 43270  ax-frege8 43288  ax-frege58b 43380

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-ex 1774  df-nf 1778  df-sb 2060

This theorem is referenced by: (None)