Metamath Proof Explorer


Theorem scutun12

Description: Union law for surreal cuts. (Contributed by Scott Fenton, 9-Dec-2021)

Ref Expression
Assertion scutun12 AsBCsA|sBA|sBsDAC|sBD=A|sB

Proof

Step Hyp Ref Expression
1 simp1 AsBCsA|sBA|sBsDAsB
2 scutcut AsBA|sBNoAsA|sBA|sBsB
3 1 2 syl AsBCsA|sBA|sBsDA|sBNoAsA|sBA|sBsB
4 3 simp2d AsBCsA|sBA|sBsDAsA|sB
5 simp2 AsBCsA|sBA|sBsDCsA|sB
6 ssltun1 AsA|sBCsA|sBACsA|sB
7 4 5 6 syl2anc AsBCsA|sBA|sBsDACsA|sB
8 3 simp3d AsBCsA|sBA|sBsDA|sBsB
9 simp3 AsBCsA|sBA|sBsDA|sBsD
10 ssltun2 A|sBsBA|sBsDA|sBsBD
11 8 9 10 syl2anc AsBCsA|sBA|sBsDA|sBsBD
12 ovex A|sBV
13 12 snnz A|sB
14 sslttr ACsA|sBA|sBsBDA|sBACsBD
15 13 14 mp3an3 ACsA|sBA|sBsBDACsBD
16 7 11 15 syl2anc AsBCsA|sBA|sBsDACsBD
17 scutval ACsBDAC|sBD=ιxyNo|ACsyysBD|bdayx=bdayyNo|ACsyysBD
18 16 17 syl AsBCsA|sBA|sBsDAC|sBD=ιxyNo|ACsyysBD|bdayx=bdayyNo|ACsyysBD
19 vex xV
20 19 elima xbdayyNo|ACsyysBDzyNo|ACsyysBDzbdayx
21 sneq y=zy=z
22 21 breq2d y=zACsyACsz
23 21 breq1d y=zysBDzsBD
24 22 23 anbi12d y=zACsyysBDACszzsBD
25 24 rexrab zyNo|ACsyysBDzbdayxzNoACszzsBDzbdayx
26 20 25 bitri xbdayyNo|ACsyysBDzNoACszzsBDzbdayx
27 simplr AsBCsA|sBA|sBsDzNoACszzsBDzNo
28 bdayfn bdayFnNo
29 fnbrfvb bdayFnNozNobdayz=xzbdayx
30 28 29 mpan zNobdayz=xzbdayx
31 27 30 syl AsBCsA|sBA|sBsDzNoACszzsBDbdayz=xzbdayx
32 simpll1 AsBCsA|sBA|sBsDzNoACszzsBDAsB
33 scutbday AsBbdayA|sB=bdayyNo|AsyysB
34 32 33 syl AsBCsA|sBA|sBsDzNoACszzsBDbdayA|sB=bdayyNo|AsyysB
35 simprl AsBCsA|sBA|sBsDzNoACszzsBDACsz
36 ssun1 AAC
37 sssslt1 ACszAACAsz
38 36 37 mpan2 ACszAsz
39 35 38 syl AsBCsA|sBA|sBsDzNoACszzsBDAsz
40 simprr AsBCsA|sBA|sBsDzNoACszzsBDzsBD
41 ssun1 BBD
42 sssslt2 zsBDBBDzsB
43 41 42 mpan2 zsBDzsB
44 40 43 syl AsBCsA|sBA|sBsDzNoACszzsBDzsB
45 39 44 jca AsBCsA|sBA|sBsDzNoACszzsBDAszzsB
46 21 breq2d y=zAsyAsz
47 21 breq1d y=zysBzsB
48 46 47 anbi12d y=zAsyysBAszzsB
49 48 elrab zyNo|AsyysBzNoAszzsB
50 27 45 49 sylanbrc AsBCsA|sBA|sBsDzNoACszzsBDzyNo|AsyysB
51 ssrab2 yNo|AsyysBNo
52 fnfvima bdayFnNoyNo|AsyysBNozyNo|AsyysBbdayzbdayyNo|AsyysB
53 28 51 52 mp3an12 zyNo|AsyysBbdayzbdayyNo|AsyysB
54 50 53 syl AsBCsA|sBA|sBsDzNoACszzsBDbdayzbdayyNo|AsyysB
55 intss1 bdayzbdayyNo|AsyysBbdayyNo|AsyysBbdayz
56 54 55 syl AsBCsA|sBA|sBsDzNoACszzsBDbdayyNo|AsyysBbdayz
57 34 56 eqsstrd AsBCsA|sBA|sBsDzNoACszzsBDbdayA|sBbdayz
58 sseq2 bdayz=xbdayA|sBbdayzbdayA|sBx
59 58 biimpd bdayz=xbdayA|sBbdayzbdayA|sBx
60 59 com12 bdayA|sBbdayzbdayz=xbdayA|sBx
61 57 60 syl AsBCsA|sBA|sBsDzNoACszzsBDbdayz=xbdayA|sBx
62 31 61 sylbird AsBCsA|sBA|sBsDzNoACszzsBDzbdayxbdayA|sBx
63 62 ex AsBCsA|sBA|sBsDzNoACszzsBDzbdayxbdayA|sBx
64 63 impd AsBCsA|sBA|sBsDzNoACszzsBDzbdayxbdayA|sBx
65 64 rexlimdva AsBCsA|sBA|sBsDzNoACszzsBDzbdayxbdayA|sBx
66 26 65 biimtrid AsBCsA|sBA|sBsDxbdayyNo|ACsyysBDbdayA|sBx
67 66 ralrimiv AsBCsA|sBA|sBsDxbdayyNo|ACsyysBDbdayA|sBx
68 ssint bdayA|sBbdayyNo|ACsyysBDxbdayyNo|ACsyysBDbdayA|sBx
69 67 68 sylibr AsBCsA|sBA|sBsDbdayA|sBbdayyNo|ACsyysBD
70 3 simp1d AsBCsA|sBA|sBsDA|sBNo
71 7 11 jca AsBCsA|sBA|sBsDACsA|sBA|sBsBD
72 sneq y=A|sBy=A|sB
73 72 breq2d y=A|sBACsyACsA|sB
74 72 breq1d y=A|sBysBDA|sBsBD
75 73 74 anbi12d y=A|sBACsyysBDACsA|sBA|sBsBD
76 75 elrab A|sByNo|ACsyysBDA|sBNoACsA|sBA|sBsBD
77 70 71 76 sylanbrc AsBCsA|sBA|sBsDA|sByNo|ACsyysBD
78 ssrab2 yNo|ACsyysBDNo
79 fnfvima bdayFnNoyNo|ACsyysBDNoA|sByNo|ACsyysBDbdayA|sBbdayyNo|ACsyysBD
80 28 78 79 mp3an12 A|sByNo|ACsyysBDbdayA|sBbdayyNo|ACsyysBD
81 77 80 syl AsBCsA|sBA|sBsDbdayA|sBbdayyNo|ACsyysBD
82 intss1 bdayA|sBbdayyNo|ACsyysBDbdayyNo|ACsyysBDbdayA|sB
83 81 82 syl AsBCsA|sBA|sBsDbdayyNo|ACsyysBDbdayA|sB
84 69 83 eqssd AsBCsA|sBA|sBsDbdayA|sB=bdayyNo|ACsyysBD
85 conway ACsBD∃!xyNo|ACsyysBDbdayx=bdayyNo|ACsyysBD
86 16 85 syl AsBCsA|sBA|sBsD∃!xyNo|ACsyysBDbdayx=bdayyNo|ACsyysBD
87 fveqeq2 x=A|sBbdayx=bdayyNo|ACsyysBDbdayA|sB=bdayyNo|ACsyysBD
88 87 riota2 A|sByNo|ACsyysBD∃!xyNo|ACsyysBDbdayx=bdayyNo|ACsyysBDbdayA|sB=bdayyNo|ACsyysBDιxyNo|ACsyysBD|bdayx=bdayyNo|ACsyysBD=A|sB
89 77 86 88 syl2anc AsBCsA|sBA|sBsDbdayA|sB=bdayyNo|ACsyysBDιxyNo|ACsyysBD|bdayx=bdayyNo|ACsyysBD=A|sB
90 84 89 mpbid AsBCsA|sBA|sBsDιxyNo|ACsyysBD|bdayx=bdayyNo|ACsyysBD=A|sB
91 90 eqcomd AsBCsA|sBA|sBsDA|sB=ιxyNo|ACsyysBD|bdayx=bdayyNo|ACsyysBD
92 18 91 eqtr4d AsBCsA|sBA|sBsDAC|sBD=A|sB