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

Theorem sbequilem 1794
Description: Propositional logic lemma used in the sbequi 1795 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 270 . . . . . . . . 9  |-  ( (
ph  \/  ( ps  ->  ( ch  ->  th )
) )  /\  ( ta  \/  ( ps  ->  ( th  ->  et )
) ) )
4 andi 792 . . . . . . . . 9  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ( ta  \/  ( ps  ->  ( th  ->  et ) ) ) )  <-> 
( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  \/  ( ( ph  \/  ( ps  ->  ( ch 
->  th ) ) )  /\  ( ps  ->  ( th  ->  et )
) ) ) )
53, 4mpbi 144 . . . . . . . 8  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  \/  (
( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ( ps  ->  ( th 
->  et ) ) ) )
6 andir 793 . . . . . . . . 9  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  <->  ( ( ph  /\ 
ta )  \/  (
( ps  ->  ( ch  ->  th ) )  /\  ta ) ) )
7 andir 793 . . . . . . . . 9  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ( ps  ->  ( th 
->  et ) ) )  <-> 
( ( ph  /\  ( ps  ->  ( th 
->  et ) ) )  \/  ( ( ps 
->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) ) )
86, 7orbi12i 738 . . . . . . . 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 144 . . . . . . 7  |-  ( ( ( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th ) )  /\  ta ) )  \/  (
( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) ) )
10 pm3.43 576 . . . . . . . . . 10  |-  ( ( ( ps  ->  ( ch  ->  th ) )  /\  ( ps  ->  ( th 
->  et ) ) )  ->  ( ps  ->  ( ( ch  ->  th )  /\  ( th  ->  et ) ) ) )
11 pm3.33 342 . . . . . . . . . 10  |-  ( ( ( ch  ->  th )  /\  ( th  ->  et ) )  ->  ( ch  ->  et ) )
1210, 11syl6 33 . . . . . . . . 9  |-  ( ( ( ps  ->  ( ch  ->  th ) )  /\  ( ps  ->  ( th 
->  et ) ) )  ->  ( ps  ->  ( ch  ->  et )
) )
1312orim2i 735 . . . . . . . 8  |-  ( ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ( ps  ->  ( ch  ->  th )
)  /\  ( ps  ->  ( th  ->  et ) ) ) )  ->  ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps 
->  ( ch  ->  et ) ) ) )
1413orim2i 735 . . . . . . 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 109 . . . . . . . 8  |-  ( ( ( ph  \/  ( ps  ->  ( ch  ->  th ) ) )  /\  ta )  ->  ta )
176, 16sylbir 134 . . . . . . 7  |-  ( ( ( ph  /\  ta )  \/  ( ( ps  ->  ( ch  ->  th ) )  /\  ta ) )  ->  ta )
1817orim1i 734 . . . . . 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 108 . . . . . . 7  |-  ( (
ph  /\  ( ps  ->  ( th  ->  et ) ) )  ->  ph )
2120orim1i 734 . . . . . 6  |-  ( ( ( ph  /\  ( ps  ->  ( th  ->  et ) ) )  \/  ( ps  ->  ( ch  ->  et ) ) )  ->  ( ph  \/  ( ps  ->  ( ch  ->  et ) ) ) )
2221orim2i 735 . . . . 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 741 . . . 4  |-  ( ( ( ta  \/  ph )  \/  ( ps  ->  ( ch  ->  et ) ) )  <->  ( ta  \/  ( ph  \/  ( ps  ->  ( ch  ->  et ) ) ) ) )
2523, 24mpbir 145 . . 3  |-  ( ( ta  \/  ph )  \/  ( ps  ->  ( ch  ->  et ) ) )
26 orcom 702 . . . 4  |-  ( ( ta  \/  ph )  <->  (
ph  \/  ta )
)
2726orbi1i 737 . . 3  |-  ( ( ( ta  \/  ph )  \/  ( ps  ->  ( ch  ->  et ) ) )  <->  ( ( ph  \/  ta )  \/  ( ps  ->  ( ch  ->  et ) ) ) )
2825, 27mpbi 144 . 2  |-  ( (
ph  \/  ta )  \/  ( ps  ->  ( ch  ->  et ) ) )
29 orass 741 . 2  |-  ( ( ( ph  \/  ta )  \/  ( ps  ->  ( ch  ->  et ) ) )  <->  ( ph  \/  ( ta  \/  ( ps  ->  ( ch  ->  et ) ) ) ) )
3028, 29mpbi 144 1  |-  ( ph  \/  ( ta  \/  ( ps  ->  ( ch  ->  et ) ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    \/ wo 682
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 683
This theorem depends on definitions:  df-bi 116
This theorem is referenced by:  sbequi  1795
  Copyright terms: Public domain W3C validator