Users' Mathboxes Mathbox for Wolf Lammen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  wl-ifpimpr Structured version   Visualization version   GIF version

Theorem wl-ifpimpr 35685
Description: If one case of an if- condition is a consequence of the other, the expression in df-ifp 1062 can be shortened. (Contributed by Wolf Lammen, 12-Jun-2024.)
Assertion
Ref Expression
wl-ifpimpr ((𝜒𝜓) → (if-(𝜑, 𝜓, 𝜒) ↔ ((𝜑𝜓) ∨ 𝜒)))

Proof of Theorem wl-ifpimpr
StepHypRef Expression
1 pm4.72 948 . . . . . . 7 ((𝜒𝜓) ↔ (𝜓 ↔ (𝜒𝜓)))
21biimpi 215 . . . . . 6 ((𝜒𝜓) → (𝜓 ↔ (𝜒𝜓)))
3 orcom 868 . . . . . 6 ((𝜒𝜓) ↔ (𝜓𝜒))
42, 3bitrdi 287 . . . . 5 ((𝜒𝜓) → (𝜓 ↔ (𝜓𝜒)))
54anbi2d 630 . . . 4 ((𝜒𝜓) → ((𝜑𝜓) ↔ (𝜑 ∧ (𝜓𝜒))))
6 andi 1006 . . . 4 ((𝜑 ∧ (𝜓𝜒)) ↔ ((𝜑𝜓) ∨ (𝜑𝜒)))
75, 6bitrdi 287 . . 3 ((𝜒𝜓) → ((𝜑𝜓) ↔ ((𝜑𝜓) ∨ (𝜑𝜒))))
87orbi1d 915 . 2 ((𝜒𝜓) → (((𝜑𝜓) ∨ (¬ 𝜑𝜒)) ↔ (((𝜑𝜓) ∨ (𝜑𝜒)) ∨ (¬ 𝜑𝜒))))
9 df-ifp 1062 . 2 (if-(𝜑, 𝜓, 𝜒) ↔ ((𝜑𝜓) ∨ (¬ 𝜑𝜒)))
10 biidd 262 . . . . 5 (𝜑 → (𝜒𝜒))
11 biidd 262 . . . . 5 𝜑 → (𝜒𝜒))
1210, 11cases 1041 . . . 4 (𝜒 ↔ ((𝜑𝜒) ∨ (¬ 𝜑𝜒)))
1312orbi2i 911 . . 3 (((𝜑𝜓) ∨ 𝜒) ↔ ((𝜑𝜓) ∨ ((𝜑𝜒) ∨ (¬ 𝜑𝜒))))
14 orass 920 . . 3 ((((𝜑𝜓) ∨ (𝜑𝜒)) ∨ (¬ 𝜑𝜒)) ↔ ((𝜑𝜓) ∨ ((𝜑𝜒) ∨ (¬ 𝜑𝜒))))
1513, 14bitr4i 278 . 2 (((𝜑𝜓) ∨ 𝜒) ↔ (((𝜑𝜓) ∨ (𝜑𝜒)) ∨ (¬ 𝜑𝜒)))
168, 9, 153bitr4g 314 1 ((𝜒𝜓) → (if-(𝜑, 𝜓, 𝜒) ↔ ((𝜑𝜓) ∨ 𝜒)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 397  wo 845  if-wif 1061
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 398  df-or 846  df-ifp 1062
This theorem is referenced by:  wl-ifp4impr  35686  wl-df2-3mintru2  35704
  Copyright terms: Public domain W3C validator