This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem prter3

Description: For every partition there exists a unique equivalence relation whose quotient set equals the partition. (Contributed by Rodolfo Medina, 19-Oct-2010) (Proof shortened by Mario Carneiro, 12-Aug-2015)

Ref Expression
Hypothesis prtlem18.1 
|- .~ = { <. x , y >. | E. u e. A ( x e. u /\ y e. u ) }
Assertion prter3 
|- ( ( S Er U. A /\ ( U. A /. S ) = ( A \ { (/) } ) ) -> .~ = S )

Proof

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 bitrid 
 |-  ( ( 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 )