MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  isfildlem Unicode version

Theorem isfildlem 17552
Description: Lemma for isfild 17553. (Contributed by Mario Carneiro, 1-Dec-2013.)
Hypotheses
Ref Expression
isfild.1  |-  ( ph  ->  ( x  e.  F  <->  ( x  C_  A  /\  ps ) ) )
isfild.2  |-  ( ph  ->  A  e.  _V )
Assertion
Ref Expression
isfildlem  |-  ( ph  ->  ( B  e.  F  <->  ( B  C_  A  /\  [. B  /  x ]. ps ) ) )
Distinct variable groups:    x, A    x, F    ph, x
Allowed substitution hints:    ps( x)    B( x)

Proof of Theorem isfildlem
Dummy variable  y is distinct from all other variables.
StepHypRef Expression
1 elex 2796 . . 3  |-  ( B  e.  F  ->  B  e.  _V )
21a1i 10 . 2  |-  ( ph  ->  ( B  e.  F  ->  B  e.  _V )
)
3 isfild.2 . . . 4  |-  ( ph  ->  A  e.  _V )
4 ssexg 4160 . . . . 5  |-  ( ( B  C_  A  /\  A  e.  _V )  ->  B  e.  _V )
54expcom 424 . . . 4  |-  ( A  e.  _V  ->  ( B  C_  A  ->  B  e.  _V ) )
63, 5syl 15 . . 3  |-  ( ph  ->  ( B  C_  A  ->  B  e.  _V )
)
76adantrd 454 . 2  |-  ( ph  ->  ( ( B  C_  A  /\  [. B  /  x ]. ps )  ->  B  e.  _V )
)
8 eleq1 2343 . . . . . 6  |-  ( y  =  B  ->  (
y  e.  F  <->  B  e.  F ) )
9 sseq1 3199 . . . . . . 7  |-  ( y  =  B  ->  (
y  C_  A  <->  B  C_  A
) )
10 dfsbcq 2993 . . . . . . 7  |-  ( y  =  B  ->  ( [. y  /  x ]. ps  <->  [. B  /  x ]. ps ) )
119, 10anbi12d 691 . . . . . 6  |-  ( y  =  B  ->  (
( y  C_  A  /\  [. y  /  x ]. ps )  <->  ( B  C_  A  /\  [. B  /  x ]. ps )
) )
128, 11bibi12d 312 . . . . 5  |-  ( y  =  B  ->  (
( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) )  <->  ( B  e.  F  <->  ( B  C_  A  /\  [. B  /  x ]. ps ) ) ) )
1312imbi2d 307 . . . 4  |-  ( y  =  B  ->  (
( ph  ->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps )
) )  <->  ( ph  ->  ( B  e.  F  <->  ( B  C_  A  /\  [. B  /  x ]. ps ) ) ) ) )
14 nfv 1605 . . . . . 6  |-  F/ x ph
15 nfv 1605 . . . . . . 7  |-  F/ x  y  e.  F
16 nfv 1605 . . . . . . . 8  |-  F/ x  y  C_  A
17 nfsbc1v 3010 . . . . . . . 8  |-  F/ x [. y  /  x ]. ps
1816, 17nfan 1771 . . . . . . 7  |-  F/ x
( y  C_  A  /\  [. y  /  x ]. ps )
1915, 18nfbi 1772 . . . . . 6  |-  F/ x
( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) )
2014, 19nfim 1769 . . . . 5  |-  F/ x
( ph  ->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps )
) )
21 eleq1 2343 . . . . . . 7  |-  ( x  =  y  ->  (
x  e.  F  <->  y  e.  F ) )
22 sseq1 3199 . . . . . . . 8  |-  ( x  =  y  ->  (
x  C_  A  <->  y  C_  A ) )
23 sbceq1a 3001 . . . . . . . 8  |-  ( x  =  y  ->  ( ps 
<-> 
[. y  /  x ]. ps ) )
2422, 23anbi12d 691 . . . . . . 7  |-  ( x  =  y  ->  (
( x  C_  A  /\  ps )  <->  ( y  C_  A  /\  [. y  /  x ]. ps )
) )
2521, 24bibi12d 312 . . . . . 6  |-  ( x  =  y  ->  (
( x  e.  F  <->  ( x  C_  A  /\  ps ) )  <->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) ) ) )
2625imbi2d 307 . . . . 5  |-  ( x  =  y  ->  (
( ph  ->  ( x  e.  F  <->  ( x  C_  A  /\  ps )
) )  <->  ( ph  ->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) ) ) ) )
27 isfild.1 . . . . 5  |-  ( ph  ->  ( x  e.  F  <->  ( x  C_  A  /\  ps ) ) )
2820, 26, 27chvar 1926 . . . 4  |-  ( ph  ->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) ) )
2913, 28vtoclg 2843 . . 3  |-  ( B  e.  _V  ->  ( ph  ->  ( B  e.  F  <->  ( B  C_  A  /\  [. B  /  x ]. ps ) ) ) )
3029com12 27 . 2  |-  ( ph  ->  ( B  e.  _V  ->  ( B  e.  F  <->  ( B  C_  A  /\  [. B  /  x ]. ps ) ) ) )
312, 7, 30pm5.21ndd 343 1  |-  ( ph  ->  ( B  e.  F  <->  ( B  C_  A  /\  [. B  /  x ]. ps ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358    = wceq 1623    e. wcel 1684   _Vcvv 2788   [.wsbc 2991    C_ wss 3152
This theorem is referenced by:  isfild  17553
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264  ax-sep 4141
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-clab 2270  df-cleq 2276  df-clel 2279  df-nfc 2408  df-v 2790  df-sbc 2992  df-in 3159  df-ss 3166
  Copyright terms: Public domain W3C validator