Metamath Proof Explorer

Theorem nosupprefixmo

Description: In any class of surreals, there is at most one value of the prefix property. (Contributed by Scott Fenton, 26-Nov-2021)

Ref Expression
Assertion nosupprefixmo 
|- ( A C_ No -> E* x E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) )

Proof

Step Hyp Ref Expression
1 reeanv 
 |-  ( E. u e. A E. p e. A ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) <-> ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ E. p e. A ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) )
2 breq1 
 |-  ( v = u -> ( v  u
3 2 notbid 
 |-  ( v = u -> ( -. v  -. u
4 reseq1 
 |-  ( v = u -> ( v |` suc G ) = ( u |` suc G ) )
5 4 eqeq2d 
 |-  ( v = u -> ( ( p |` suc G ) = ( v |` suc G ) <-> ( p |` suc G ) = ( u |` suc G ) ) )
6 3 5 imbi12d 
 |-  ( v = u -> ( ( -. v  ( p |` suc G ) = ( v |` suc G ) ) <-> ( -. u  ( p |` suc G ) = ( u |` suc G ) ) ) )
7 simprr2 
 |-  ( ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) -> A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) )
8 7 adantl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) )
9 simprll 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> u e. A )
10 6 8 9 rspcdva 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( -. u  ( p |` suc G ) = ( u |` suc G ) ) )
11 eqcom 
 |-  ( ( p |` suc G ) = ( u |` suc G ) <-> ( u |` suc G ) = ( p |` suc G ) )
12 10 11 syl6ib 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( -. u  ( u |` suc G ) = ( p |` suc G ) ) )
13 breq1 
 |-  ( v = p -> ( v  p
14 13 notbid 
 |-  ( v = p -> ( -. v  -. p
15 reseq1 
 |-  ( v = p -> ( v |` suc G ) = ( p |` suc G ) )
16 15 eqeq2d 
 |-  ( v = p -> ( ( u |` suc G ) = ( v |` suc G ) <-> ( u |` suc G ) = ( p |` suc G ) ) )
17 14 16 imbi12d 
 |-  ( v = p -> ( ( -. v  ( u |` suc G ) = ( v |` suc G ) ) <-> ( -. p  ( u |` suc G ) = ( p |` suc G ) ) ) )
18 simprl2 
 |-  ( ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) -> A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) )
19 18 adantl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) )
20 simprlr 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> p e. A )
21 17 19 20 rspcdva 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( -. p  ( u |` suc G ) = ( p |` suc G ) ) )
22 simpl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> A C_ No )
23 22 9 sseldd 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> u e. No )
24 22 20 sseldd 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> p e. No )
25 sltso 
 |-
26 soasym 
 |-  ( (  ( u  -. p
27 25 26 mpan 
 |-  ( ( u e. No /\ p e. No ) -> ( u  -. p
28 23 24 27 syl2anc 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( u  -. p
29 pm4.62 
 |-  ( ( u  -. p  ( -. u
30 28 29 sylib 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( -. u
31 12 21 30 mpjaod 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( u |` suc G ) = ( p |` suc G ) )
32 31 fveq1d 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( ( u |` suc G ) ` G ) = ( ( p |` suc G ) ` G ) )
33 simprl1 
 |-  ( ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) -> G e. dom u )
34 33 adantl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> G e. dom u )
35 sucidg 
 |-  ( G e. dom u -> G e. suc G )
36 34 35 syl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> G e. suc G )
37 36 fvresd 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( ( u |` suc G ) ` G ) = ( u ` G ) )
38 36 fvresd 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( ( p |` suc G ) ` G ) = ( p ` G ) )
39 32 37 38 3eqtr3d 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( u ` G ) = ( p ` G ) )
40 simprl3 
 |-  ( ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) -> ( u ` G ) = x )
41 40 adantl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( u ` G ) = x )
42 simprr3 
 |-  ( ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) -> ( p ` G ) = y )
43 42 adantl 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> ( p ` G ) = y )
44 39 41 43 3eqtr3d 
 |-  ( ( A C_ No /\ ( ( u e. A /\ p e. A ) /\ ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) ) ) -> x = y )
45 44 expr 
 |-  ( ( A C_ No /\ ( u e. A /\ p e. A ) ) -> ( ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) -> x = y ) )
46 45 rexlimdvva 
 |-  ( A C_ No -> ( E. u e. A E. p e. A ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) -> x = y ) )
47 1 46 syl5bir 
 |-  ( A C_ No -> ( ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ E. p e. A ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) -> x = y ) )
48 47 alrimivv 
 |-  ( A C_ No -> A. x A. y ( ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ E. p e. A ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) -> x = y ) )
49 eqeq2 
 |-  ( x = y -> ( ( u ` G ) = x <-> ( u ` G ) = y ) )
50 49 3anbi3d 
 |-  ( x = y -> ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) <-> ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = y ) ) )
51 50 rexbidv 
 |-  ( x = y -> ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) <-> E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = y ) ) )
52 dmeq 
 |-  ( u = p -> dom u = dom p )
53 52 eleq2d 
 |-  ( u = p -> ( G e. dom u <-> G e. dom p ) )
54 breq2 
 |-  ( u = p -> ( v  v
55 54 notbid 
 |-  ( u = p -> ( -. v  -. v
56 reseq1 
 |-  ( u = p -> ( u |` suc G ) = ( p |` suc G ) )
57 56 eqeq1d 
 |-  ( u = p -> ( ( u |` suc G ) = ( v |` suc G ) <-> ( p |` suc G ) = ( v |` suc G ) ) )
58 55 57 imbi12d 
 |-  ( u = p -> ( ( -. v  ( u |` suc G ) = ( v |` suc G ) ) <-> ( -. v  ( p |` suc G ) = ( v |` suc G ) ) ) )
59 58 ralbidv 
 |-  ( u = p -> ( A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) <-> A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) ) )
60 fveq1 
 |-  ( u = p -> ( u ` G ) = ( p ` G ) )
61 60 eqeq1d 
 |-  ( u = p -> ( ( u ` G ) = y <-> ( p ` G ) = y ) )
62 53 59 61 3anbi123d 
 |-  ( u = p -> ( ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = y ) <-> ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) )
63 62 cbvrexvw 
 |-  ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = y ) <-> E. p e. A ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) )
64 51 63 bitrdi 
 |-  ( x = y -> ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) <-> E. p e. A ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) )
65 64 mo4 
 |-  ( E* x E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) <-> A. x A. y ( ( E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) /\ E. p e. A ( G e. dom p /\ A. v e. A ( -. v  ( p |` suc G ) = ( v |` suc G ) ) /\ ( p ` G ) = y ) ) -> x = y ) )
66 48 65 sylibr 
 |-  ( A C_ No -> E* x E. u e. A ( G e. dom u /\ A. v e. A ( -. v  ( u |` suc G ) = ( v |` suc G ) ) /\ ( u ` G ) = x ) )