ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  sbequilem Unicode version

Theorem sbequilem 1838
Description: Propositional logic lemma used in the sbequi 1839 proof. (Contributed by Jim Kingdon, 1-Feb-2018.)
Hypotheses
Ref Expression
sbequilem.1  |-  ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )
sbequilem.2  |-  ( ta  \/  ( ps  ->  ( th  ->  et )
) )
Assertion
Ref Expression
sbequilem  |-  ( ph  \/  ( ta  \/  ( ps  ->  ( ch  ->  et ) ) ) )

Proof of Theorem sbequilem
StepHypRef Expression
1 sbequilem.1 . . . . . . . . . 10  |-  ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )
2 sbequilem.2 . . . . . . . . . 10  |-  ( ta  \/  ( ps  ->  ( th  ->  et )
) )
31, 2pm3.2i 272 . . . . . . . . 9  |-  ( (
ph  \/  ( ps  ->  ( ch  ->  th )
) )  /\  ( ta  \/  ( ps  ->  ( th  ->  et )
) ) )
4 andi 818 . . . . . . . . 9  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ( ta  \/  ( ps  ->  ( th  ->  et ) ) ) )  <-> 
( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  \/  ( ( ph  \/  ( ps  ->  ( ch 
->  th ) ) )  /\  ( ps  ->  ( th  ->  et )
) ) ) )
53, 4mpbi 145 . . . . . . . 8  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  \/  (
( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ( ps  ->  ( th 
->  et ) ) ) )
6 andir 819 . . . . . . . . 9  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  <->  ( ( ph  /\ 
ta )  \/  (
( ps  ->  ( ch  ->  th ) )  /\  ta ) ) )
7 andir 819 . . . . . . . . 9  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ( ps  ->  ( th 
->  et ) ) )  <-> 
( ( ph  /\  ( ps  ->  ( th 
->  et ) ) )  \/  ( ( ps 
->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) ) )
86, 7orbi12i 764 . . . . . . . 8  |-  ( ( ( ( ph  \/  ( ps  ->  ( ch 
->  th ) ) )  /\  ta )  \/  ( ( ph  \/  ( ps  ->  ( ch 
->  th ) ) )  /\  ( ps  ->  ( th  ->  et )
) ) )  <->  ( (
( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ta )
)  \/  ( (
ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) ) ) )
95, 8mpbi 145 . . . . . . 7  |-  ( ( ( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th ) )  /\  ta ) )  \/  (
( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) ) )
10 pm3.43 602 . . . . . . . . . 10  |-  ( ( ( ps  ->  ( ch  ->  th ) )  /\  ( ps  ->  ( th 
->  et ) ) )  ->  ( ps  ->  ( ( ch  ->  th )  /\  ( th  ->  et ) ) ) )
11 pm3.33 345 . . . . . . . . . 10  |-  ( ( ( ch  ->  th )  /\  ( th  ->  et ) )  ->  ( ch  ->  et ) )
1210, 11syl6 33 . . . . . . . . 9  |-  ( ( ( ps  ->  ( ch  ->  th ) )  /\  ( ps  ->  ( th 
->  et ) ) )  ->  ( ps  ->  ( ch  ->  et )
) )
1312orim2i 761 . . . . . . . 8  |-  ( ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) )  ->  ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps 
->  ( ch  ->  et ) ) ) )
1413orim2i 761 . . . . . . 7  |-  ( ( ( ( ph  /\  ta )  \/  (
( ps  ->  ( ch  ->  th ) )  /\  ta ) )  \/  (
( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) ) )  ->  ( (
( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ta )
)  \/  ( (
ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps  ->  ( ch  ->  et ) ) ) ) )
159, 14ax-mp 5 . . . . . 6  |-  ( ( ( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th ) )  /\  ta ) )  \/  (
( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps  ->  ( ch  ->  et ) ) ) )
16 simpr 110 . . . . . . . 8  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  ->  ta )
176, 16sylbir 135 . . . . . . 7  |-  ( ( ( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th ) )  /\  ta ) )  ->  ta )
1817orim1i 760 . . . . . 6  |-  ( ( ( ( ph  /\  ta )  \/  (
( ps  ->  ( ch  ->  th ) )  /\  ta ) )  \/  (
( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps  ->  ( ch  ->  et ) ) ) )  ->  ( ta  \/  ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps 
->  ( ch  ->  et ) ) ) ) )
1915, 18ax-mp 5 . . . . 5  |-  ( ta  \/  ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps 
->  ( ch  ->  et ) ) ) )
20 simpl 109 . . . . . . 7  |-  ( (
ph  /\  ( ps  ->  ( th  ->  et ) ) )  ->  ph )
2120orim1i 760 . . . . . 6  |-  ( ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps  ->  ( ch  ->  et ) ) )  ->  ( ph  \/  ( ps  ->  ( ch  ->  et ) ) ) )
2221orim2i 761 . . . . 5  |-  ( ( ta  \/  ( (
ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps  ->  ( ch  ->  et ) ) ) )  ->  ( ta  \/  ( ph  \/  ( ps  ->  ( ch 
->  et ) ) ) ) )
2319, 22ax-mp 5 . . . 4  |-  ( ta  \/  ( ph  \/  ( ps  ->  ( ch 
->  et ) ) ) )
24 orass 767 . . . 4  |-  ( ( ( ta  \/  ph )  \/  ( ps  ->  ( ch  ->  et ) ) )  <->  ( ta  \/  ( ph  \/  ( ps  ->  ( ch  ->  et ) ) ) ) )
2523, 24mpbir 146 . . 3  |-  ( ( ta  \/  ph )  \/  ( ps  ->  ( ch  ->  et ) ) )
26 orcom 728 . . . 4  |-  ( ( ta  \/  ph )  <->  (
ph  \/  ta )
)
2726orbi1i 763 . . 3  |-  ( ( ( ta  \/  ph )  \/  ( ps  ->  ( ch  ->  et ) ) )  <->  ( ( ph  \/  ta )  \/  ( ps  ->  ( ch  ->  et ) ) ) )
2825, 27mpbi 145 . 2  |-  ( (
ph  \/  ta )  \/  ( ps  ->  ( ch  ->  et ) ) )
29 orass 767 . 2  |-  ( ( ( ph  \/  ta )  \/  ( ps  ->  ( ch  ->  et ) ) )  <->  ( ph  \/  ( ta  \/  ( ps  ->  ( ch  ->  et ) ) ) ) )
3028, 29mpbi 145 1  |-  ( ph  \/  ( ta  \/  ( ps  ->  ( ch  ->  et ) ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    \/ wo 708
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709
This theorem depends on definitions:  df-bi 117
This theorem is referenced by:  sbequi  1839
  Copyright terms: Public domain W3C validator