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 ANo*xuAGdomuvA¬v<suusucG=vsucGuG=x

Proof

Step Hyp Ref Expression
1 reeanv uApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yuAGdomuvA¬v<suusucG=vsucGuG=xpAGdompvA¬v<sppsucG=vsucGpG=y
2 breq1 v=uv<spu<sp
3 2 notbid v=u¬v<sp¬u<sp
4 reseq1 v=uvsucG=usucG
5 4 eqeq2d v=upsucG=vsucGpsucG=usucG
6 3 5 imbi12d v=u¬v<sppsucG=vsucG¬u<sppsucG=usucG
7 simprr2 uApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yvA¬v<sppsucG=vsucG
8 7 adantl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yvA¬v<sppsucG=vsucG
9 simprll ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yuA
10 6 8 9 rspcdva ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=y¬u<sppsucG=usucG
11 eqcom psucG=usucGusucG=psucG
12 10 11 imbitrdi ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=y¬u<spusucG=psucG
13 breq1 v=pv<sup<su
14 13 notbid v=p¬v<su¬p<su
15 reseq1 v=pvsucG=psucG
16 15 eqeq2d v=pusucG=vsucGusucG=psucG
17 14 16 imbi12d v=p¬v<suusucG=vsucG¬p<suusucG=psucG
18 simprl2 uApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yvA¬v<suusucG=vsucG
19 18 adantl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yvA¬v<suusucG=vsucG
20 simprlr ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=ypA
21 17 19 20 rspcdva ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=y¬p<suusucG=psucG
22 simpl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yANo
23 22 9 sseldd ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yuNo
24 22 20 sseldd ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=ypNo
25 sltso <sOrNo
26 soasym <sOrNouNopNou<sp¬p<su
27 25 26 mpan uNopNou<sp¬p<su
28 23 24 27 syl2anc ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yu<sp¬p<su
29 pm4.62 u<sp¬p<su¬u<sp¬p<su
30 28 29 sylib ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=y¬u<sp¬p<su
31 12 21 30 mpjaod ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yusucG=psucG
32 31 fveq1d ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yusucGG=psucGG
33 simprl1 uApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yGdomu
34 33 adantl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yGdomu
35 sucidg GdomuGsucG
36 34 35 syl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yGsucG
37 36 fvresd ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yusucGG=uG
38 36 fvresd ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=ypsucGG=pG
39 32 37 38 3eqtr3d ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yuG=pG
40 simprl3 uApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yuG=x
41 40 adantl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yuG=x
42 simprr3 uApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=ypG=y
43 42 adantl ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=ypG=y
44 39 41 43 3eqtr3d ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yx=y
45 44 expr ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yx=y
46 45 rexlimdvva ANouApAGdomuvA¬v<suusucG=vsucGuG=xGdompvA¬v<sppsucG=vsucGpG=yx=y
47 1 46 biimtrrid ANouAGdomuvA¬v<suusucG=vsucGuG=xpAGdompvA¬v<sppsucG=vsucGpG=yx=y
48 47 alrimivv ANoxyuAGdomuvA¬v<suusucG=vsucGuG=xpAGdompvA¬v<sppsucG=vsucGpG=yx=y
49 eqeq2 x=yuG=xuG=y
50 49 3anbi3d x=yGdomuvA¬v<suusucG=vsucGuG=xGdomuvA¬v<suusucG=vsucGuG=y
51 50 rexbidv x=yuAGdomuvA¬v<suusucG=vsucGuG=xuAGdomuvA¬v<suusucG=vsucGuG=y
52 dmeq u=pdomu=domp
53 52 eleq2d u=pGdomuGdomp
54 breq2 u=pv<suv<sp
55 54 notbid u=p¬v<su¬v<sp
56 reseq1 u=pusucG=psucG
57 56 eqeq1d u=pusucG=vsucGpsucG=vsucG
58 55 57 imbi12d u=p¬v<suusucG=vsucG¬v<sppsucG=vsucG
59 58 ralbidv u=pvA¬v<suusucG=vsucGvA¬v<sppsucG=vsucG
60 fveq1 u=puG=pG
61 60 eqeq1d u=puG=ypG=y
62 53 59 61 3anbi123d u=pGdomuvA¬v<suusucG=vsucGuG=yGdompvA¬v<sppsucG=vsucGpG=y
63 62 cbvrexvw uAGdomuvA¬v<suusucG=vsucGuG=ypAGdompvA¬v<sppsucG=vsucGpG=y
64 51 63 bitrdi x=yuAGdomuvA¬v<suusucG=vsucGuG=xpAGdompvA¬v<sppsucG=vsucGpG=y
65 64 mo4 *xuAGdomuvA¬v<suusucG=vsucGuG=xxyuAGdomuvA¬v<suusucG=vsucGuG=xpAGdompvA¬v<sppsucG=vsucGpG=yx=y
66 48 65 sylibr ANo*xuAGdomuvA¬v<suusucG=vsucGuG=x