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

Theorem sbcssgVD 37280
Description: Virtual deduction proof of sbcssg 3880. 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. sbcssg 3880 is sbcssgVD 37280 without virtual deductions and was automatically derived from sbcssgVD 37280.
1::  |-  (. A  e.  B  ->.  A  e.  B ).
2:1:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. y  e.  C  <->  y  e.  [_ A  /  x ]_ C ) ).
3:1:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. y  e.  D  <->  y  e.  [_ A  /  x ]_ D ) ).
4:2,3:  |-  (. A  e.  B  ->.  ( ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D  ) ) ).
5:1:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D ) ) ).
6:4,5:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ).
7:6:  |-  (. A  e.  B  ->.  A. y ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ).
8:7:  |-  (. A  e.  B  ->.  ( A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  A. y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D )  ) ).
9:1:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D ) ) ).
10:8,9:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D )  ) ).
11::  |-  ( C  C_  D  <->  A. y ( y  e.  C  ->  y  e.  D ) )
110:11:  |-  A. x ( C  C_  D  <->  A. y ( y  e.  C  ->  y  e.  D ) )
12:1,110:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. C  C_  D  <->  [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D ) ) ).
13:10,12:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. C  C_  D  <->  A. y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ).
14::  |-  ( [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D  <->  A.  y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )
15:13,14:  |-  (. A  e.  B  ->.  ( [. A  /  x ]. C  C_  D  <->  [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D ) ).
qed:15:  |-  ( A  e.  B  ->  ( [. A  /  x ]. C  C_  D  <->  [_  A  /  x ]_ C  C_  [_ A  /  x ]_ D ) )
(Contributed by Alan Sare, 22-Jul-2012.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
sbcssgVD  |-  ( A  e.  B  ->  ( [. A  /  x ]. C  C_  D  <->  [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D ) )

Proof of Theorem sbcssgVD
Dummy variable  y is distinct from all other variables.
StepHypRef Expression
1 idn1 36944 . . . . . . . . . 10  |-  (. A  e.  B  ->.  A  e.  B ).
2 sbcel2gOLD 36906 . . . . . . . . . 10  |-  ( A  e.  B  ->  ( [. A  /  x ]. y  e.  C  <->  y  e.  [_ A  /  x ]_ C ) )
31, 2e1a 37006 . . . . . . . . 9  |-  (. A  e.  B  ->.  ( [. A  /  x ]. y  e.  C  <->  y  e.  [_ A  /  x ]_ C
) ).
4 sbcel2gOLD 36906 . . . . . . . . . 10  |-  ( A  e.  B  ->  ( [. A  /  x ]. y  e.  D  <->  y  e.  [_ A  /  x ]_ D ) )
51, 4e1a 37006 . . . . . . . . 9  |-  (. A  e.  B  ->.  ( [. A  /  x ]. y  e.  D  <->  y  e.  [_ A  /  x ]_ D
) ).
6 imbi12 324 . . . . . . . . 9  |-  ( (
[. A  /  x ]. y  e.  C  <->  y  e.  [_ A  /  x ]_ C )  -> 
( ( [. A  /  x ]. y  e.  D  <->  y  e.  [_ A  /  x ]_ D
)  ->  ( ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D
)  <->  ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ) )
73, 5, 6e11 37067 . . . . . . . 8  |-  (. A  e.  B  ->.  ( ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ).
8 sbcimg 3309 . . . . . . . . 9  |-  ( A  e.  B  ->  ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <-> 
( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D
) ) )
91, 8e1a 37006 . . . . . . . 8  |-  (. A  e.  B  ->.  ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D ) ) ).
10 bibi1 329 . . . . . . . . 9  |-  ( (
[. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <-> 
( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D
) )  ->  (
( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <-> 
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  <->  ( ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ) )
1110biimprcd 229 . . . . . . . 8  |-  ( ( ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D
)  <->  ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) )  -> 
( ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( [. A  /  x ]. y  e.  C  ->  [. A  /  x ]. y  e.  D ) )  -> 
( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <-> 
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ) )
127, 9, 11e11 37067 . . . . . . 7  |-  (. A  e.  B  ->.  ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ).
1312gen11 36995 . . . . . 6  |-  (. A  e.  B  ->.  A. y ( [. A  /  x ]. (
y  e.  C  -> 
y  e.  D )  <-> 
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ).
14 albi 1690 . . . . . 6  |-  ( A. y ( [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  ( y  e.  [_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) )  -> 
( A. y [. A  /  x ]. (
y  e.  C  -> 
y  e.  D )  <->  A. y ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) )
1513, 14e1a 37006 . . . . 5  |-  (. A  e.  B  ->.  ( A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  A. y ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ).
16 sbcalgOLD 36903 . . . . . 6  |-  ( A  e.  B  ->  ( [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D ) ) )
171, 16e1a 37006 . . . . 5  |-  (. A  e.  B  ->.  ( [. A  /  x ]. A. y
( y  e.  C  ->  y  e.  D )  <->  A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D ) ) ).
18 bibi1 329 . . . . . 6  |-  ( (
[. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D ) )  ->  ( ( [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  <->  ( A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  A. y ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ) )
1918biimprcd 229 . . . . 5  |-  ( ( A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D )  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  ->  ( ( [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y [. A  /  x ]. ( y  e.  C  ->  y  e.  D ) )  ->  ( [. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ) )
2015, 17, 19e11 37067 . . . 4  |-  (. A  e.  B  ->.  ( [. A  /  x ]. A. y
( y  e.  C  ->  y  e.  D )  <->  A. y ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ).
21 dfss2 3421 . . . . . 6  |-  ( C 
C_  D  <->  A. y
( y  e.  C  ->  y  e.  D ) )
2221ax-gen 1669 . . . . 5  |-  A. x
( C  C_  D  <->  A. y ( y  e.  C  ->  y  e.  D ) )
23 sbcbi 36900 . . . . 5  |-  ( A  e.  B  ->  ( A. x ( C  C_  D 
<-> 
A. y ( y  e.  C  ->  y  e.  D ) )  -> 
( [. A  /  x ]. C  C_  D  <->  [. A  /  x ]. A. y ( y  e.  C  -> 
y  e.  D ) ) ) )
241, 22, 23e10 37073 . . . 4  |-  (. A  e.  B  ->.  ( [. A  /  x ]. C  C_  D 
<-> 
[. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D ) ) ).
25 bibi1 329 . . . . 5  |-  ( (
[. A  /  x ]. C  C_  D  <->  [. A  /  x ]. A. y ( y  e.  C  -> 
y  e.  D ) )  ->  ( ( [. A  /  x ]. C  C_  D  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  <->  ( [. A  /  x ]. A. y
( y  e.  C  ->  y  e.  D )  <->  A. y ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) ) ) )
2625biimprcd 229 . . . 4  |-  ( (
[. A  /  x ]. A. y ( y  e.  C  ->  y  e.  D )  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  ->  ( ( [. A  /  x ]. C  C_  D  <->  [. A  /  x ]. A. y ( y  e.  C  -> 
y  e.  D ) )  ->  ( [. A  /  x ]. C  C_  D  <->  A. y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ) )
2720, 24, 26e11 37067 . . 3  |-  (. A  e.  B  ->.  ( [. A  /  x ]. C  C_  D 
<-> 
A. y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) ).
28 dfss2 3421 . . 3  |-  ( [_ A  /  x ]_ C  C_ 
[_ A  /  x ]_ D  <->  A. y ( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )
29 biantr 942 . . . 4  |-  ( ( ( [. A  /  x ]. C  C_  D  <->  A. y ( y  e. 
[_ A  /  x ]_ C  ->  y  e. 
[_ A  /  x ]_ D ) )  /\  ( [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) ) )  ->  ( [. A  /  x ]. C  C_  D  <->  [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D ) )
3029ex 436 . . 3  |-  ( (
[. A  /  x ]. C  C_  D  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  ->  ( ( [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D  <->  A. y
( y  e.  [_ A  /  x ]_ C  ->  y  e.  [_ A  /  x ]_ D ) )  ->  ( [. A  /  x ]. C  C_  D  <->  [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D ) ) )
3127, 28, 30e10 37073 . 2  |-  (. A  e.  B  ->.  ( [. A  /  x ]. C  C_  D 
<-> 
[_ A  /  x ]_ C  C_  [_ A  /  x ]_ D ) ).
3231in1 36941 1  |-  ( A  e.  B  ->  ( [. A  /  x ]. C  C_  D  <->  [_ A  /  x ]_ C  C_  [_ A  /  x ]_ D ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 188   A.wal 1442    e. wcel 1887   [.wsbc 3267   [_csb 3363    C_ wss 3404
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-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-v 3047  df-sbc 3268  df-csb 3364  df-in 3411  df-ss 3418  df-vd1 36940
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator