Theorem ifpidg 44450

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 1082	. . 3 ⊢ (if-(𝜑, 𝜓, 𝜒) ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)))
2	1	bibi2i 340	. 2 ⊢ ((𝜃 ↔ if-(𝜑, 𝜓, 𝜒)) ↔ (𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))))
3		dfbi2 480	. . 3 ⊢ ((𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ∧ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃)))
4		imor 867	. . . . 5 ⊢ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ (¬ 𝜃 ∨ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))))
5		ordi 1023	. . . . 5 ⊢ ((¬ 𝜃 ∨ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ∧ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒))))
6		ancomst 470	. . . . . . 7 ⊢ (((𝜑 ∧ 𝜃) → 𝜓) ↔ ((𝜃 ∧ 𝜑) → 𝜓))
7		impexp 456	. . . . . . 7 ⊢ (((𝜃 ∧ 𝜑) → 𝜓) ↔ (𝜃 → (𝜑 → 𝜓)))
8		imor 867	. . . . . . . . 9 ⊢ ((𝜑 → 𝜓) ↔ (¬ 𝜑 ∨ 𝜓))
9	8	imbi2i 339	. . . . . . . 8 ⊢ ((𝜃 → (𝜑 → 𝜓)) ↔ (𝜃 → (¬ 𝜑 ∨ 𝜓)))
10		imor 867	. . . . . . . 8 ⊢ ((𝜃 → (¬ 𝜑 ∨ 𝜓)) ↔ (¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)))
11	9, 10	bitri 278	. . . . . . 7 ⊢ ((𝜃 → (𝜑 → 𝜓)) ↔ (¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)))
12	6, 7, 11	3bitrri 301	. . . . . 6 ⊢ ((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ↔ ((𝜑 ∧ 𝜃) → 𝜓))
13		imor 867	. . . . . . 7 ⊢ ((𝜃 → (𝜑 ∨ 𝜒)) ↔ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒)))
14	13	bicomi 227	. . . . . 6 ⊢ ((¬ 𝜃 ∨ (𝜑 ∨ 𝜒)) ↔ (𝜃 → (𝜑 ∨ 𝜒)))
15	12, 14	anbi12i 640	. . . . 5 ⊢ (((¬ 𝜃 ∨ (¬ 𝜑 ∨ 𝜓)) ∧ (¬ 𝜃 ∨ (𝜑 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))))
16	4, 5, 15	3bitri 300	. . . 4 ⊢ ((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))))
17	8	bicomi 227	. . . . . . . 8 ⊢ ((¬ 𝜑 ∨ 𝜓) ↔ (𝜑 → 𝜓))
18		df-or 862	. . . . . . . 8 ⊢ ((𝜑 ∨ 𝜒) ↔ (¬ 𝜑 → 𝜒))
19	17, 18	anbi12i 640	. . . . . . 7 ⊢ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) ↔ ((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)))
20		cases2 1063	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) ↔ ((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)))
21	20	bicomi 227	. . . . . . 7 ⊢ (((𝜑 → 𝜓) ∧ (¬ 𝜑 → 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)))
22	19, 21	bitri 278	. . . . . 6 ⊢ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) ↔ ((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)))
23	22	imbi1i 352	. . . . 5 ⊢ ((((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) → 𝜃))
24		jaob 976	. . . . 5 ⊢ ((((𝜑 ∧ 𝜓) ∨ (¬ 𝜑 ∧ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ ((¬ 𝜑 ∧ 𝜒) → 𝜃)))
25		ancomst 470	. . . . . . 7 ⊢ (((¬ 𝜑 ∧ 𝜒) → 𝜃) ↔ ((𝜒 ∧ ¬ 𝜑) → 𝜃))
26		pm5.6 1017	. . . . . . 7 ⊢ (((𝜒 ∧ ¬ 𝜑) → 𝜃) ↔ (𝜒 → (𝜑 ∨ 𝜃)))
27	25, 26	bitri 278	. . . . . 6 ⊢ (((¬ 𝜑 ∧ 𝜒) → 𝜃) ↔ (𝜒 → (𝜑 ∨ 𝜃)))
28	27	anbi2i 635	. . . . 5 ⊢ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((¬ 𝜑 ∧ 𝜒) → 𝜃)) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))))
29	23, 24, 28	3bitri 300	. . . 4 ⊢ ((((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃) ↔ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))))
30	16, 29	anbi12i 640	. . 3 ⊢ (((𝜃 → ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ∧ (((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒)) → 𝜃)) ↔ ((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))))
31	3, 30	bitri 278	. 2 ⊢ ((𝜃 ↔ ((¬ 𝜑 ∨ 𝜓) ∧ (𝜑 ∨ 𝜒))) ↔ ((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))))
32		ancom 466	. . 3 ⊢ (((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))) ∧ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
33		an4 669	. . 3 ⊢ (((((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃))) ∧ (((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
34	32, 33	bitri 278	. 2 ⊢ (((((𝜑 ∧ 𝜃) → 𝜓) ∧ (𝜃 → (𝜑 ∨ 𝜒))) ∧ (((𝜑 ∧ 𝜓) → 𝜃) ∧ (𝜒 → (𝜑 ∨ 𝜃)))) ↔ ((((𝜑 ∧ 𝜓) → 𝜃) ∧ ((𝜑 ∧ 𝜃) → 𝜓)) ∧ ((𝜒 → (𝜑 ∨ 𝜃)) ∧ (𝜃 → (𝜑 ∨ 𝜒)))))
35	2, 31, 34	3bitri 300	1 ⊢ ((𝜃 ↔ 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:  ifpid3g  44451  ifpid2g  44452  ifpid1g  44453  ifpim23g  44454