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

Theorem isfildlem 17648
Description: Lemma for isfild 17649. (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 2872 . . 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 4239 . . . . 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 2418 . . . . . 6  |-  ( y  =  B  ->  (
y  e.  F  <->  B  e.  F ) )
9 sseq1 3275 . . . . . . 7  |-  ( y  =  B  ->  (
y  C_  A  <->  B  C_  A
) )
10 dfsbcq 3069 . . . . . . 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 1619 . . . . . 6  |-  F/ x ph
15 nfv 1619 . . . . . . 7  |-  F/ x  y  e.  F
16 nfv 1619 . . . . . . . 8  |-  F/ x  y  C_  A
17 nfsbc1v 3086 . . . . . . . 8  |-  F/ x [. y  /  x ]. ps
1816, 17nfan 1829 . . . . . . 7  |-  F/ x
( y  C_  A  /\  [. y  /  x ]. ps )
1915, 18nfbi 1839 . . . . . 6  |-  F/ x
( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) )
2014, 19nfim 1815 . . . . 5  |-  F/ x
( ph  ->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps )
) )
21 eleq1 2418 . . . . . . 7  |-  ( x  =  y  ->  (
x  e.  F  <->  y  e.  F ) )
22 sseq1 3275 . . . . . . . 8  |-  ( x  =  y  ->  (
x  C_  A  <->  y  C_  A ) )
23 sbceq1a 3077 . . . . . . . 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 1991 . . . 4  |-  ( ph  ->  ( y  e.  F  <->  ( y  C_  A  /\  [. y  /  x ]. ps ) ) )
2913, 28vtoclg 2919 . . 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 1642    e. wcel 1710   _Vcvv 2864   [.wsbc 3067    C_ wss 3228
This theorem is referenced by:  isfild  17649
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-sep 4220
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-v 2866  df-sbc 3068  df-in 3235  df-ss 3242
  Copyright terms: Public domain W3C validator