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

Theorem csbxpg 4588
Description: Distribute proper substitution through the cross product of two classes. (Contributed by Alan Sare, 10-Nov-2012.)
Assertion
Ref Expression
csbxpg  |-  ( A  e.  D  ->  [_ A  /  x ]_ ( B  X.  C )  =  ( [_ A  /  x ]_ B  X.  [_ A  /  x ]_ C
) )

Proof of Theorem csbxpg
Dummy variables  w  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 csbabg 3029 . . 3  |-  ( A  e.  D  ->  [_ A  /  x ]_ { z  |  E. w E. y ( z  = 
<. w ,  y >.  /\  ( w  e.  B  /\  y  e.  C
) ) }  =  { z  |  [. A  /  x ]. E. w E. y ( z  =  <. w ,  y
>.  /\  ( w  e.  B  /\  y  e.  C ) ) } )
2 sbcexg 2933 . . . . 5  |-  ( A  e.  D  ->  ( [. A  /  x ]. E. w E. y
( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
)  <->  E. w [. A  /  x ]. E. y
( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
) ) )
3 sbcexg 2933 . . . . . . 7  |-  ( A  e.  D  ->  ( [. A  /  x ]. E. y ( z  =  <. w ,  y
>.  /\  ( w  e.  B  /\  y  e.  C ) )  <->  E. y [. A  /  x ]. ( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
) ) )
4 sbcang 2922 . . . . . . . . 9  |-  ( A  e.  D  ->  ( [. A  /  x ]. ( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
)  <->  ( [. A  /  x ]. z  = 
<. w ,  y >.  /\  [. A  /  x ]. ( w  e.  B  /\  y  e.  C
) ) ) )
5 sbcg 2948 . . . . . . . . . 10  |-  ( A  e.  D  ->  ( [. A  /  x ]. z  =  <. w ,  y >.  <->  z  =  <. w ,  y >.
) )
6 sbcang 2922 . . . . . . . . . . 11  |-  ( A  e.  D  ->  ( [. A  /  x ]. ( w  e.  B  /\  y  e.  C
)  <->  ( [. A  /  x ]. w  e.  B  /\  [. A  /  x ]. y  e.  C ) ) )
7 sbcel2g 2992 . . . . . . . . . . . 12  |-  ( A  e.  D  ->  ( [. A  /  x ]. w  e.  B  <->  w  e.  [_ A  /  x ]_ B ) )
8 sbcel2g 2992 . . . . . . . . . . . 12  |-  ( A  e.  D  ->  ( [. A  /  x ]. y  e.  C  <->  y  e.  [_ A  /  x ]_ C ) )
97, 8anbi12d 462 . . . . . . . . . . 11  |-  ( A  e.  D  ->  (
( [. A  /  x ]. w  e.  B  /\  [. A  /  x ]. y  e.  C
)  <->  ( w  e. 
[_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) )
106, 9bitrd 187 . . . . . . . . . 10  |-  ( A  e.  D  ->  ( [. A  /  x ]. ( w  e.  B  /\  y  e.  C
)  <->  ( w  e. 
[_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) )
115, 10anbi12d 462 . . . . . . . . 9  |-  ( A  e.  D  ->  (
( [. A  /  x ]. z  =  <. w ,  y >.  /\  [. A  /  x ]. ( w  e.  B  /\  y  e.  C ) )  <->  ( z  =  <. w ,  y
>.  /\  ( w  e. 
[_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) ) )
124, 11bitrd 187 . . . . . . . 8  |-  ( A  e.  D  ->  ( [. A  /  x ]. ( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
)  <->  ( z  = 
<. w ,  y >.  /\  ( w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) ) )
1312exbidv 1779 . . . . . . 7  |-  ( A  e.  D  ->  ( E. y [. A  /  x ]. ( z  = 
<. w ,  y >.  /\  ( w  e.  B  /\  y  e.  C
) )  <->  E. y
( z  =  <. w ,  y >.  /\  (
w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) ) )
143, 13bitrd 187 . . . . . 6  |-  ( A  e.  D  ->  ( [. A  /  x ]. E. y ( z  =  <. w ,  y
>.  /\  ( w  e.  B  /\  y  e.  C ) )  <->  E. y
( z  =  <. w ,  y >.  /\  (
w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) ) )
1514exbidv 1779 . . . . 5  |-  ( A  e.  D  ->  ( E. w [. A  /  x ]. E. y ( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
)  <->  E. w E. y
( z  =  <. w ,  y >.  /\  (
w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) ) )
162, 15bitrd 187 . . . 4  |-  ( A  e.  D  ->  ( [. A  /  x ]. E. w E. y
( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
)  <->  E. w E. y
( z  =  <. w ,  y >.  /\  (
w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) ) )
1716abbidv 2233 . . 3  |-  ( A  e.  D  ->  { z  |  [. A  /  x ]. E. w E. y ( z  = 
<. w ,  y >.  /\  ( w  e.  B  /\  y  e.  C
) ) }  =  { z  |  E. w E. y ( z  =  <. w ,  y
>.  /\  ( w  e. 
[_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) } )
181, 17eqtrd 2148 . 2  |-  ( A  e.  D  ->  [_ A  /  x ]_ { z  |  E. w E. y ( z  = 
<. w ,  y >.  /\  ( w  e.  B  /\  y  e.  C
) ) }  =  { z  |  E. w E. y ( z  =  <. w ,  y
>.  /\  ( w  e. 
[_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) } )
19 df-xp 4513 . . . 4  |-  ( B  X.  C )  =  { <. w ,  y
>.  |  ( w  e.  B  /\  y  e.  C ) }
20 df-opab 3958 . . . 4  |-  { <. w ,  y >.  |  ( w  e.  B  /\  y  e.  C ) }  =  { z  |  E. w E. y
( z  =  <. w ,  y >.  /\  (
w  e.  B  /\  y  e.  C )
) }
2119, 20eqtri 2136 . . 3  |-  ( B  X.  C )  =  { z  |  E. w E. y ( z  =  <. w ,  y
>.  /\  ( w  e.  B  /\  y  e.  C ) ) }
2221csbeq2i 2997 . 2  |-  [_ A  /  x ]_ ( B  X.  C )  = 
[_ A  /  x ]_ { z  |  E. w E. y ( z  =  <. w ,  y
>.  /\  ( w  e.  B  /\  y  e.  C ) ) }
23 df-xp 4513 . . 3  |-  ( [_ A  /  x ]_ B  X.  [_ A  /  x ]_ C )  =  { <. w ,  y >.  |  ( w  e. 
[_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) }
24 df-opab 3958 . . 3  |-  { <. w ,  y >.  |  ( w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) }  =  { z  |  E. w E. y
( z  =  <. w ,  y >.  /\  (
w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) }
2523, 24eqtri 2136 . 2  |-  ( [_ A  /  x ]_ B  X.  [_ A  /  x ]_ C )  =  {
z  |  E. w E. y ( z  = 
<. w ,  y >.  /\  ( w  e.  [_ A  /  x ]_ B  /\  y  e.  [_ A  /  x ]_ C ) ) }
2618, 22, 253eqtr4g 2173 1  |-  ( A  e.  D  ->  [_ A  /  x ]_ ( B  X.  C )  =  ( [_ A  /  x ]_ B  X.  [_ A  /  x ]_ C
) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    = wceq 1314   E.wex 1451    e. wcel 1463   {cab 2101   [.wsbc 2880   [_csb 2973   <.cop 3498   {copab 3956    X. cxp 4505
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 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097
This theorem depends on definitions:  df-bi 116  df-tru 1317  df-nf 1420  df-sb 1719  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-v 2660  df-sbc 2881  df-csb 2974  df-opab 3958  df-xp 4513
This theorem is referenced by:  csbresg  4790
  Copyright terms: Public domain W3C validator