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

Theorem ifp1bi 37847
Description: Substitute the first element of conditional logical operator. (Contributed by RP, 20-Apr-2020.)
Assertion
Ref Expression
ifp1bi  |-  ( (if- ( ph ,  ch ,  th )  <-> if- ( ps ,  ch ,  th )
)  <->  ( ( ( ( ph  ->  ps )  \/  ( ch  ->  th ) )  /\  ( ( ph  ->  ps )  \/  ( th 
->  ch ) ) )  /\  ( ( ( ps  ->  ph )  \/  ( ch  ->  th )
)  /\  ( ( ps  ->  ph )  \/  ( th  ->  ch ) ) ) ) )

Proof of Theorem ifp1bi
StepHypRef Expression
1 dfbi2 660 . 2  |-  ( (if- ( ph ,  ch ,  th )  <-> if- ( ps ,  ch ,  th )
)  <->  ( (if- (
ph ,  ch ,  th )  -> if- ( ps ,  ch ,  th ) )  /\  (if- ( ps ,  ch ,  th )  -> if- ( ph ,  ch ,  th )
) ) )
2 ifpim1g 37846 . . . 4  |-  ( (if- ( ph ,  ch ,  th )  -> if- ( ps ,  ch ,  th ) )  <->  ( (
( ps  ->  ph )  \/  ( th  ->  ch ) )  /\  (
( ph  ->  ps )  \/  ( ch  ->  th )
) ) )
3 ancom 466 . . . 4  |-  ( ( ( ( ps  ->  ph )  \/  ( th 
->  ch ) )  /\  ( ( ph  ->  ps )  \/  ( ch 
->  th ) ) )  <-> 
( ( ( ph  ->  ps )  \/  ( ch  ->  th ) )  /\  ( ( ps  ->  ph )  \/  ( th 
->  ch ) ) ) )
42, 3bitri 264 . . 3  |-  ( (if- ( ph ,  ch ,  th )  -> if- ( ps ,  ch ,  th ) )  <->  ( (
( ph  ->  ps )  \/  ( ch  ->  th )
)  /\  ( ( ps  ->  ph )  \/  ( th  ->  ch ) ) ) )
5 ifpim1g 37846 . . 3  |-  ( (if- ( ps ,  ch ,  th )  -> if- ( ph ,  ch ,  th )
)  <->  ( ( (
ph  ->  ps )  \/  ( th  ->  ch ) )  /\  (
( ps  ->  ph )  \/  ( ch  ->  th )
) ) )
64, 5anbi12i 733 . 2  |-  ( ( (if- ( ph ,  ch ,  th )  -> if- ( ps ,  ch ,  th ) )  /\  (if- ( ps ,  ch ,  th )  -> if- ( ph ,  ch ,  th )
) )  <->  ( (
( ( ph  ->  ps )  \/  ( ch 
->  th ) )  /\  ( ( ps  ->  ph )  \/  ( th 
->  ch ) ) )  /\  ( ( (
ph  ->  ps )  \/  ( th  ->  ch ) )  /\  (
( ps  ->  ph )  \/  ( ch  ->  th )
) ) ) )
7 an42 866 . 2  |-  ( ( ( ( ( ph  ->  ps )  \/  ( ch  ->  th ) )  /\  ( ( ps  ->  ph )  \/  ( th 
->  ch ) ) )  /\  ( ( (
ph  ->  ps )  \/  ( th  ->  ch ) )  /\  (
( ps  ->  ph )  \/  ( ch  ->  th )
) ) )  <->  ( (
( ( ph  ->  ps )  \/  ( ch 
->  th ) )  /\  ( ( ph  ->  ps )  \/  ( th 
->  ch ) ) )  /\  ( ( ( ps  ->  ph )  \/  ( ch  ->  th )
)  /\  ( ( ps  ->  ph )  \/  ( th  ->  ch ) ) ) ) )
81, 6, 73bitri 286 1  |-  ( (if- ( ph ,  ch ,  th )  <-> if- ( ps ,  ch ,  th )
)  <->  ( ( ( ( ph  ->  ps )  \/  ( ch  ->  th ) )  /\  ( ( ph  ->  ps )  \/  ( th 
->  ch ) ) )  /\  ( ( ( ps  ->  ph )  \/  ( ch  ->  th )
)  /\  ( ( ps  ->  ph )  \/  ( th  ->  ch ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> 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: (None)
  Copyright terms: Public domain W3C validator