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

Theorem ifpimimb 37849
Description: Factor conditional logic operator over implication in terms 2 and 3. (Contributed by RP, 21-Apr-2020.)
Assertion
Ref Expression
ifpimimb  |-  (if- (
ph ,  ( ps 
->  ch ) ,  ( th  ->  ta )
)  <->  (if- ( ph ,  ps ,  th )  -> if- ( ph ,  ch ,  ta ) ) )

Proof of Theorem ifpimimb
StepHypRef Expression
1 dfifp2 1014 . 2  |-  (if- (
ph ,  ( ps 
->  ch ) ,  ( th  ->  ta )
)  <->  ( ( ph  ->  ( ps  ->  ch ) )  /\  ( -.  ph  ->  ( th  ->  ta ) ) ) )
2 imor 428 . . . 4  |-  ( (
ph  ->  ( ps  ->  ch ) )  <->  ( -.  ph  \/  ( ps  ->  ch ) ) )
3 pm4.8 380 . . . . . 6  |-  ( (
ph  ->  -.  ph )  <->  -.  ph )
43bicomi 214 . . . . 5  |-  ( -. 
ph 
<->  ( ph  ->  -.  ph ) )
54orbi1i 542 . . . 4  |-  ( ( -.  ph  \/  ( ps  ->  ch ) )  <-> 
( ( ph  ->  -. 
ph )  \/  ( ps  ->  ch ) ) )
6 id 22 . . . . . 6  |-  ( ph  ->  ph )
76orci 405 . . . . 5  |-  ( (
ph  ->  ph )  \/  ( th  ->  ch ) )
87biantru 526 . . . 4  |-  ( ( ( ph  ->  -.  ph )  \/  ( ps 
->  ch ) )  <->  ( (
( ph  ->  -.  ph )  \/  ( ps  ->  ch ) )  /\  ( ( ph  ->  ph )  \/  ( th 
->  ch ) ) ) )
92, 5, 83bitri 286 . . 3  |-  ( (
ph  ->  ( ps  ->  ch ) )  <->  ( (
( ph  ->  -.  ph )  \/  ( ps  ->  ch ) )  /\  ( ( ph  ->  ph )  \/  ( th 
->  ch ) ) ) )
10 pm4.64 387 . . . 4  |-  ( ( -.  ph  ->  ( th 
->  ta ) )  <->  ( ph  \/  ( th  ->  ta ) ) )
11 pm4.81 381 . . . . . 6  |-  ( ( -.  ph  ->  ph )  <->  ph )
1211bicomi 214 . . . . 5  |-  ( ph  <->  ( -.  ph  ->  ph )
)
1312orbi1i 542 . . . 4  |-  ( (
ph  \/  ( th  ->  ta ) )  <->  ( ( -.  ph  ->  ph )  \/  ( th  ->  ta ) ) )
146orci 405 . . . . 5  |-  ( (
ph  ->  ph )  \/  ( ps  ->  ta ) )
1514biantrur 527 . . . 4  |-  ( ( ( -.  ph  ->  ph )  \/  ( th 
->  ta ) )  <->  ( (
( ph  ->  ph )  \/  ( ps  ->  ta ) )  /\  (
( -.  ph  ->  ph )  \/  ( th 
->  ta ) ) ) )
1610, 13, 153bitri 286 . . 3  |-  ( ( -.  ph  ->  ( th 
->  ta ) )  <->  ( (
( ph  ->  ph )  \/  ( ps  ->  ta ) )  /\  (
( -.  ph  ->  ph )  \/  ( th 
->  ta ) ) ) )
179, 16anbi12i 733 . 2  |-  ( ( ( ph  ->  ( ps  ->  ch ) )  /\  ( -.  ph  ->  ( th  ->  ta ) ) )  <->  ( (
( ( ph  ->  -. 
ph )  \/  ( ps  ->  ch ) )  /\  ( ( ph  ->  ph )  \/  ( th  ->  ch ) ) )  /\  ( ( ( ph  ->  ph )  \/  ( ps  ->  ta ) )  /\  (
( -.  ph  ->  ph )  \/  ( th 
->  ta ) ) ) ) )
18 ifpim123g 37845 . . 3  |-  ( (if- ( ph ,  ps ,  th )  -> if- ( ph ,  ch ,  ta )
)  <->  ( ( ( ( ph  ->  -.  ph )  \/  ( ps 
->  ch ) )  /\  ( ( ph  ->  ph )  \/  ( th 
->  ch ) ) )  /\  ( ( (
ph  ->  ph )  \/  ( ps  ->  ta ) )  /\  ( ( -. 
ph  ->  ph )  \/  ( th  ->  ta ) ) ) ) )
1918bicomi 214 . 2  |-  ( ( ( ( ( ph  ->  -.  ph )  \/  ( ps  ->  ch ) )  /\  (
( ph  ->  ph )  \/  ( th  ->  ch ) ) )  /\  ( ( ( ph  ->  ph )  \/  ( ps  ->  ta ) )  /\  ( ( -. 
ph  ->  ph )  \/  ( th  ->  ta ) ) ) )  <->  (if- ( ph ,  ps ,  th )  -> if- ( ph ,  ch ,  ta )
) )
201, 17, 193bitri 286 1  |-  (if- (
ph ,  ( ps 
->  ch ) ,  ( th  ->  ta )
)  <->  (if- ( ph ,  ps ,  th )  -> if- ( ph ,  ch ,  ta ) ) )
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:  ifpororb  37850  ifpbibib  37855
  Copyright terms: Public domain W3C validator