Theorem ifpidg 36855

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 1010	. . 3 ⊢ (if-(𝜑, 𝜓, 𝜒) ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)))
2	1	bibi2i 326	. 2 ⊢ ((𝜃 ↔ if-(𝜑, 𝜓, 𝜒)) ↔ (𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))))
3		dfbi2 658	. . 3 ⊢ ((𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ∧ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃)))
4		imor 427	. . . . 5 ⊢ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ (¬ 𝜃 ∨ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))))
5		ordi 904	. . . . 5 ⊢ ((¬ 𝜃 ∨ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ∧ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒))))
6		ancomst 467	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜃) → 𝜓) ↔ ((𝜃 ∧ 𝜑) → 𝜓))
7		impexp 461	. . . . . . 7 ⊢ (((𝜃 ∧ 𝜑) → 𝜓) ↔ (𝜃 → (𝜑 → 𝜓)))
8		imor 427	. . . . . . . . 9 ⊢ ((𝜑 → 𝜓) ↔ (¬ 𝜑 ∨ 𝜓))
9	8	imbi2i 325	. . . . . . . 8 ⊢ ((𝜃 → (𝜑 → 𝜓)) ↔ (𝜃 → (¬ 𝜑 ∨ 𝜓)))
10		imor 427	. . . . . . . 8 ⊢ ((𝜃 → (¬ 𝜑 ∨ 𝜓)) ↔ (¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)))
11	9, 10	bitri 263	. . . . . . 7 ⊢ ((𝜃 → (𝜑 → 𝜓)) ↔ (¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)))
12	6, 7, 11	3bitrri 286	. . . . . 6 ⊢ ((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ↔ ((𝜑 ∧ 𝜃) → 𝜓))
13		imor 427	. . . . . . 7 ⊢ ((𝜃 → (𝜑 ∨ 𝜒)) ↔ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒)))
14	13	bicomi 213	. . . . . 6 ⊢ ((¬ 𝜃 ∨ (𝜑 ∨ 𝜒)) ↔ (𝜃 → (𝜑 ∨ 𝜒)))
15	12, 14	anbi12i 729	. . . . 5 ⊢ (((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ∧ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))))
16	4, 5, 15	3bitri 285	. . . 4 ⊢ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))))
17	8	bicomi 213	. . . . . . . 8 ⊢ ((¬ 𝜑 ∨ 𝜓) ↔ (𝜑 → 𝜓))
18		df-or 384	. . . . . . . 8 ⊢ ((𝜑 ∨ 𝜒) ↔ (¬ 𝜑 → 𝜒))
19	17, 18	anbi12i 729	. . . . . . 7 ⊢ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) ↔ ((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)))
20		cases2 1005	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) ↔ ((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)))
21	20	bicomi 213	. . . . . . 7 ⊢ (((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)))
22	19, 21	bitri 263	. . . . . 6 ⊢ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)))
23	22	imbi1i 338	. . . . 5 ⊢ ((((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) → 𝜃))
24		jaob 818	. . . . 5 ⊢ ((((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ ((¬ 𝜑 ∧ 𝜒) → 𝜃)))
25		ancomst 467	. . . . . . 7 ⊢ (((¬ 𝜑 ∧ 𝜒) → 𝜃) ↔ ((𝜒 ∧ ¬ 𝜑) → 𝜃))
26		pm5.6 949	. . . . . . 7 ⊢ (((𝜒 ∧ ¬ 𝜑) → 𝜃) ↔ (𝜒 → (𝜑 ∨ 𝜃)))
27	25, 26	bitri 263	. . . . . 6 ⊢ (((¬ 𝜑 ∧ 𝜒) → 𝜃) ↔ (𝜒 → (𝜑 ∨ 𝜃)))
28	27	anbi2i 726	. . . . 5 ⊢ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((¬ 𝜑 ∧ 𝜒) → 𝜃)) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))))
29	23, 24, 28	3bitri 285	. . . 4 ⊢ ((((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))))
30	16, 29	anbi12i 729	. . 3 ⊢ (((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ∧ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃)) ↔ ((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))))
31	3, 30	bitri 263	. 2 ⊢ ((𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))))
32		ancom 465	. . 3 ⊢ (((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))) ∧ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
33		an4 861	. . 3 ⊢ (((((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))) ∧ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
34	32, 33	bitri 263	. 2 ⊢ (((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
35	2, 31, 34	3bitri 285	1 ⊢ ((𝜃 ↔ if-(𝜑, 𝜓, 𝜒)) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∨ wo 382   ∧ wa 383  if-wif 1006

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 196  df-or 384  df-an 385  df-ifp 1007

This theorem is referenced by:  ifpid3g  36856  ifpid2g  36857  ifpid1g  36858  ifpim23g  36859