Users' Mathboxes Mathbox for Richard Penner < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ifpim23g Structured version   Visualization version   Unicode version

Theorem ifpim23g 37840
Description: Restate implication as conditional logic operator. (Contributed by RP, 25-Apr-2020.)
Assertion
Ref Expression
ifpim23g  |-  ( ( ( ph  ->  ps ) 
<-> if- ( ch ,  ps ,  -.  ph ) )  <-> 
( ( ( ph  /\ 
ps )  ->  ch )  /\  ( ch  ->  (
ph  \/  ps )
) ) )

Proof of Theorem ifpim23g
StepHypRef Expression
1 ifpidg 37836 . 2  |-  ( ( ( ph  ->  ps ) 
<-> if- ( ch ,  ps ,  -.  ph ) )  <-> 
( ( ( ( ch  /\  ps )  ->  ( ph  ->  ps ) )  /\  (
( ch  /\  ( ph  ->  ps ) )  ->  ps ) )  /\  ( ( -. 
ph  ->  ( ch  \/  ( ph  ->  ps )
) )  /\  (
( ph  ->  ps )  ->  ( ch  \/  -.  ph ) ) ) ) )
2 dfor2 427 . . . . 5  |-  ( (
ph  \/  ps )  <->  ( ( ph  ->  ps )  ->  ps ) )
32imbi2i 326 . . . 4  |-  ( ( ch  ->  ( ph  \/  ps ) )  <->  ( ch  ->  ( ( ph  ->  ps )  ->  ps )
) )
4 impexp 462 . . . 4  |-  ( ( ( ch  /\  ( ph  ->  ps ) )  ->  ps )  <->  ( ch  ->  ( ( ph  ->  ps )  ->  ps )
) )
5 ax-1 6 . . . . . 6  |-  ( ps 
->  ( ph  ->  ps ) )
65adantl 482 . . . . 5  |-  ( ( ch  /\  ps )  ->  ( ph  ->  ps ) )
76biantrur 527 . . . 4  |-  ( ( ( ch  /\  ( ph  ->  ps ) )  ->  ps )  <->  ( (
( ch  /\  ps )  ->  ( ph  ->  ps ) )  /\  (
( ch  /\  ( ph  ->  ps ) )  ->  ps ) ) )
83, 4, 73bitr2i 288 . . 3  |-  ( ( ch  ->  ( ph  \/  ps ) )  <->  ( (
( ch  /\  ps )  ->  ( ph  ->  ps ) )  /\  (
( ch  /\  ( ph  ->  ps ) )  ->  ps ) ) )
9 impexp 462 . . . . 5  |-  ( ( ( ph  /\  ps )  ->  ch )  <->  ( ph  ->  ( ps  ->  ch ) ) )
10 imdi 378 . . . . . 6  |-  ( (
ph  ->  ( ps  ->  ch ) )  <->  ( ( ph  ->  ps )  -> 
( ph  ->  ch )
) )
11 imor 428 . . . . . . . 8  |-  ( (
ph  ->  ch )  <->  ( -.  ph  \/  ch ) )
12 orcom 402 . . . . . . . 8  |-  ( ( -.  ph  \/  ch ) 
<->  ( ch  \/  -.  ph ) )
1311, 12bitri 264 . . . . . . 7  |-  ( (
ph  ->  ch )  <->  ( ch  \/  -.  ph ) )
1413imbi2i 326 . . . . . 6  |-  ( ( ( ph  ->  ps )  ->  ( ph  ->  ch ) )  <->  ( ( ph  ->  ps )  -> 
( ch  \/  -.  ph ) ) )
1510, 14bitri 264 . . . . 5  |-  ( (
ph  ->  ( ps  ->  ch ) )  <->  ( ( ph  ->  ps )  -> 
( ch  \/  -.  ph ) ) )
169, 15bitri 264 . . . 4  |-  ( ( ( ph  /\  ps )  ->  ch )  <->  ( ( ph  ->  ps )  -> 
( ch  \/  -.  ph ) ) )
17 pm2.21 120 . . . . . 6  |-  ( -. 
ph  ->  ( ph  ->  ps ) )
1817olcd 408 . . . . 5  |-  ( -. 
ph  ->  ( ch  \/  ( ph  ->  ps )
) )
1918biantrur 527 . . . 4  |-  ( ( ( ph  ->  ps )  ->  ( ch  \/  -.  ph ) )  <->  ( ( -.  ph  ->  ( ch  \/  ( ph  ->  ps ) ) )  /\  ( ( ph  ->  ps )  ->  ( ch  \/  -.  ph ) ) ) )
2016, 19bitri 264 . . 3  |-  ( ( ( ph  /\  ps )  ->  ch )  <->  ( ( -.  ph  ->  ( ch  \/  ( ph  ->  ps ) ) )  /\  ( ( ph  ->  ps )  ->  ( ch  \/  -.  ph ) ) ) )
218, 20anbi12i 733 . 2  |-  ( ( ( ch  ->  ( ph  \/  ps ) )  /\  ( ( ph  /\ 
ps )  ->  ch ) )  <->  ( (
( ( ch  /\  ps )  ->  ( ph  ->  ps ) )  /\  ( ( ch  /\  ( ph  ->  ps )
)  ->  ps )
)  /\  ( ( -.  ph  ->  ( ch  \/  ( ph  ->  ps ) ) )  /\  ( ( ph  ->  ps )  ->  ( ch  \/  -.  ph ) ) ) ) )
22 ancom 466 . 2  |-  ( ( ( ch  ->  ( ph  \/  ps ) )  /\  ( ( ph  /\ 
ps )  ->  ch ) )  <->  ( (
( ph  /\  ps )  ->  ch )  /\  ( ch  ->  ( ph  \/  ps ) ) ) )
231, 21, 223bitr2i 288 1  |-  ( ( ( ph  ->  ps ) 
<-> if- ( ch ,  ps ,  -.  ph ) )  <-> 
( ( ( ph  /\ 
ps )  ->  ch )  /\  ( ch  ->  (
ph  \/  ps )
) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384  if-wif 1012
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 197  df-or 385  df-an 386  df-ifp 1013
This theorem is referenced by:  ifpim3  37841  ifpim4  37843
  Copyright terms: Public domain W3C validator