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

Metamath Proof Explorer

Theorem sorpssuni

Description: In a chain of sets, a maximal element is the union of the chain. (Contributed by Stefan O'Rear, 2-Nov-2014)

Ref Expression
Assertion sorpssuni 
|- ( [C.] Or Y -> ( E. u e. Y A. v e. Y -. u C. v <-> U. Y e. Y ) )

Proof

Step Hyp Ref Expression
1 sorpssi 
 |-  ( ( [C.] Or Y /\ ( u e. Y /\ v e. Y ) ) -> ( u C_ v \/ v C_ u ) )
2 1 anassrs 
 |-  ( ( ( [C.] Or Y /\ u e. Y ) /\ v e. Y ) -> ( u C_ v \/ v C_ u ) )
3 sspss 
 |-  ( u C_ v <-> ( u C. v \/ u = v ) )
4 orel1 
 |-  ( -. u C. v -> ( ( u C. v \/ u = v ) -> u = v ) )
5 eqimss2 
 |-  ( u = v -> v C_ u )
6 4 5 syl6com 
 |-  ( ( u C. v \/ u = v ) -> ( -. u C. v -> v C_ u ) )
7 3 6 sylbi 
 |-  ( u C_ v -> ( -. u C. v -> v C_ u ) )
8 ax-1 
 |-  ( v C_ u -> ( -. u C. v -> v C_ u ) )
9 7 8 jaoi 
 |-  ( ( u C_ v \/ v C_ u ) -> ( -. u C. v -> v C_ u ) )
10 2 9 syl 
 |-  ( ( ( [C.] Or Y /\ u e. Y ) /\ v e. Y ) -> ( -. u C. v -> v C_ u ) )
11 10 ralimdva 
 |-  ( ( [C.] Or Y /\ u e. Y ) -> ( A. v e. Y -. u C. v -> A. v e. Y v C_ u ) )
12 11 3impia 
 |-  ( ( [C.] Or Y /\ u e. Y /\ A. v e. Y -. u C. v ) -> A. v e. Y v C_ u )
13 unissb 
 |-  ( U. Y C_ u <-> A. v e. Y v C_ u )
14 12 13 sylibr 
 |-  ( ( [C.] Or Y /\ u e. Y /\ A. v e. Y -. u C. v ) -> U. Y C_ u )
15 elssuni 
 |-  ( u e. Y -> u C_ U. Y )
16 15 3ad2ant2 
 |-  ( ( [C.] Or Y /\ u e. Y /\ A. v e. Y -. u C. v ) -> u C_ U. Y )
17 14 16 eqssd 
 |-  ( ( [C.] Or Y /\ u e. Y /\ A. v e. Y -. u C. v ) -> U. Y = u )
18 simp2 
 |-  ( ( [C.] Or Y /\ u e. Y /\ A. v e. Y -. u C. v ) -> u e. Y )
19 17 18 eqeltrd 
 |-  ( ( [C.] Or Y /\ u e. Y /\ A. v e. Y -. u C. v ) -> U. Y e. Y )
20 19 rexlimdv3a 
 |-  ( [C.] Or Y -> ( E. u e. Y A. v e. Y -. u C. v -> U. Y e. Y ) )
21 elssuni 
 |-  ( v e. Y -> v C_ U. Y )
22 ssnpss 
 |-  ( v C_ U. Y -> -. U. Y C. v )
23 21 22 syl 
 |-  ( v e. Y -> -. U. Y C. v )
24 23 rgen 
 |-  A. v e. Y -. U. Y C. v
25 psseq1 
 |-  ( u = U. Y -> ( u C. v <-> U. Y C. v ) )
26 25 notbid 
 |-  ( u = U. Y -> ( -. u C. v <-> -. U. Y C. v ) )
27 26 ralbidv 
 |-  ( u = U. Y -> ( A. v e. Y -. u C. v <-> A. v e. Y -. U. Y C. v ) )
28 27 rspcev 
 |-  ( ( U. Y e. Y /\ A. v e. Y -. U. Y C. v ) -> E. u e. Y A. v e. Y -. u C. v )
29 24 28 mpan2 
 |-  ( U. Y e. Y -> E. u e. Y A. v e. Y -. u C. v )
30 20 29 impbid1 
 |-  ( [C.] Or Y -> ( E. u e. Y A. v e. Y -. u C. v <-> U. Y e. Y ) )