Theorem csbrngVD 37293

Description: Virtual deduction proof of csbrngOLD 37217. 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. csbrngOLD 37217 is csbrngVD 37293 without virtual deductions and was automatically derived from csbrngVD 37293.

1::	|- (. A e. V ->. A e. V ).
2:1:	|- (. A e. V ->. ( [. A / x ]. <. w ,. y >. e. B <-> [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B ) ).
3:1:	|- (. A e. V ->. [_ A / x ]_ <. w ,. y >. = <. w , y >. ).
4:3:	|- (. A e. V ->. ( [_ A / x ]_ <. w ,. y >. e. [_ A / x ]_ B <-> <. w , y >. e. [_ A / x ]_ B ) ).
5:2,4:	|- (. A e. V ->. ( [. A / x ]. <. w ,. y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) ).
6:5:	|- (. A e. V ->. A. w ( [. A / x ]. <. w ,. y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) ).
7:6:	|- (. A e. V ->. ( E. w [. A / x ]. <. w ,. y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ).
8:1:	|- (. A e. V ->. ( E. w [. A / x ]. <. w ,. y >. e. B <-> [. A / x ]. E. w <. w , y >. e. B ) ).
9:7,8:	|- (. A e. V ->. ( [. A / x ]. E. w <. w ,. y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ).
10:9:	|- (. A e. V ->. A. y ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ).
11:10:	|- (. A e. V ->. { y | [. A / x ]. E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } ).
12:1:	|- (. A e. V ->. [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | [. A / x ]. E. w <. w , y >. e. B } ).
13:11,12:	|- (. A e. V ->. [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } ).
14::	|- ran B = { y | E. w <. w ,. y >. e. B }
15:14:	|- A. x ran B = { y | E. w <. w ,. y >. e. B }
16:1,15:	|- (. A e. V ->. [_ A / x ]_ ran B = [_ A / x ]_ { y | E. w <. w , y >. e. B } ).
17:13,16:	|- (. A e. V ->. [_ A / x ]_ ran B = { y | E. w <. w , y >. e. [_ A / x ]_ B } ).
18::	|- ran [_ A / x ]_ B = { y | E. w <. w ,. y >. e. [_ A / x ]_ B }
19:17,18:	|- (. A e. V ->. [_ A / x ]_ ran B = ran [_ A / x ]_ B ).
qed:19:	|- ( A e. V -> [_ A / x ]_ ran B = ran [_ A / x ]_ B )

(Contributed by Alan Sare, 10-Nov-2012.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
csbrngVD	|- ( A e. V -> [_ A / x ]_ ran B = ran [_ A / x ]_ B )

Proof of Theorem csbrngVD

Dummy variables w y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		idn1 36944	. . . . . . . . . . . 12 |- (. A e. V ->. A e. V ).
2		sbcel12gOLD 36905	. . . . . . . . . . . 12 |- ( A e. V -> ( [. A / x ]. <. w , y >. e. B <-> [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B ) )
3	1, 2	e1a 37006	. . . . . . . . . . 11 |- (. A e. V ->. ( [. A / x ]. <. w , y >. e. B <-> [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B ) ).
4		csbconstg 3376	. . . . . . . . . . . . 13 |- ( A e. V -> [_ A / x ]_ <. w , y >. = <. w , y >. )
5	1, 4	e1a 37006	. . . . . . . . . . . 12 |- (. A e. V ->. [_ A / x ]_ <. w , y >. = <. w , y >. ).
6		eleq1 2517	. . . . . . . . . . . 12 |- ( [_ A / x ]_ <. w , y >. = <. w , y >. -> ( [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B <-> <. w , y >. e. [_ A / x ]_ B ) )
7	5, 6	e1a 37006	. . . . . . . . . . 11 |- (. A e. V ->. ( [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B <-> <. w , y >. e. [_ A / x ]_ B ) ).
8		bibi1 329	. . . . . . . . . . . 12 |- ( ( [. A / x ]. <. w , y >. e. B <-> [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B ) -> ( ( [. A / x ]. <. w , y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) <-> ( [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B <-> <. w , y >. e. [_ A / x ]_ B ) ) )
9	8	biimprd 227	. . . . . . . . . . 11 |- ( ( [. A / x ]. <. w , y >. e. B <-> [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B ) -> ( ( [_ A / x ]_ <. w , y >. e. [_ A / x ]_ B <-> <. w , y >. e. [_ A / x ]_ B ) -> ( [. A / x ]. <. w , y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) ) )
10	3, 7, 9	e11 37067	. . . . . . . . . 10 |- (. A e. V ->. ( [. A / x ]. <. w , y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) ).
11	10	gen11 36995	. . . . . . . . 9 |- (. A e. V ->. A. w ( [. A / x ]. <. w , y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) ).
12		exbi 1716	. . . . . . . . 9 |- ( A. w ( [. A / x ]. <. w , y >. e. B <-> <. w , y >. e. [_ A / x ]_ B ) -> ( E. w [. A / x ]. <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) )
13	11, 12	e1a 37006	. . . . . . . 8 |- (. A e. V ->. ( E. w [. A / x ]. <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ).
14		sbcexgOLD 36904	. . . . . . . . . 10 |- ( A e. V -> ( [. A / x ]. E. w <. w , y >. e. B <-> E. w [. A / x ]. <. w , y >. e. B ) )
15	14	bicomd 205	. . . . . . . . 9 |- ( A e. V -> ( E. w [. A / x ]. <. w , y >. e. B <-> [. A / x ]. E. w <. w , y >. e. B ) )
16	1, 15	e1a 37006	. . . . . . . 8 |- (. A e. V ->. ( E. w [. A / x ]. <. w , y >. e. B <-> [. A / x ]. E. w <. w , y >. e. B ) ).
17		bitr3 36867	. . . . . . . . 9 |- ( ( E. w [. A / x ]. <. w , y >. e. B <-> [. A / x ]. E. w <. w , y >. e. B ) -> ( ( E. w [. A / x ]. <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) -> ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ) )
18	17	com12 32	. . . . . . . 8 |- ( ( E. w [. A / x ]. <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) -> ( ( E. w [. A / x ]. <. w , y >. e. B <-> [. A / x ]. E. w <. w , y >. e. B ) -> ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ) )
19	13, 16, 18	e11 37067	. . . . . . 7 |- (. A e. V ->. ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ).
20	19	gen11 36995	. . . . . 6 |- (. A e. V ->. A. y ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) ).
21		abbi 2565	. . . . . . 7 |- ( A. y ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) <-> { y | [. A / x ]. E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } )
22	21	biimpi 198	. . . . . 6 |- ( A. y ( [. A / x ]. E. w <. w , y >. e. B <-> E. w <. w , y >. e. [_ A / x ]_ B ) -> { y | [. A / x ]. E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } )
23	20, 22	e1a 37006	. . . . 5 |- (. A e. V ->. { y | [. A / x ]. E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } ).
24		csbabgOLD 37211	. . . . . 6 |- ( A e. V -> [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | [. A / x ]. E. w <. w , y >. e. B } )
25	1, 24	e1a 37006	. . . . 5 |- (. A e. V ->. [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | [. A / x ]. E. w <. w , y >. e. B } ).
26		eqeq2 2462	. . . . . 6 |- ( { y | [. A / x ]. E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> ( [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | [. A / x ]. E. w <. w , y >. e. B } <-> [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } ) )
27	26	biimpd 211	. . . . 5 |- ( { y | [. A / x ]. E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> ( [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | [. A / x ]. E. w <. w , y >. e. B } -> [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } ) )
28	23, 25, 27	e11 37067	. . . 4 |- (. A e. V ->. [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } ).
29		dfrn3 5024	. . . . . 6 |- ran B = { y | E. w <. w , y >. e. B }
30	29	ax-gen 1669	. . . . 5 |- A. x ran B = { y | E. w <. w , y >. e. B }
31		csbeq2gOLD 36916	. . . . 5 |- ( A e. V -> ( A. x ran B = { y | E. w <. w , y >. e. B } -> [_ A / x ]_ ran B = [_ A / x ]_ { y | E. w <. w , y >. e. B } ) )
32	1, 30, 31	e10 37073	. . . 4 |- (. A e. V ->. [_ A / x ]_ ran B = [_ A / x ]_ { y | E. w <. w , y >. e. B } ).
33		eqeq2 2462	. . . . 5 |- ( [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> ( [_ A / x ]_ ran B = [_ A / x ]_ { y | E. w <. w , y >. e. B } <-> [_ A / x ]_ ran B = { y | E. w <. w , y >. e. [_ A / x ]_ B } ) )
34	33	biimpd 211	. . . 4 |- ( [_ A / x ]_ { y | E. w <. w , y >. e. B } = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> ( [_ A / x ]_ ran B = [_ A / x ]_ { y | E. w <. w , y >. e. B } -> [_ A / x ]_ ran B = { y | E. w <. w , y >. e. [_ A / x ]_ B } ) )
35	28, 32, 34	e11 37067	. . 3 |- (. A e. V ->. [_ A / x ]_ ran B = { y | E. w <. w , y >. e. [_ A / x ]_ B } ).
36		dfrn3 5024	. . 3 |- ran [_ A / x ]_ B = { y | E. w <. w , y >. e. [_ A / x ]_ B }
37		eqeq2 2462	. . . 4 |- ( ran [_ A / x ]_ B = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> ( [_ A / x ]_ ran B = ran [_ A / x ]_ B <-> [_ A / x ]_ ran B = { y | E. w <. w , y >. e. [_ A / x ]_ B } ) )
38	37	biimprcd 229	. . 3 |- ( [_ A / x ]_ ran B = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> ( ran [_ A / x ]_ B = { y | E. w <. w , y >. e. [_ A / x ]_ B } -> [_ A / x ]_ ran B = ran [_ A / x ]_ B ) )
39	35, 36, 38	e10 37073	. 2 |- (. A e. V ->. [_ A / x ]_ ran B = ran [_ A / x ]_ B ).
40	39	in1 36941	1 |- ( A e. V -> [_ A / x ]_ ran B = ran [_ A / x ]_ B )

Syntax hints:   -> wi 4   <-> wb 188   A.wal 1442   = wceq 1444   E.wex 1663   e. wcel 1887   {cab 2437   [.wsbc 3267   [_csb 3363   <.cop 3974   ran crn 4835

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-sep 4525  ax-nul 4534  ax-pr 4639

This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3an 987  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-nul 3732  df-if 3882  df-sn 3969  df-pr 3971  df-op 3975  df-br 4403  df-opab 4462  df-cnv 4842  df-dm 4844  df-rn 4845  df-vd1 36940

This theorem is referenced by: (None)