Theorem sbequilem 1891

Description: Propositional logic lemma used in the sbequi 1892 proof. (Contributed by Jim Kingdon, 1-Feb-2018.)

Hypotheses

Ref	Expression
sbequilem.1	⊢ (𝜑 ∨ (𝜓 → (𝜒 → 𝜃)))
sbequilem.2	⊢ (𝜏 ∨ (𝜓 → (𝜃 → 𝜂)))

Assertion

Ref	Expression
sbequilem	⊢ (𝜑 ∨ (𝜏 ∨ (𝜓 → (𝜒 → 𝜂))))

Proof of Theorem sbequilem

Step	Hyp	Ref	Expression
1		sbequilem.1	. . . . . . . . . 10 ⊢ (𝜑 ∨ (𝜓 → (𝜒 → 𝜃)))
2		sbequilem.2	. . . . . . . . . 10 ⊢ (𝜏 ∨ (𝜓 → (𝜃 → 𝜂)))
3	1, 2	pm3.2i 272	. . . . . . . . 9 ⊢ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜏 ∨ (𝜓 → (𝜃 → 𝜂))))
4		andi 830	. . . . . . . . 9 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜏 ∨ (𝜓 → (𝜃 → 𝜂)))) ↔ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ∨ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂)))))
5	3, 4	mpbi 145	. . . . . . . 8 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ∨ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂))))
6		andir 831	. . . . . . . . 9 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ↔ ((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)))
7		andir 831	. . . . . . . . 9 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂))) ↔ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂)))))
8	6, 7	orbi12i 776	. . . . . . . 8 ⊢ ((((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ∨ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂)))) ↔ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))))))
9	5, 8	mpbi 145	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂)))))
10		pm3.43 610	. . . . . . . . . 10 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))) → (𝜓 → ((𝜒 → 𝜃) ∧ (𝜃 → 𝜂))))
11		pm3.33 345	. . . . . . . . . 10 ⊢ (((𝜒 → 𝜃) ∧ (𝜃 → 𝜂)) → (𝜒 → 𝜂))
12	10, 11	syl6 33	. . . . . . . . 9 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))) → (𝜓 → (𝜒 → 𝜂)))
13	12	orim2i 773	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂)))) → ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))))
14	13	orim2i 773	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))))) → (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))))
15	9, 14	ax-mp 5	. . . . . 6 ⊢ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))))
16		simpr 110	. . . . . . . 8 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) → 𝜏)
17	6, 16	sylbir 135	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) → 𝜏)
18	17	orim1i 772	. . . . . 6 ⊢ ((((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))) → (𝜏 ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))))
19	15, 18	ax-mp 5	. . . . 5 ⊢ (𝜏 ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))))
20		simpl 109	. . . . . . 7 ⊢ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) → 𝜑)
21	20	orim1i 772	. . . . . 6 ⊢ (((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))) → (𝜑 ∨ (𝜓 → (𝜒 → 𝜂))))
22	21	orim2i 773	. . . . 5 ⊢ ((𝜏 ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))) → (𝜏 ∨ (𝜑 ∨ (𝜓 → (𝜒 → 𝜂)))))
23	19, 22	ax-mp 5	. . . 4 ⊢ (𝜏 ∨ (𝜑 ∨ (𝜓 → (𝜒 → 𝜂))))
24		orass 779	. . . 4 ⊢ (((𝜏 ∨ 𝜑) ∨ (𝜓 → (𝜒 → 𝜂))) ↔ (𝜏 ∨ (𝜑 ∨ (𝜓 → (𝜒 → 𝜂)))))
25	23, 24	mpbir 146	. . 3 ⊢ ((𝜏 ∨ 𝜑) ∨ (𝜓 → (𝜒 → 𝜂)))
26		orcom 740	. . . 4 ⊢ ((𝜏 ∨ 𝜑) ↔ (𝜑 ∨ 𝜏))
27	26	orbi1i 775	. . 3 ⊢ (((𝜏 ∨ 𝜑) ∨ (𝜓 → (𝜒 → 𝜂))) ↔ ((𝜑 ∨ 𝜏) ∨ (𝜓 → (𝜒 → 𝜂))))
28	25, 27	mpbi 145	. 2 ⊢ ((𝜑 ∨ 𝜏) ∨ (𝜓 → (𝜒 → 𝜂)))
29		orass 779	. 2 ⊢ (((𝜑 ∨ 𝜏) ∨ (𝜓 → (𝜒 → 𝜂))) ↔ (𝜑 ∨ (𝜏 ∨ (𝜓 → (𝜒 → 𝜂)))))
30	28, 29	mpbi 145	1 ⊢ (𝜑 ∨ (𝜏 ∨ (𝜓 → (𝜒 → 𝜂))))

This proof depends on syntax axioms:   → wi 4   ∧ wa 104   ∨ wo 720

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 721

This proof depends on definitions:  df-bi 117

This theorem is used by:  sbequi  1892