MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  raltpd Structured version   Unicode version

Theorem raltpd 4123
Description: Convert a quantification over a triple to a conjunction. (Contributed by Thierry Arnoux, 8-Apr-2019.)
Hypotheses
Ref Expression
ralprd.1  |-  ( (
ph  /\  x  =  A )  ->  ( ps 
<->  ch ) )
ralprd.2  |-  ( (
ph  /\  x  =  B )  ->  ( ps 
<->  th ) )
raltpd.3  |-  ( (
ph  /\  x  =  C )  ->  ( ps 
<->  ta ) )
ralprd.a  |-  ( ph  ->  A  e.  V )
ralprd.b  |-  ( ph  ->  B  e.  W )
raltpd.c  |-  ( ph  ->  C  e.  X )
Assertion
Ref Expression
raltpd  |-  ( ph  ->  ( A. x  e. 
{ A ,  B ,  C } ps  <->  ( ch  /\ 
th  /\  ta )
) )
Distinct variable groups:    x, A    x, B    x, C    ph, x    ch, x    th, x    ta, x
Allowed substitution hints:    ps( x)    V( x)    W( x)    X( x)

Proof of Theorem raltpd
StepHypRef Expression
1 an3andi 1377 . . . . . 6  |-  ( (
ph  /\  ( ch  /\ 
th  /\  ta )
)  <->  ( ( ph  /\ 
ch )  /\  ( ph  /\  th )  /\  ( ph  /\  ta )
) )
21a1i 11 . . . . 5  |-  ( ph  ->  ( ( ph  /\  ( ch  /\  th  /\  ta ) )  <->  ( ( ph  /\  ch )  /\  ( ph  /\  th )  /\  ( ph  /\  ta ) ) ) )
3 ralprd.a . . . . . 6  |-  ( ph  ->  A  e.  V )
4 ralprd.b . . . . . 6  |-  ( ph  ->  B  e.  W )
5 raltpd.c . . . . . 6  |-  ( ph  ->  C  e.  X )
6 ralprd.1 . . . . . . . . 9  |-  ( (
ph  /\  x  =  A )  ->  ( ps 
<->  ch ) )
76expcom 436 . . . . . . . 8  |-  ( x  =  A  ->  ( ph  ->  ( ps  <->  ch )
) )
87pm5.32d 643 . . . . . . 7  |-  ( x  =  A  ->  (
( ph  /\  ps )  <->  (
ph  /\  ch )
) )
9 ralprd.2 . . . . . . . . 9  |-  ( (
ph  /\  x  =  B )  ->  ( ps 
<->  th ) )
109expcom 436 . . . . . . . 8  |-  ( x  =  B  ->  ( ph  ->  ( ps  <->  th )
) )
1110pm5.32d 643 . . . . . . 7  |-  ( x  =  B  ->  (
( ph  /\  ps )  <->  (
ph  /\  th )
) )
12 raltpd.3 . . . . . . . . 9  |-  ( (
ph  /\  x  =  C )  ->  ( ps 
<->  ta ) )
1312expcom 436 . . . . . . . 8  |-  ( x  =  C  ->  ( ph  ->  ( ps  <->  ta )
) )
1413pm5.32d 643 . . . . . . 7  |-  ( x  =  C  ->  (
( ph  /\  ps )  <->  (
ph  /\  ta )
) )
158, 11, 14raltpg 4051 . . . . . 6  |-  ( ( A  e.  V  /\  B  e.  W  /\  C  e.  X )  ->  ( A. x  e. 
{ A ,  B ,  C }  ( ph  /\ 
ps )  <->  ( ( ph  /\  ch )  /\  ( ph  /\  th )  /\  ( ph  /\  ta ) ) ) )
163, 4, 5, 15syl3anc 1264 . . . . 5  |-  ( ph  ->  ( A. x  e. 
{ A ,  B ,  C }  ( ph  /\ 
ps )  <->  ( ( ph  /\  ch )  /\  ( ph  /\  th )  /\  ( ph  /\  ta ) ) ) )
173tpnzd 4122 . . . . . 6  |-  ( ph  ->  { A ,  B ,  C }  =/=  (/) )
18 r19.28zv 3894 . . . . . 6  |-  ( { A ,  B ,  C }  =/=  (/)  ->  ( A. x  e.  { A ,  B ,  C } 
( ph  /\  ps )  <->  (
ph  /\  A. x  e.  { A ,  B ,  C } ps )
) )
1917, 18syl 17 . . . . 5  |-  ( ph  ->  ( A. x  e. 
{ A ,  B ,  C }  ( ph  /\ 
ps )  <->  ( ph  /\ 
A. x  e.  { A ,  B ,  C } ps ) ) )
202, 16, 193bitr2d 284 . . . 4  |-  ( ph  ->  ( ( ph  /\  ( ch  /\  th  /\  ta ) )  <->  ( ph  /\ 
A. x  e.  { A ,  B ,  C } ps ) ) )
2120bianabs 888 . . 3  |-  ( ph  ->  ( ( ph  /\  ( ch  /\  th  /\  ta ) )  <->  A. x  e.  { A ,  B ,  C } ps )
)
2221bicomd 204 . 2  |-  ( ph  ->  ( A. x  e. 
{ A ,  B ,  C } ps  <->  ( ph  /\  ( ch  /\  th  /\  ta ) ) ) )
2322bianabs 888 1  |-  ( ph  ->  ( A. x  e. 
{ A ,  B ,  C } ps  <->  ( ch  /\ 
th  /\  ta )
) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1872    =/= wne 2614   A.wral 2771   (/)c0 3761   {ctp 4002
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-ral 2776  df-v 3082  df-sbc 3300  df-dif 3439  df-un 3441  df-nul 3762  df-sn 3999  df-pr 4001  df-tp 4003
This theorem is referenced by:  trgcgrg  24558  tgcgr4  24574  cplgr3v  39259
  Copyright terms: Public domain W3C validator