Theorem sbequilem 1759

Description: Propositional logic lemma used in the sbequi 1760 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 266	. . . . . . . . 9 ⊢ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜏 ∨ (𝜓 → (𝜃 → 𝜂))))
4		andi 764	. . . . . . . . 9 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜏 ∨ (𝜓 → (𝜃 → 𝜂)))) ↔ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ∨ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂)))))
5	3, 4	mpbi 143	. . . . . . . 8 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ∨ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂))))
6		andir 765	. . . . . . . . 9 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ↔ ((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)))
7		andir 765	. . . . . . . . 9 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂))) ↔ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂)))))
8	6, 7	orbi12i 713	. . . . . . . 8 ⊢ ((((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) ∨ ((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ (𝜓 → (𝜃 → 𝜂)))) ↔ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))))))
9	5, 8	mpbi 143	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂)))))
10		pm3.43 566	. . . . . . . . . 10 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))) → (𝜓 → ((𝜒 → 𝜃) ∧ (𝜃 → 𝜂))))
11		pm3.33 337	. . . . . . . . . 10 ⊢ (((𝜒 → 𝜃) ∧ (𝜃 → 𝜂)) → (𝜒 → 𝜂))
12	10, 11	syl6 33	. . . . . . . . 9 ⊢ (((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))) → (𝜓 → (𝜒 → 𝜂)))
13	12	orim2i 710	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂)))) → ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))))
14	13	orim2i 710	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ (𝜓 → (𝜃 → 𝜂))))) → (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))))
15	9, 14	ax-mp 7	. . . . . 6 ⊢ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))))
16		simpr 108	. . . . . . . 8 ⊢ (((𝜑 ∨ (𝜓 → (𝜒 → 𝜃))) ∧ 𝜏) → 𝜏)
17	6, 16	sylbir 133	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) → 𝜏)
18	17	orim1i 709	. . . . . 6 ⊢ ((((𝜑 ∧ 𝜏) ∨ ((𝜓 → (𝜒 → 𝜃)) ∧ 𝜏)) ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))) → (𝜏 ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))))
19	15, 18	ax-mp 7	. . . . 5 ⊢ (𝜏 ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))))
20		simpl 107	. . . . . . 7 ⊢ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) → 𝜑)
21	20	orim1i 709	. . . . . 6 ⊢ (((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂))) → (𝜑 ∨ (𝜓 → (𝜒 → 𝜂))))
22	21	orim2i 710	. . . . 5 ⊢ ((𝜏 ∨ ((𝜑 ∧ (𝜓 → (𝜃 → 𝜂))) ∨ (𝜓 → (𝜒 → 𝜂)))) → (𝜏 ∨ (𝜑 ∨ (𝜓 → (𝜒 → 𝜂)))))
23	19, 22	ax-mp 7	. . . 4 ⊢ (𝜏 ∨ (𝜑 ∨ (𝜓 → (𝜒 → 𝜂))))
24		orass 716	. . . 4 ⊢ (((𝜏 ∨ 𝜑) ∨ (𝜓 → (𝜒 → 𝜂))) ↔ (𝜏 ∨ (𝜑 ∨ (𝜓 → (𝜒 → 𝜂)))))
25	23, 24	mpbir 144	. . 3 ⊢ ((𝜏 ∨ 𝜑) ∨ (𝜓 → (𝜒 → 𝜂)))
26		orcom 679	. . . 4 ⊢ ((𝜏 ∨ 𝜑) ↔ (𝜑 ∨ 𝜏))
27	26	orbi1i 712	. . 3 ⊢ (((𝜏 ∨ 𝜑) ∨ (𝜓 → (𝜒 → 𝜂))) ↔ ((𝜑 ∨ 𝜏) ∨ (𝜓 → (𝜒 → 𝜂))))
28	25, 27	mpbi 143	. 2 ⊢ ((𝜑 ∨ 𝜏) ∨ (𝜓 → (𝜒 → 𝜂)))
29		orass 716	. 2 ⊢ (((𝜑 ∨ 𝜏) ∨ (𝜓 → (𝜒 → 𝜂))) ↔ (𝜑 ∨ (𝜏 ∨ (𝜓 → (𝜒 → 𝜂)))))
30	28, 29	mpbi 143	1 ⊢ (𝜑 ∨ (𝜏 ∨ (𝜓 → (𝜒 → 𝜂))))

Syntax hints:   → wi 4   ∧ wa 102   ∨ wo 661

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 662

This theorem depends on definitions:  df-bi 115

This theorem is referenced by:  sbequi  1760