Users' Mathboxes Mathbox for Alan Sare < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  csbresgVD Unicode version

Theorem csbresgVD 28182
Description: Virtual deduction proof of csbresg 4995. The following User's Proof is a Virtual Deduction proof completed automatically by the tools program completeusersproof.cmd, which invokes Mel O'Cat's mmj2 and Norm Megill's Metamath Proof Assistant. csbresg 4995 is csbresgVD 28182 without virtual deductions and was automatically derived from csbresgVD 28182.
1::  |-  (. A  e.  V  ->.  A  e.  V ).
2:1:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ _V  =  _V ).
3:2:  |-  (. A  e.  V  ->.  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V )  =  ( [_ A  /  x ]_ C  X.  _V ) ).
4:1:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V ) ).
5:3,4:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  _V ) ).
6:5:  |-  (. A  e.  V  ->.  ( [_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V ) ) ).
7:1:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) ) ).
8:6,7:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V ) ) ).
9::  |-  ( B  |`  C )  =  ( B  i^i  ( C  X.  _V ) )
10:9:  |-  A. x ( B  |`  C )  =  ( B  i^i  ( C  X.  _V ) )
11:1,10:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  |`  C )  =  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) ) ).
12:8,11:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  |`  C )  =  (  [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V ) ) ).
13::  |-  ( [_ A  /  x ]_ B  |`  [_ A  /  x ]_ C )  =  (  [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V ) )
14:12,13:  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  |`  C )  =  (  [_ A  /  x ]_ B  |`  [_ A  /  x ]_ C ) ).
qed:14:  |-  ( A  e.  V  ->  [_ A  /  x ]_ ( B  |`  C )  =  (  [_ A  /  x ]_ B  |`  [_ A  /  x ]_ C ) )
(Contributed by Alan Sare, 10-Nov-2012.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
csbresgVD  |-  ( A  e.  V  ->  [_ A  /  x ]_ ( B  |`  C )  =  (
[_ A  /  x ]_ B  |`  [_ A  /  x ]_ C ) )

Proof of Theorem csbresgVD
StepHypRef Expression
1 idn1 27836 . . . . . . . . 9  |-  (. A  e.  V  ->.  A  e.  V ).
2 csbconstg 3129 . . . . . . . . 9  |-  ( A  e.  V  ->  [_ A  /  x ]_ _V  =  _V )
31, 2e1_ 27899 . . . . . . . 8  |-  (. A  e.  V  ->.  [_ A  /  x ]_ _V  =  _V ).
4 xpeq2 4741 . . . . . . . 8  |-  ( [_ A  /  x ]_ _V  =  _V  ->  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V )  =  (
[_ A  /  x ]_ C  X.  _V )
)
53, 4e1_ 27899 . . . . . . 7  |-  (. A  e.  V  ->.  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V )  =  ( [_ A  /  x ]_ C  X.  _V ) ).
6 csbxpg 4753 . . . . . . . 8  |-  ( A  e.  V  ->  [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V ) )
71, 6e1_ 27899 . . . . . . 7  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V ) ).
8 eqeq2 2325 . . . . . . . 8  |-  ( (
[_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V )  =  ( [_ A  /  x ]_ C  X.  _V )  ->  ( [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V ) 
<-> 
[_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  _V ) ) )
98biimpd 198 . . . . . . 7  |-  ( (
[_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V )  =  ( [_ A  /  x ]_ C  X.  _V )  ->  ( [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  [_ A  /  x ]_ _V )  ->  [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  _V ) ) )
105, 7, 9e11 27960 . . . . . 6  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  _V ) ).
11 ineq2 3398 . . . . . 6  |-  ( [_ A  /  x ]_ ( C  X.  _V )  =  ( [_ A  /  x ]_ C  X.  _V )  ->  ( [_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V )
)  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V ) ) )
1210, 11e1_ 27899 . . . . 5  |-  (. A  e.  V  ->.  ( [_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V )
)  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V ) ) ).
13 csbing 3410 . . . . . 6  |-  ( A  e.  V  ->  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  (
[_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) ) )
141, 13e1_ 27899 . . . . 5  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V )
) ).
15 eqeq2 2325 . . . . . 6  |-  ( (
[_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  ( [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  (
[_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) )  <->  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ) )
1615biimpd 198 . . . . 5  |-  ( (
[_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  ( [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  (
[_ A  /  x ]_ B  i^i  [_ A  /  x ]_ ( C  X.  _V ) )  ->  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ) )
1712, 14, 16e11 27960 . . . 4  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ).
18 df-res 4738 . . . . . 6  |-  ( B  |`  C )  =  ( B  i^i  ( C  X.  _V ) )
1918ax-gen 1537 . . . . 5  |-  A. x
( B  |`  C )  =  ( B  i^i  ( C  X.  _V )
)
20 csbeq2g 27809 . . . . 5  |-  ( A  e.  V  ->  ( A. x ( B  |`  C )  =  ( B  i^i  ( C  X.  _V ) )  ->  [_ A  /  x ]_ ( B  |`  C )  =  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V )
) ) )
211, 19, 20e10 27967 . . . 4  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  |`  C )  =  [_ A  /  x ]_ ( B  i^i  ( C  X.  _V )
) ).
22 eqeq2 2325 . . . . 5  |-  ( [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  (
[_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  ( [_ A  /  x ]_ ( B  |`  C )  = 
[_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  <->  [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ) )
2322biimpd 198 . . . 4  |-  ( [_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  =  (
[_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  ( [_ A  /  x ]_ ( B  |`  C )  = 
[_ A  /  x ]_ ( B  i^i  ( C  X.  _V ) )  ->  [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ) )
2417, 21, 23e11 27960 . . 3  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ).
25 df-res 4738 . . 3  |-  ( [_ A  /  x ]_ B  |` 
[_ A  /  x ]_ C )  =  (
[_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)
26 eqeq2 2325 . . . 4  |-  ( (
[_ A  /  x ]_ B  |`  [_ A  /  x ]_ C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  ( [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  |`  [_ A  /  x ]_ C )  <->  [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
) ) )
2726biimprcd 216 . . 3  |-  ( [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  ( ( [_ A  /  x ]_ B  |`  [_ A  /  x ]_ C )  =  ( [_ A  /  x ]_ B  i^i  ( [_ A  /  x ]_ C  X.  _V )
)  ->  [_ A  /  x ]_ ( B  |`  C )  =  (
[_ A  /  x ]_ B  |`  [_ A  /  x ]_ C ) ) )
2824, 25, 27e10 27967 . 2  |-  (. A  e.  V  ->.  [_ A  /  x ]_ ( B  |`  C )  =  ( [_ A  /  x ]_ B  |`  [_ A  /  x ]_ C ) ).
2928in1 27833 1  |-  ( A  e.  V  ->  [_ A  /  x ]_ ( B  |`  C )  =  (
[_ A  /  x ]_ B  |`  [_ A  /  x ]_ C ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4   A.wal 1531    = wceq 1633    e. wcel 1701   _Vcvv 2822   [_csb 3115    i^i cin 3185    X. cxp 4724    |` cres 4728
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1537  ax-5 1548  ax-17 1607  ax-9 1645  ax-8 1666  ax-6 1720  ax-7 1725  ax-11 1732  ax-12 1897  ax-ext 2297
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1533  df-nf 1536  df-sb 1640  df-clab 2303  df-cleq 2309  df-clel 2312  df-nfc 2441  df-rab 2586  df-v 2824  df-sbc 3026  df-csb 3116  df-in 3193  df-opab 4115  df-xp 4732  df-res 4738  df-vd1 27832
  Copyright terms: Public domain W3C validator