Theorem ifpdfxor 43505

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 1516	. 2 ⊢ ((𝜑 ⊻ 𝜓) ↔ ((𝜑 ∨ 𝜓) ∧ ¬ (𝜑 ∧ 𝜓)))
2		ifpdfor 43483	. . 3 ⊢ ((𝜑 ∨ 𝜓) ↔ if-(𝜑, ⊤, 𝜓))
3		ifpnot23 43496	. . . 4 ⊢ (¬ if-(𝜑, 𝜓, ⊥) ↔ if-(𝜑, ¬ 𝜓, ¬ ⊥))
4		ifpdfan 43484	. . . 4 ⊢ ((𝜑 ∧ 𝜓) ↔ if-(𝜑, 𝜓, ⊥))
5	3, 4	xchnxbir 333	. . 3 ⊢ (¬ (𝜑 ∧ 𝜓) ↔ if-(𝜑, ¬ 𝜓, ¬ ⊥))
6	2, 5	anbi12i 628	. 2 ⊢ (((𝜑 ∨ 𝜓) ∧ ¬ (𝜑 ∧ 𝜓)) ↔ (if-(𝜑, ⊤, 𝜓) ∧ if-(𝜑, ¬ 𝜓, ¬ ⊥)))
7		ifpan23 43478	. . 3 ⊢ ((if-(𝜑, ⊤, 𝜓) ∧ if-(𝜑, ¬ 𝜓, ¬ ⊥)) ↔ if-(𝜑, (⊤ ∧ ¬ 𝜓), (𝜓 ∧ ¬ ⊥)))
8		truan 1550	. . . 4 ⊢ ((⊤ ∧ ¬ 𝜓) ↔ ¬ 𝜓)
9		fal 1553	. . . . . 6 ⊢ ¬ ⊥
10	9	biantru 529	. . . . 5 ⊢ (𝜓 ↔ (𝜓 ∧ ¬ ⊥))
11	10	bicomi 224	. . . 4 ⊢ ((𝜓 ∧ ¬ ⊥) ↔ 𝜓)
12		ifpbi23 43491	. . . 4 ⊢ ((((⊤ ∧ ¬ 𝜓) ↔ ¬ 𝜓) ∧ ((𝜓 ∧ ¬ ⊥) ↔ 𝜓)) → (if-(𝜑, (⊤ ∧ ¬ 𝜓), (𝜓 ∧ ¬ ⊥)) ↔ if-(𝜑, ¬ 𝜓, 𝜓)))
13	8, 11, 12	mp2an 692	. . 3 ⊢ (if-(𝜑, (⊤ ∧ ¬ 𝜓), (𝜓 ∧ ¬ ⊥)) ↔ if-(𝜑, ¬ 𝜓, 𝜓))
14	7, 13	bitri 275	. 2 ⊢ ((if-(𝜑, ⊤, 𝜓) ∧ if-(𝜑, ¬ 𝜓, ¬ ⊥)) ↔ if-(𝜑, ¬ 𝜓, 𝜓))
15	1, 6, 14	3bitri 297	1 ⊢ ((𝜑 ⊻ 𝜓) ↔ if-(𝜑, ¬ 𝜓, 𝜓))

Syntax hints:  ¬ wn 3   ↔ wb 206   ∧ wa 395   ∨ wo 847  if-wif 1062   ⊻ wxo 1510  ⊤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 207  df-an 396  df-or 848  df-ifp 1063  df-xor 1511  df-tru 1542  df-fal 1552

This theorem is referenced by: (None)