Theorem ifpidg 41098

Description: Restate wff as conditional logic operator. (Contributed by RP, 20-Apr-2020.)

Assertion

Ref	Expression
ifpidg	⊢ ((𝜃 ↔ if-(𝜑, 𝜓, 𝜒)) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))

Proof of Theorem ifpidg

Step	Hyp	Ref	Expression
1		dfifp4 1064	. . 3 ⊢ (if-(𝜑, 𝜓, 𝜒) ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)))
2	1	bibi2i 338	. 2 ⊢ ((𝜃 ↔ if-(𝜑, 𝜓, 𝜒)) ↔ (𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))))
3		dfbi2 475	. . 3 ⊢ ((𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ∧ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃)))
4		imor 850	. . . . 5 ⊢ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ (¬ 𝜃 ∨ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))))
5		ordi 1003	. . . . 5 ⊢ ((¬ 𝜃 ∨ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ∧ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒))))
6		ancomst 465	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜃) → 𝜓) ↔ ((𝜃 ∧ 𝜑) → 𝜓))
7		impexp 451	. . . . . . 7 ⊢ (((𝜃 ∧ 𝜑) → 𝜓) ↔ (𝜃 → (𝜑 → 𝜓)))
8		imor 850	. . . . . . . . 9 ⊢ ((𝜑 → 𝜓) ↔ (¬ 𝜑 ∨ 𝜓))
9	8	imbi2i 336	. . . . . . . 8 ⊢ ((𝜃 → (𝜑 → 𝜓)) ↔ (𝜃 → (¬ 𝜑 ∨ 𝜓)))
10		imor 850	. . . . . . . 8 ⊢ ((𝜃 → (¬ 𝜑 ∨ 𝜓)) ↔ (¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)))
11	9, 10	bitri 274	. . . . . . 7 ⊢ ((𝜃 → (𝜑 → 𝜓)) ↔ (¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)))
12	6, 7, 11	3bitrri 298	. . . . . 6 ⊢ ((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ↔ ((𝜑 ∧ 𝜃) → 𝜓))
13		imor 850	. . . . . . 7 ⊢ ((𝜃 → (𝜑 ∨ 𝜒)) ↔ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒)))
14	13	bicomi 223	. . . . . 6 ⊢ ((¬ 𝜃 ∨ (𝜑 ∨ 𝜒)) ↔ (𝜃 → (𝜑 ∨ 𝜒)))
15	12, 14	anbi12i 627	. . . . 5 ⊢ (((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ∧ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))))
16	4, 5, 15	3bitri 297	. . . 4 ⊢ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))))
17	8	bicomi 223	. . . . . . . 8 ⊢ ((¬ 𝜑 ∨ 𝜓) ↔ (𝜑 → 𝜓))
18		df-or 845	. . . . . . . 8 ⊢ ((𝜑 ∨ 𝜒) ↔ (¬ 𝜑 → 𝜒))
19	17, 18	anbi12i 627	. . . . . . 7 ⊢ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) ↔ ((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)))
20		cases2 1045	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) ↔ ((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)))
21	20	bicomi 223	. . . . . . 7 ⊢ (((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)))
22	19, 21	bitri 274	. . . . . 6 ⊢ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)))
23	22	imbi1i 350	. . . . 5 ⊢ ((((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) → 𝜃))
24		jaob 959	. . . . 5 ⊢ ((((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ ((¬ 𝜑 ∧ 𝜒) → 𝜃)))
25		ancomst 465	. . . . . . 7 ⊢ (((¬ 𝜑 ∧ 𝜒) → 𝜃) ↔ ((𝜒 ∧ ¬ 𝜑) → 𝜃))
26		pm5.6 999	. . . . . . 7 ⊢ (((𝜒 ∧ ¬ 𝜑) → 𝜃) ↔ (𝜒 → (𝜑 ∨ 𝜃)))
27	25, 26	bitri 274	. . . . . 6 ⊢ (((¬ 𝜑 ∧ 𝜒) → 𝜃) ↔ (𝜒 → (𝜑 ∨ 𝜃)))
28	27	anbi2i 623	. . . . 5 ⊢ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((¬ 𝜑 ∧ 𝜒) → 𝜃)) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))))
29	23, 24, 28	3bitri 297	. . . 4 ⊢ ((((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))))
30	16, 29	anbi12i 627	. . 3 ⊢ (((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ∧ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃)) ↔ ((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))))
31	3, 30	bitri 274	. 2 ⊢ ((𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))))
32		ancom 461	. . 3 ⊢ (((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))) ∧ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
33		an4 653	. . 3 ⊢ (((((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))) ∧ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
34	32, 33	bitri 274	. 2 ⊢ (((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
35	2, 31, 34	3bitri 297	1 ⊢ ((𝜃 ↔ if-(𝜑, 𝜓, 𝜒)) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 844  if-wif 1060

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-ifp 1061

This theorem is referenced by:  ifpid3g  41099  ifpid2g  41100  ifpid1g  41101  ifpim23g  41102