Theorem ifpororb 44449

Description: Factor conditional logic operator over disjunction in terms 2 and 3. (Contributed by RP, 21-Apr-2020.)

Assertion

Ref	Expression
ifpororb	⊢ (if-(𝜑, (𝜓 ∨ 𝜒), (𝜃 ∨ 𝜏)) ↔ (if-(𝜑, 𝜓, 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)))

Proof of Theorem ifpororb

Step	Hyp	Ref	Expression
1		dfifp2 1080	. 2 ⊢ (if-(𝜑, (𝜓 ∨ 𝜒), (𝜃 ∨ 𝜏)) ↔ ((𝜑 → (𝜓 ∨ 𝜒)) ∧ (¬ 𝜑 → (𝜃 ∨ 𝜏))))
2		df-or 862	. . . 4 ⊢ ((𝜓 ∨ 𝜒) ↔ (¬ 𝜓 → 𝜒))
3	2	imbi2i 339	. . 3 ⊢ ((𝜑 → (𝜓 ∨ 𝜒)) ↔ (𝜑 → (¬ 𝜓 → 𝜒)))
4		df-or 862	. . . 4 ⊢ ((𝜃 ∨ 𝜏) ↔ (¬ 𝜃 → 𝜏))
5	4	imbi2i 339	. . 3 ⊢ ((¬ 𝜑 → (𝜃 ∨ 𝜏)) ↔ (¬ 𝜑 → (¬ 𝜃 → 𝜏)))
6	3, 5	anbi12i 640	. 2 ⊢ (((𝜑 → (𝜓 ∨ 𝜒)) ∧ (¬ 𝜑 → (𝜃 ∨ 𝜏))) ↔ ((𝜑 → (¬ 𝜓 → 𝜒)) ∧ (¬ 𝜑 → (¬ 𝜃 → 𝜏))))
7		ifpimimb 44448	. . 3 ⊢ (if-(𝜑, (¬ 𝜓 → 𝜒), (¬ 𝜃 → 𝜏)) ↔ (if-(𝜑, ¬ 𝜓, ¬ 𝜃) → if-(𝜑, 𝜒, 𝜏)))
8		dfifp2 1080	. . 3 ⊢ (if-(𝜑, (¬ 𝜓 → 𝜒), (¬ 𝜃 → 𝜏)) ↔ ((𝜑 → (¬ 𝜓 → 𝜒)) ∧ (¬ 𝜑 → (¬ 𝜃 → 𝜏))))
9		imor 867	. . . 4 ⊢ ((if-(𝜑, ¬ 𝜓, ¬ 𝜃) → if-(𝜑, 𝜒, 𝜏)) ↔ (¬ if-(𝜑, ¬ 𝜓, ¬ 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)))
10		ifpnot23d 44429	. . . . 5 ⊢ (¬ if-(𝜑, ¬ 𝜓, ¬ 𝜃) ↔ if-(𝜑, 𝜓, 𝜃))
11	10	orbi1i 927	. . . 4 ⊢ ((¬ if-(𝜑, ¬ 𝜓, ¬ 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)) ↔ (if-(𝜑, 𝜓, 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)))
12	9, 11	bitri 278	. . 3 ⊢ ((if-(𝜑, ¬ 𝜓, ¬ 𝜃) → if-(𝜑, 𝜒, 𝜏)) ↔ (if-(𝜑, 𝜓, 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)))
13	7, 8, 12	3bitr3i 304	. 2 ⊢ (((𝜑 → (¬ 𝜓 → 𝜒)) ∧ (¬ 𝜑 → (¬ 𝜃 → 𝜏))) ↔ (if-(𝜑, 𝜓, 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)))
14	1, 6, 13	3bitri 300	1 ⊢ (if-(𝜑, (𝜓 ∨ 𝜒), (𝜃 ∨ 𝜏)) ↔ (if-(𝜑, 𝜓, 𝜃) ∨ if-(𝜑, 𝜒, 𝜏)))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861  if-wif 1078

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-ifp 1079

This theorem is used by:  ifpananb  44450