Theorem ifpim2 36835

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

Assertion

Ref	Expression
ifpim2	⊢ ((𝜑 → 𝜓) ↔ if-(𝜓, ⊤, ¬ 𝜑))

Proof of Theorem ifpim2

Step	Hyp	Ref	Expression
1		tru 1479	. . . 4 ⊢ ⊤
2	1	olci 405	. . 3 ⊢ (¬ 𝜓 ∨ ⊤)
3	2	biantrur 526	. 2 ⊢ ((𝜓 ∨ ¬ 𝜑) ↔ ((¬ 𝜓 ∨ ⊤) ∧ (𝜓 ∨ ¬ 𝜑)))
4		imor 427	. . 3 ⊢ ((𝜑 → 𝜓) ↔ (¬ 𝜑 ∨ 𝜓))
5		orcom 401	. . 3 ⊢ ((¬ 𝜑 ∨ 𝜓) ↔ (𝜓 ∨ ¬ 𝜑))
6	4, 5	bitri 263	. 2 ⊢ ((𝜑 → 𝜓) ↔ (𝜓 ∨ ¬ 𝜑))
7		dfifp4 1010	. 2 ⊢ (if-(𝜓, ⊤, ¬ 𝜑) ↔ ((¬ 𝜓 ∨ ⊤) ∧ (𝜓 ∨ ¬ 𝜑)))
8	3, 6, 7	3bitr4i 291	1 ⊢ ((𝜑 → 𝜓) ↔ if-(𝜓, ⊤, ¬ 𝜑))

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

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  df-tru 1478

This theorem is referenced by:  ifpdfbi  36837