Theorem ifpdfxor 40992

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

Assertion

Ref	Expression
ifpdfxor	⊢ ((𝜑 ⊻ 𝜓) ↔ if-(𝜑, ¬ 𝜓, 𝜓))

Proof of Theorem ifpdfxor

Step	Hyp	Ref	Expression
1		xor2 1510	. 2 ⊢ ((𝜑 ⊻ 𝜓) ↔ ((𝜑 ∨ 𝜓) ∧ ¬ (𝜑 ∧ 𝜓)))
2		ifpdfor 40970	. . 3 ⊢ ((𝜑 ∨ 𝜓) ↔ if-(𝜑, ⊤, 𝜓))
3		ifpnot23 40983	. . . 4 ⊢ (¬ if-(𝜑, 𝜓, ⊥) ↔ if-(𝜑, ¬ 𝜓, ¬ ⊥))
4		ifpdfan 40971	. . . 4 ⊢ ((𝜑 ∧ 𝜓) ↔ if-(𝜑, 𝜓, ⊥))
5	3, 4	xchnxbir 332	. . 3 ⊢ (¬ (𝜑 ∧ 𝜓) ↔ if-(𝜑, ¬ 𝜓, ¬ ⊥))
6	2, 5	anbi12i 626	. 2 ⊢ (((𝜑 ∨ 𝜓) ∧ ¬ (𝜑 ∧ 𝜓)) ↔ (if-(𝜑, ⊤, 𝜓) ∧ if-(𝜑, ¬ 𝜓, ¬ ⊥)))
7		ifpan23 40965	. . 3 ⊢ ((if-(𝜑, ⊤, 𝜓) ∧ if-(𝜑, ¬ 𝜓, ¬ ⊥)) ↔ if-(𝜑, (⊤ ∧ ¬ 𝜓), (𝜓 ∧ ¬ ⊥)))
8		truan 1550	. . . 4 ⊢ ((⊤ ∧ ¬ 𝜓) ↔ ¬ 𝜓)
9		fal 1553	. . . . . 6 ⊢ ¬ ⊥
10	9	biantru 529	. . . . 5 ⊢ (𝜓 ↔ (𝜓 ∧ ¬ ⊥))
11	10	bicomi 223	. . . 4 ⊢ ((𝜓 ∧ ¬ ⊥) ↔ 𝜓)
12		ifpbi23 40978	. . . 4 ⊢ ((((⊤ ∧ ¬ 𝜓) ↔ ¬ 𝜓) ∧ ((𝜓 ∧ ¬ ⊥) ↔ 𝜓)) → (if-(𝜑, (⊤ ∧ ¬ 𝜓), (𝜓 ∧ ¬ ⊥)) ↔ if-(𝜑, ¬ 𝜓, 𝜓)))
13	8, 11, 12	mp2an 688	. . 3 ⊢ (if-(𝜑, (⊤ ∧ ¬ 𝜓), (𝜓 ∧ ¬ ⊥)) ↔ if-(𝜑, ¬ 𝜓, 𝜓))
14	7, 13	bitri 274	. 2 ⊢ ((if-(𝜑, ⊤, 𝜓) ∧ if-(𝜑, ¬ 𝜓, ¬ ⊥)) ↔ if-(𝜑, ¬ 𝜓, 𝜓))
15	1, 6, 14	3bitri 296	1 ⊢ ((𝜑 ⊻ 𝜓) ↔ if-(𝜑, ¬ 𝜓, 𝜓))

Syntax hints:  ¬ wn 3   ↔ wb 205   ∧ wa 395   ∨ wo 843  if-wif 1059   ⊻ wxo 1503  ⊤wtru 1540  ⊥wfal 1551

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 396  df-or 844  df-ifp 1060  df-xor 1504  df-tru 1542  df-fal 1552

This theorem is referenced by: (None)