Users' Mathboxes Mathbox for Wolf Lammen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  wl-2sb6d Structured version   Unicode version

Theorem wl-2sb6d 31795
Description: Version of 2sb6 2250 with a context, and distinct variable conditions replaced with distinctors. (Contributed by Wolf Lammen, 4-Aug-2019.)
Hypotheses
Ref Expression
wl-2sb6d.1  |-  ( ph  ->  -.  A. y  y  =  x )
wl-2sb6d.2  |-  ( ph  ->  -.  A. y  y  =  w )
wl-2sb6d.3  |-  ( ph  ->  -.  A. y  y  =  z )
wl-2sb6d.4  |-  ( ph  ->  -.  A. x  x  =  z )
Assertion
Ref Expression
wl-2sb6d  |-  ( ph  ->  ( [ z  /  x ] [ w  / 
y ] ps  <->  A. x A. y ( ( x  =  z  /\  y  =  w )  ->  ps ) ) )

Proof of Theorem wl-2sb6d
StepHypRef Expression
1 wl-2sb6d.4 . 2  |-  ( ph  ->  -.  A. x  x  =  z )
2 wl-2sb6d.2 . 2  |-  ( ph  ->  -.  A. y  y  =  w )
3 wl-2sb6d.1 . . 3  |-  ( ph  ->  -.  A. y  y  =  x )
4 wl-2sb6d.3 . . 3  |-  ( ph  ->  -.  A. y  y  =  z )
53, 4jca 534 . 2  |-  ( ph  ->  ( -.  A. y 
y  =  x  /\  -.  A. y  y  =  z ) )
6 wl-sb6nae 31793 . . 3  |-  ( -. 
A. x  x  =  z  ->  ( [
z  /  x ] [ w  /  y ] ps  <->  A. x ( x  =  z  ->  [ w  /  y ] ps ) ) )
7 nfnae 2124 . . . . 5  |-  F/ x  -.  A. y  y  =  w
8 wl-nfnae1 31768 . . . . . 6  |-  F/ x  -.  A. y  y  =  x
9 nfnae 2124 . . . . . 6  |-  F/ x  -.  A. y  y  =  z
108, 9nfan 1988 . . . . 5  |-  F/ x
( -.  A. y 
y  =  x  /\  -.  A. y  y  =  z )
117, 10nfan 1988 . . . 4  |-  F/ x
( -.  A. y 
y  =  w  /\  ( -.  A. y 
y  =  x  /\  -.  A. y  y  =  z ) )
12 wl-sb6nae 31793 . . . . . 6  |-  ( -. 
A. y  y  =  w  ->  ( [
w  /  y ] ps  <->  A. y ( y  =  w  ->  ps ) ) )
1312imbi2d 317 . . . . 5  |-  ( -. 
A. y  y  =  w  ->  ( (
x  =  z  ->  [ w  /  y ] ps )  <->  ( x  =  z  ->  A. y
( y  =  w  ->  ps ) ) ) )
14 impexp 447 . . . . . . 7  |-  ( ( ( x  =  z  /\  y  =  w )  ->  ps )  <->  ( x  =  z  -> 
( y  =  w  ->  ps ) ) )
1514albii 1685 . . . . . 6  |-  ( A. y ( ( x  =  z  /\  y  =  w )  ->  ps ) 
<-> 
A. y ( x  =  z  ->  (
y  =  w  ->  ps ) ) )
16 nfeqf 2111 . . . . . . 7  |-  ( ( -.  A. y  y  =  x  /\  -.  A. y  y  =  z )  ->  F/ y  x  =  z )
17 19.21t 1963 . . . . . . 7  |-  ( F/ y  x  =  z  ->  ( A. y
( x  =  z  ->  ( y  =  w  ->  ps )
)  <->  ( x  =  z  ->  A. y
( y  =  w  ->  ps ) ) ) )
1816, 17syl 17 . . . . . 6  |-  ( ( -.  A. y  y  =  x  /\  -.  A. y  y  =  z )  ->  ( A. y ( x  =  z  ->  ( y  =  w  ->  ps )
)  <->  ( x  =  z  ->  A. y
( y  =  w  ->  ps ) ) ) )
1915, 18syl5rbb 261 . . . . 5  |-  ( ( -.  A. y  y  =  x  /\  -.  A. y  y  =  z )  ->  ( (
x  =  z  ->  A. y ( y  =  w  ->  ps )
)  <->  A. y ( ( x  =  z  /\  y  =  w )  ->  ps ) ) )
2013, 19sylan9bb 704 . . . 4  |-  ( ( -.  A. y  y  =  w  /\  ( -.  A. y  y  =  x  /\  -.  A. y  y  =  z
) )  ->  (
( x  =  z  ->  [ w  / 
y ] ps )  <->  A. y ( ( x  =  z  /\  y  =  w )  ->  ps ) ) )
2111, 20albid 1940 . . 3  |-  ( ( -.  A. y  y  =  w  /\  ( -.  A. y  y  =  x  /\  -.  A. y  y  =  z
) )  ->  ( A. x ( x  =  z  ->  [ w  /  y ] ps ) 
<-> 
A. x A. y
( ( x  =  z  /\  y  =  w )  ->  ps ) ) )
226, 21sylan9bb 704 . 2  |-  ( ( -.  A. x  x  =  z  /\  ( -.  A. y  y  =  w  /\  ( -. 
A. y  y  =  x  /\  -.  A. y  y  =  z
) ) )  -> 
( [ z  /  x ] [ w  / 
y ] ps  <->  A. x A. y ( ( x  =  z  /\  y  =  w )  ->  ps ) ) )
231, 2, 5, 22syl12anc 1262 1  |-  ( ph  ->  ( [ z  /  x ] [ w  / 
y ] ps  <->  A. x A. y ( ( x  =  z  /\  y  =  w )  ->  ps ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 187    /\ wa 370   A.wal 1435   F/wnf 1661   [wsb 1790
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2063
This theorem depends on definitions:  df-bi 188  df-an 372  df-ex 1658  df-nf 1662  df-sb 1791
This theorem is referenced by:  wl-sbcom2d-lem2  31797
  Copyright terms: Public domain W3C validator