Step |
Hyp |
Ref |
Expression |
1 |
|
prtlem18.1 |
|- .~ = { <. x , y >. | E. u e. A ( x e. u /\ y e. u ) } |
2 |
|
errel |
|- ( S Er U. A -> Rel S ) |
3 |
2
|
adantr |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> Rel S ) |
4 |
1
|
relopabiv |
|- Rel .~ |
5 |
1
|
prtlem13 |
|- ( z .~ w <-> E. v e. A ( z e. v /\ w e. v ) ) |
6 |
|
simpll |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> S Er U. A ) |
7 |
|
simprl |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> v e. A ) |
8 |
|
ne0i |
|- ( z e. v -> v =/= (/) ) |
9 |
8
|
ad2antll |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> v =/= (/) ) |
10 |
|
eldifsn |
|- ( v e. ( A \ { (/) } ) <-> ( v e. A /\ v =/= (/) ) ) |
11 |
7 9 10
|
sylanbrc |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> v e. ( A \ { (/) } ) ) |
12 |
|
simplr |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> ( U. A /. S ) = ( A \ { (/) } ) ) |
13 |
11 12
|
eleqtrrd |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> v e. ( U. A /. S ) ) |
14 |
|
simprr |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> z e. v ) |
15 |
|
qsel |
|- ( ( S Er U. A /\ v e. ( U. A /. S ) /\ z e. v ) -> v = [ z ] S ) |
16 |
6 13 14 15
|
syl3anc |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> v = [ z ] S ) |
17 |
16
|
eleq2d |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> ( w e. v <-> w e. [ z ] S ) ) |
18 |
|
vex |
|- w e. _V |
19 |
|
vex |
|- z e. _V |
20 |
18 19
|
elec |
|- ( w e. [ z ] S <-> z S w ) |
21 |
17 20
|
bitrdi |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ ( v e. A /\ z e. v ) ) -> ( w e. v <-> z S w ) ) |
22 |
21
|
anassrs |
|- ( ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ v e. A ) /\ z e. v ) -> ( w e. v <-> z S w ) ) |
23 |
22
|
pm5.32da |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ v e. A ) -> ( ( z e. v /\ w e. v ) <-> ( z e. v /\ z S w ) ) ) |
24 |
23
|
rexbidva |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> ( E. v e. A ( z e. v /\ w e. v ) <-> E. v e. A ( z e. v /\ z S w ) ) ) |
25 |
|
simpll |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ z S w ) -> S Er U. A ) |
26 |
|
simpr |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ z S w ) -> z S w ) |
27 |
25 26
|
ercl |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ z S w ) -> z e. U. A ) |
28 |
|
eluni2 |
|- ( z e. U. A <-> E. v e. A z e. v ) |
29 |
27 28
|
sylib |
|- ( ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) /\ z S w ) -> E. v e. A z e. v ) |
30 |
29
|
ex |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> ( z S w -> E. v e. A z e. v ) ) |
31 |
30
|
pm4.71rd |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> ( z S w <-> ( E. v e. A z e. v /\ z S w ) ) ) |
32 |
|
r19.41v |
|- ( E. v e. A ( z e. v /\ z S w ) <-> ( E. v e. A z e. v /\ z S w ) ) |
33 |
31 32
|
bitr4di |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> ( z S w <-> E. v e. A ( z e. v /\ z S w ) ) ) |
34 |
24 33
|
bitr4d |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> ( E. v e. A ( z e. v /\ w e. v ) <-> z S w ) ) |
35 |
5 34
|
syl5bb |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> ( z .~ w <-> z S w ) ) |
36 |
35
|
adantl |
|- ( ( ( Rel .~ /\ Rel S ) /\ ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) ) -> ( z .~ w <-> z S w ) ) |
37 |
36
|
eqbrrdv2 |
|- ( ( ( Rel .~ /\ Rel S ) /\ ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) ) -> .~ = S ) |
38 |
4 37
|
mpanl1 |
|- ( ( Rel S /\ ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) ) -> .~ = S ) |
39 |
3 38
|
mpancom |
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> .~ = S ) |