Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  elim2ifim Structured version   Visualization version   Unicode version

Theorem elim2ifim 29364
Description: Elimination of two conditional operators for an implication. (Contributed by Thierry Arnoux, 25-Jan-2017.)
Hypotheses
Ref Expression
elim2if.1  |-  ( if ( ph ,  A ,  if ( ps ,  B ,  C )
)  =  A  -> 
( ch  <->  th )
)
elim2if.2  |-  ( if ( ph ,  A ,  if ( ps ,  B ,  C )
)  =  B  -> 
( ch  <->  ta )
)
elim2if.3  |-  ( if ( ph ,  A ,  if ( ps ,  B ,  C )
)  =  C  -> 
( ch  <->  et )
)
elim2ifim.1  |-  ( ph  ->  th )
elim2ifim.2  |-  ( ( -.  ph  /\  ps )  ->  ta )
elim2ifim.3  |-  ( ( -.  ph  /\  -.  ps )  ->  et )
Assertion
Ref Expression
elim2ifim  |-  ch

Proof of Theorem elim2ifim
StepHypRef Expression
1 exmid 431 . . 3  |-  ( ph  \/  -.  ph )
2 elim2ifim.1 . . . . 5  |-  ( ph  ->  th )
32ancli 574 . . . 4  |-  ( ph  ->  ( ph  /\  th ) )
4 pm4.42 1004 . . . . . 6  |-  ( -. 
ph 
<->  ( ( -.  ph  /\ 
ps )  \/  ( -.  ph  /\  -.  ps ) ) )
5 elim2ifim.2 . . . . . . . . . 10  |-  ( ( -.  ph  /\  ps )  ->  ta )
65ex 450 . . . . . . . . 9  |-  ( -. 
ph  ->  ( ps  ->  ta ) )
76ancld 576 . . . . . . . 8  |-  ( -. 
ph  ->  ( ps  ->  ( ps  /\  ta )
) )
87imp 445 . . . . . . 7  |-  ( ( -.  ph  /\  ps )  ->  ( ps  /\  ta ) )
9 elim2ifim.3 . . . . . . . . . 10  |-  ( ( -.  ph  /\  -.  ps )  ->  et )
109ex 450 . . . . . . . . 9  |-  ( -. 
ph  ->  ( -.  ps  ->  et ) )
1110ancld 576 . . . . . . . 8  |-  ( -. 
ph  ->  ( -.  ps  ->  ( -.  ps  /\  et ) ) )
1211imp 445 . . . . . . 7  |-  ( ( -.  ph  /\  -.  ps )  ->  ( -.  ps  /\  et ) )
138, 12orim12i 538 . . . . . 6  |-  ( ( ( -.  ph  /\  ps )  \/  ( -.  ph  /\  -.  ps ) )  ->  (
( ps  /\  ta )  \/  ( -.  ps  /\  et ) ) )
144, 13sylbi 207 . . . . 5  |-  ( -. 
ph  ->  ( ( ps 
/\  ta )  \/  ( -.  ps  /\  et ) ) )
1514ancli 574 . . . 4  |-  ( -. 
ph  ->  ( -.  ph  /\  ( ( ps  /\  ta )  \/  ( -.  ps  /\  et ) ) ) )
163, 15orim12i 538 . . 3  |-  ( (
ph  \/  -.  ph )  ->  ( ( ph  /\  th )  \/  ( -. 
ph  /\  ( ( ps  /\  ta )  \/  ( -.  ps  /\  et ) ) ) ) )
171, 16ax-mp 5 . 2  |-  ( (
ph  /\  th )  \/  ( -.  ph  /\  ( ( ps  /\  ta )  \/  ( -.  ps  /\  et ) ) ) )
18 elim2if.1 . . 3  |-  ( if ( ph ,  A ,  if ( ps ,  B ,  C )
)  =  A  -> 
( ch  <->  th )
)
19 elim2if.2 . . 3  |-  ( if ( ph ,  A ,  if ( ps ,  B ,  C )
)  =  B  -> 
( ch  <->  ta )
)
20 elim2if.3 . . 3  |-  ( if ( ph ,  A ,  if ( ps ,  B ,  C )
)  =  C  -> 
( ch  <->  et )
)
2118, 19, 20elim2if 29363 . 2  |-  ( ch  <->  ( ( ph  /\  th )  \/  ( -.  ph 
/\  ( ( ps 
/\  ta )  \/  ( -.  ps  /\  et ) ) ) ) )
2217, 21mpbir 221 1  |-  ch
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    = wceq 1483   ifcif 4086
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-clab 2609  df-cleq 2615  df-clel 2618  df-if 4087
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator