Metamath Proof Explorer


Theorem csbresgVD

Description: Virtual deduction proof of csbres . The following User's Proof is a Virtual Deduction proof completed automatically by the tools program completeusersproof.cmd, which invokes Mel L. O'Cat's mmj2 and Norm Megill's Metamath Proof Assistant. csbres is csbresgVD without virtual deductions and was automatically derived from csbresgVD .

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.)

Ref Expression
Assertion csbresgVD AVA/xBC=A/xBA/xC

Proof

Step Hyp Ref Expression
1 idn1 AVAV
2 csbconstg AVA/xV=V
3 1 2 e1a AVA/xV=V
4 xpeq2 A/xV=VA/xC×A/xV=A/xC×V
5 3 4 e1a AVA/xC×A/xV=A/xC×V
6 csbxp A/xC×V=A/xC×A/xV
7 6 a1i AVA/xC×V=A/xC×A/xV
8 1 7 e1a AVA/xC×V=A/xC×A/xV
9 eqeq2 A/xC×A/xV=A/xC×VA/xC×V=A/xC×A/xVA/xC×V=A/xC×V
10 9 biimpd A/xC×A/xV=A/xC×VA/xC×V=A/xC×A/xVA/xC×V=A/xC×V
11 5 8 10 e11 AVA/xC×V=A/xC×V
12 ineq2 A/xC×V=A/xC×VA/xBA/xC×V=A/xBA/xC×V
13 11 12 e1a AVA/xBA/xC×V=A/xBA/xC×V
14 csbin A/xBC×V=A/xBA/xC×V
15 14 a1i AVA/xBC×V=A/xBA/xC×V
16 1 15 e1a AVA/xBC×V=A/xBA/xC×V
17 eqeq2 A/xBA/xC×V=A/xBA/xC×VA/xBC×V=A/xBA/xC×VA/xBC×V=A/xBA/xC×V
18 17 biimpd A/xBA/xC×V=A/xBA/xC×VA/xBC×V=A/xBA/xC×VA/xBC×V=A/xBA/xC×V
19 13 16 18 e11 AVA/xBC×V=A/xBA/xC×V
20 df-res BC=BC×V
21 20 ax-gen xBC=BC×V
22 csbeq2 xBC=BC×VA/xBC=A/xBC×V
23 22 a1i AVxBC=BC×VA/xBC=A/xBC×V
24 1 21 23 e10 AVA/xBC=A/xBC×V
25 eqeq2 A/xBC×V=A/xBA/xC×VA/xBC=A/xBC×VA/xBC=A/xBA/xC×V
26 25 biimpd A/xBC×V=A/xBA/xC×VA/xBC=A/xBC×VA/xBC=A/xBA/xC×V
27 19 24 26 e11 AVA/xBC=A/xBA/xC×V
28 df-res A/xBA/xC=A/xBA/xC×V
29 eqeq2 A/xBA/xC=A/xBA/xC×VA/xBC=A/xBA/xCA/xBC=A/xBA/xC×V
30 29 biimprcd A/xBC=A/xBA/xC×VA/xBA/xC=A/xBA/xC×VA/xBC=A/xBA/xC
31 27 28 30 e10 AVA/xBC=A/xBA/xC
32 31 in1 AVA/xBC=A/xBA/xC