Metamath Proof Explorer


Theorem scutbdaylt

Description: If a surreal lies in a gap and is not equal to the cut, its birthday is greater than the cut's. (Contributed by Scott Fenton, 11-Dec-2021)

Ref Expression
Assertion scutbdaylt XNoAsXXsBXA|sBbdayA|sBbdayX

Proof

Step Hyp Ref Expression
1 simp2l XNoAsXXsBXA|sBAsX
2 simp2r XNoAsXXsBXA|sBXsB
3 snnzg XNoX
4 3 3ad2ant1 XNoAsXXsBXA|sBX
5 sslttr AsXXsBXAsB
6 1 2 4 5 syl3anc XNoAsXXsBXA|sBAsB
7 scutbday AsBbdayA|sB=bdayyNo|AsyysB
8 6 7 syl XNoAsXXsBXA|sBbdayA|sB=bdayyNo|AsyysB
9 bdayfn bdayFnNo
10 ssrab2 yNo|AsyysBNo
11 simp1 XNoAsXXsBXA|sBXNo
12 simp2 XNoAsXXsBXA|sBAsXXsB
13 sneq y=Xy=X
14 13 breq2d y=XAsyAsX
15 13 breq1d y=XysBXsB
16 14 15 anbi12d y=XAsyysBAsXXsB
17 16 elrab XyNo|AsyysBXNoAsXXsB
18 11 12 17 sylanbrc XNoAsXXsBXA|sBXyNo|AsyysB
19 fnfvima bdayFnNoyNo|AsyysBNoXyNo|AsyysBbdayXbdayyNo|AsyysB
20 9 10 18 19 mp3an12i XNoAsXXsBXA|sBbdayXbdayyNo|AsyysB
21 intss1 bdayXbdayyNo|AsyysBbdayyNo|AsyysBbdayX
22 20 21 syl XNoAsXXsBXA|sBbdayyNo|AsyysBbdayX
23 8 22 eqsstrd XNoAsXXsBXA|sBbdayA|sBbdayX
24 simprl XNoAsXXsBAsX
25 simprr XNoAsXXsBXsB
26 3 adantr XNoAsXXsBX
27 24 25 26 5 syl3anc XNoAsXXsBAsB
28 27 7 syl XNoAsXXsBbdayA|sB=bdayyNo|AsyysB
29 28 eqeq1d XNoAsXXsBbdayA|sB=bdayXbdayyNo|AsyysB=bdayX
30 eqcom bdayyNo|AsyysB=bdayXbdayX=bdayyNo|AsyysB
31 29 30 bitrdi XNoAsXXsBbdayA|sB=bdayXbdayX=bdayyNo|AsyysB
32 31 biimpa XNoAsXXsBbdayA|sB=bdayXbdayX=bdayyNo|AsyysB
33 17 biimpri XNoAsXXsBXyNo|AsyysB
34 27 adantr XNoAsXXsBbdayA|sB=bdayXAsB
35 conway AsB∃!xyNo|AsyysBbdayx=bdayyNo|AsyysB
36 34 35 syl XNoAsXXsBbdayA|sB=bdayX∃!xyNo|AsyysBbdayx=bdayyNo|AsyysB
37 fveqeq2 x=Xbdayx=bdayyNo|AsyysBbdayX=bdayyNo|AsyysB
38 37 riota2 XyNo|AsyysB∃!xyNo|AsyysBbdayx=bdayyNo|AsyysBbdayX=bdayyNo|AsyysBιxyNo|AsyysB|bdayx=bdayyNo|AsyysB=X
39 eqcom ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB=XX=ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB
40 38 39 bitrdi XyNo|AsyysB∃!xyNo|AsyysBbdayx=bdayyNo|AsyysBbdayX=bdayyNo|AsyysBX=ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB
41 33 36 40 syl2an2r XNoAsXXsBbdayA|sB=bdayXbdayX=bdayyNo|AsyysBX=ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB
42 32 41 mpbid XNoAsXXsBbdayA|sB=bdayXX=ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB
43 scutval AsBA|sB=ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB
44 34 43 syl XNoAsXXsBbdayA|sB=bdayXA|sB=ιxyNo|AsyysB|bdayx=bdayyNo|AsyysB
45 42 44 eqtr4d XNoAsXXsBbdayA|sB=bdayXX=A|sB
46 45 ex XNoAsXXsBbdayA|sB=bdayXX=A|sB
47 46 necon3d XNoAsXXsBXA|sBbdayA|sBbdayX
48 47 3impia XNoAsXXsBXA|sBbdayA|sBbdayX
49 bdayelon bdayA|sBOn
50 bdayelon bdayXOn
51 onelpss bdayA|sBOnbdayXOnbdayA|sBbdayXbdayA|sBbdayXbdayA|sBbdayX
52 49 50 51 mp2an bdayA|sBbdayXbdayA|sBbdayXbdayA|sBbdayX
53 23 48 52 sylanbrc XNoAsXXsBXA|sBbdayA|sBbdayX