Metamath Proof Explorer


Theorem negsproplem2

Description: Lemma for surreal negation. Show that the cut that defines negation is legitimate. (Contributed by Scott Fenton, 2-Feb-2025)

Ref Expression
Hypotheses negsproplem.1 φ x No y No bday x bday y bday A bday B + s x No x < s y + s y < s + s x
negsproplem2.1 φ A No
Assertion negsproplem2 φ + s R A s + s L A

Proof

Step Hyp Ref Expression
1 negsproplem.1 φ x No y No bday x bday y bday A bday B + s x No x < s y + s y < s + s x
2 negsproplem2.1 φ A No
3 negsfn + s Fn No
4 fnfun + s Fn No Fun + s
5 3 4 ax-mp Fun + s
6 fvex R A V
7 6 funimaex Fun + s + s R A V
8 5 7 mp1i φ + s R A V
9 fvex L A V
10 9 funimaex Fun + s + s L A V
11 5 10 mp1i φ + s L A V
12 rightssold R A Old bday A
13 imass2 R A Old bday A + s R A + s Old bday A
14 12 13 ax-mp + s R A + s Old bday A
15 1 adantr φ a Old bday A x No y No bday x bday y bday A bday B + s x No x < s y + s y < s + s x
16 oldssno Old bday A No
17 16 sseli a Old bday A a No
18 17 adantl φ a Old bday A a No
19 0sno 0 s No
20 19 a1i φ a Old bday A 0 s No
21 bday0s bday 0 s =
22 21 uneq2i bday a bday 0 s = bday a
23 un0 bday a = bday a
24 22 23 eqtri bday a bday 0 s = bday a
25 oldbdayim a Old bday A bday a bday A
26 25 adantl φ a Old bday A bday a bday A
27 elun1 bday a bday A bday a bday A bday B
28 26 27 syl φ a Old bday A bday a bday A bday B
29 24 28 eqeltrid φ a Old bday A bday a bday 0 s bday A bday B
30 15 18 20 29 negsproplem1 φ a Old bday A + s a No a < s 0 s + s 0 s < s + s a
31 30 simpld φ a Old bday A + s a No
32 31 ralrimiva φ a Old bday A + s a No
33 3 fndmi dom + s = No
34 16 33 sseqtrri Old bday A dom + s
35 funimass4 Fun + s Old bday A dom + s + s Old bday A No a Old bday A + s a No
36 5 34 35 mp2an + s Old bday A No a Old bday A + s a No
37 32 36 sylibr φ + s Old bday A No
38 14 37 sstrid φ + s R A No
39 leftssold L A Old bday A
40 imass2 L A Old bday A + s L A + s Old bday A
41 39 40 ax-mp + s L A + s Old bday A
42 41 37 sstrid φ + s L A No
43 rightssno R A No
44 fvelimab Could not format ( ( -us Fn No /\ ( _Right ` A ) C_ No ) -> ( a e. ( -us " ( _Right ` A ) ) <-> E. xR e. ( _Right ` A ) ( -us ` xR ) = a ) ) : No typesetting found for |- ( ( -us Fn No /\ ( _Right ` A ) C_ No ) -> ( a e. ( -us " ( _Right ` A ) ) <-> E. xR e. ( _Right ` A ) ( -us ` xR ) = a ) ) with typecode |-
45 3 43 44 mp2an Could not format ( a e. ( -us " ( _Right ` A ) ) <-> E. xR e. ( _Right ` A ) ( -us ` xR ) = a ) : No typesetting found for |- ( a e. ( -us " ( _Right ` A ) ) <-> E. xR e. ( _Right ` A ) ( -us ` xR ) = a ) with typecode |-
46 leftssno L A No
47 fvelimab Could not format ( ( -us Fn No /\ ( _Left ` A ) C_ No ) -> ( b e. ( -us " ( _Left ` A ) ) <-> E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) ) : No typesetting found for |- ( ( -us Fn No /\ ( _Left ` A ) C_ No ) -> ( b e. ( -us " ( _Left ` A ) ) <-> E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) ) with typecode |-
48 3 46 47 mp2an Could not format ( b e. ( -us " ( _Left ` A ) ) <-> E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) : No typesetting found for |- ( b e. ( -us " ( _Left ` A ) ) <-> E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) with typecode |-
49 45 48 anbi12i Could not format ( ( a e. ( -us " ( _Right ` A ) ) /\ b e. ( -us " ( _Left ` A ) ) ) <-> ( E. xR e. ( _Right ` A ) ( -us ` xR ) = a /\ E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) ) : No typesetting found for |- ( ( a e. ( -us " ( _Right ` A ) ) /\ b e. ( -us " ( _Left ` A ) ) ) <-> ( E. xR e. ( _Right ` A ) ( -us ` xR ) = a /\ E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) ) with typecode |-
50 reeanv Could not format ( E. xR e. ( _Right ` A ) E. xL e. ( _Left ` A ) ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) <-> ( E. xR e. ( _Right ` A ) ( -us ` xR ) = a /\ E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) ) : No typesetting found for |- ( E. xR e. ( _Right ` A ) E. xL e. ( _Left ` A ) ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) <-> ( E. xR e. ( _Right ` A ) ( -us ` xR ) = a /\ E. xL e. ( _Left ` A ) ( -us ` xL ) = b ) ) with typecode |-
51 49 50 bitr4i Could not format ( ( a e. ( -us " ( _Right ` A ) ) /\ b e. ( -us " ( _Left ` A ) ) ) <-> E. xR e. ( _Right ` A ) E. xL e. ( _Left ` A ) ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) ) : No typesetting found for |- ( ( a e. ( -us " ( _Right ` A ) ) /\ b e. ( -us " ( _Left ` A ) ) ) <-> E. xR e. ( _Right ` A ) E. xL e. ( _Left ` A ) ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) ) with typecode |-
52 lltropt L A s R A
53 52 a1i Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( _Left ` A ) < ( _Left ` A ) <
54 simprr Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL e. ( _Left ` A ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL e. ( _Left ` A ) ) with typecode |-
55 simprl Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xR e. ( _Right ` A ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xR e. ( _Right ` A ) ) with typecode |-
56 53 54 55 ssltsepcd Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL xL
57 1 adantr Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> A. x e. No A. y e. No ( ( ( bday ` x ) u. ( bday ` y ) ) e. ( ( bday ` A ) u. ( bday ` B ) ) -> ( ( -us ` x ) e. No /\ ( x ( -us ` y ) A. x e. No A. y e. No ( ( ( bday ` x ) u. ( bday ` y ) ) e. ( ( bday ` A ) u. ( bday ` B ) ) -> ( ( -us ` x ) e. No /\ ( x ( -us ` y )
58 46 sseli Could not format ( xL e. ( _Left ` A ) -> xL e. No ) : No typesetting found for |- ( xL e. ( _Left ` A ) -> xL e. No ) with typecode |-
59 58 ad2antll Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL e. No ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL e. No ) with typecode |-
60 43 sseli Could not format ( xR e. ( _Right ` A ) -> xR e. No ) : No typesetting found for |- ( xR e. ( _Right ` A ) -> xR e. No ) with typecode |-
61 60 adantr Could not format ( ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) -> xR e. No ) : No typesetting found for |- ( ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) -> xR e. No ) with typecode |-
62 61 adantl Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xR e. No ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xR e. No ) with typecode |-
63 39 sseli Could not format ( xL e. ( _Left ` A ) -> xL e. ( _Old ` ( bday ` A ) ) ) : No typesetting found for |- ( xL e. ( _Left ` A ) -> xL e. ( _Old ` ( bday ` A ) ) ) with typecode |-
64 63 ad2antll Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL e. ( _Old ` ( bday ` A ) ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xL e. ( _Old ` ( bday ` A ) ) ) with typecode |-
65 oldbdayim Could not format ( xL e. ( _Old ` ( bday ` A ) ) -> ( bday ` xL ) e. ( bday ` A ) ) : No typesetting found for |- ( xL e. ( _Old ` ( bday ` A ) ) -> ( bday ` xL ) e. ( bday ` A ) ) with typecode |-
66 64 65 syl Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( bday ` xL ) e. ( bday ` A ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( bday ` xL ) e. ( bday ` A ) ) with typecode |-
67 12 a1i φ R A Old bday A
68 67 sselda Could not format ( ( ph /\ xR e. ( _Right ` A ) ) -> xR e. ( _Old ` ( bday ` A ) ) ) : No typesetting found for |- ( ( ph /\ xR e. ( _Right ` A ) ) -> xR e. ( _Old ` ( bday ` A ) ) ) with typecode |-
69 68 adantrr Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xR e. ( _Old ` ( bday ` A ) ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> xR e. ( _Old ` ( bday ` A ) ) ) with typecode |-
70 oldbdayim Could not format ( xR e. ( _Old ` ( bday ` A ) ) -> ( bday ` xR ) e. ( bday ` A ) ) : No typesetting found for |- ( xR e. ( _Old ` ( bday ` A ) ) -> ( bday ` xR ) e. ( bday ` A ) ) with typecode |-
71 69 70 syl Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( bday ` xR ) e. ( bday ` A ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( bday ` xR ) e. ( bday ` A ) ) with typecode |-
72 bdayelon Could not format ( bday ` xL ) e. On : No typesetting found for |- ( bday ` xL ) e. On with typecode |-
73 bdayelon Could not format ( bday ` xR ) e. On : No typesetting found for |- ( bday ` xR ) e. On with typecode |-
74 bdayelon bday A On
75 onunel Could not format ( ( ( bday ` xL ) e. On /\ ( bday ` xR ) e. On /\ ( bday ` A ) e. On ) -> ( ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) <-> ( ( bday ` xL ) e. ( bday ` A ) /\ ( bday ` xR ) e. ( bday ` A ) ) ) ) : No typesetting found for |- ( ( ( bday ` xL ) e. On /\ ( bday ` xR ) e. On /\ ( bday ` A ) e. On ) -> ( ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) <-> ( ( bday ` xL ) e. ( bday ` A ) /\ ( bday ` xR ) e. ( bday ` A ) ) ) ) with typecode |-
76 72 73 74 75 mp3an Could not format ( ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) <-> ( ( bday ` xL ) e. ( bday ` A ) /\ ( bday ` xR ) e. ( bday ` A ) ) ) : No typesetting found for |- ( ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) <-> ( ( bday ` xL ) e. ( bday ` A ) /\ ( bday ` xR ) e. ( bday ` A ) ) ) with typecode |-
77 66 71 76 sylanbrc Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) ) with typecode |-
78 elun1 Could not format ( ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) -> ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( ( bday ` A ) u. ( bday ` B ) ) ) : No typesetting found for |- ( ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( bday ` A ) -> ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( ( bday ` A ) u. ( bday ` B ) ) ) with typecode |-
79 77 78 syl Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( ( bday ` A ) u. ( bday ` B ) ) ) : No typesetting found for |- ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( ( bday ` xL ) u. ( bday ` xR ) ) e. ( ( bday ` A ) u. ( bday ` B ) ) ) with typecode |-
80 57 59 62 79 negsproplem1 Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( ( -us ` xL ) e. No /\ ( xL ( -us ` xR ) ( ( -us ` xL ) e. No /\ ( xL ( -us ` xR )
81 80 simprd Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( xL ( -us ` xR ) ( xL ( -us ` xR )
82 56 81 mpd Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( -us ` xR ) ( -us ` xR )
83 breq12 Could not format ( ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) -> ( ( -us ` xR ) a ( ( -us ` xR ) a
84 82 83 syl5ibcom Could not format ( ( ph /\ ( xR e. ( _Right ` A ) /\ xL e. ( _Left ` A ) ) ) -> ( ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) -> a ( ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) -> a
85 84 rexlimdvva Could not format ( ph -> ( E. xR e. ( _Right ` A ) E. xL e. ( _Left ` A ) ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) -> a ( E. xR e. ( _Right ` A ) E. xL e. ( _Left ` A ) ( ( -us ` xR ) = a /\ ( -us ` xL ) = b ) -> a
86 51 85 biimtrid φ a + s R A b + s L A a < s b
87 86 3impib φ a + s R A b + s L A a < s b
88 8 11 38 42 87 ssltd φ + s R A s + s L A