Metamath Proof Explorer


Theorem zscut0

Description: Either the left or right set of a surreal integer is empty. (Contributed by Scott Fenton, 21-Feb-2026)

Ref Expression
Assertion zscut0 ( 𝐴 ∈ ℤs → ( ( L ‘ 𝐴 ) = ∅ ∨ ( R ‘ 𝐴 ) = ∅ ) )

Proof

Step Hyp Ref Expression
1 elzn0s ( 𝐴 ∈ ℤs ↔ ( 𝐴 No ∧ ( 𝐴 ∈ ℕ0s ∨ ( -us𝐴 ) ∈ ℕ0s ) ) )
2 n0ons ( 𝐴 ∈ ℕ0s𝐴 ∈ Ons )
3 elons ( 𝐴 ∈ Ons ↔ ( 𝐴 No ∧ ( R ‘ 𝐴 ) = ∅ ) )
4 3 simprbi ( 𝐴 ∈ Ons → ( R ‘ 𝐴 ) = ∅ )
5 2 4 syl ( 𝐴 ∈ ℕ0s → ( R ‘ 𝐴 ) = ∅ )
6 5 a1i ( 𝐴 No → ( 𝐴 ∈ ℕ0s → ( R ‘ 𝐴 ) = ∅ ) )
7 simpl ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → 𝐴 No )
8 7 negscld ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( -us𝐴 ) ∈ No )
9 negsleft ( ( -us𝐴 ) ∈ No → ( L ‘ ( -us ‘ ( -us𝐴 ) ) ) = ( -us “ ( R ‘ ( -us𝐴 ) ) ) )
10 8 9 syl ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( L ‘ ( -us ‘ ( -us𝐴 ) ) ) = ( -us “ ( R ‘ ( -us𝐴 ) ) ) )
11 negnegs ( 𝐴 No → ( -us ‘ ( -us𝐴 ) ) = 𝐴 )
12 11 fveq2d ( 𝐴 No → ( L ‘ ( -us ‘ ( -us𝐴 ) ) ) = ( L ‘ 𝐴 ) )
13 12 adantr ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( L ‘ ( -us ‘ ( -us𝐴 ) ) ) = ( L ‘ 𝐴 ) )
14 n0ons ( ( -us𝐴 ) ∈ ℕ0s → ( -us𝐴 ) ∈ Ons )
15 elons ( ( -us𝐴 ) ∈ Ons ↔ ( ( -us𝐴 ) ∈ No ∧ ( R ‘ ( -us𝐴 ) ) = ∅ ) )
16 15 simprbi ( ( -us𝐴 ) ∈ Ons → ( R ‘ ( -us𝐴 ) ) = ∅ )
17 14 16 syl ( ( -us𝐴 ) ∈ ℕ0s → ( R ‘ ( -us𝐴 ) ) = ∅ )
18 17 adantl ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( R ‘ ( -us𝐴 ) ) = ∅ )
19 18 imaeq2d ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( -us “ ( R ‘ ( -us𝐴 ) ) ) = ( -us “ ∅ ) )
20 ima0 ( -us “ ∅ ) = ∅
21 19 20 eqtrdi ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( -us “ ( R ‘ ( -us𝐴 ) ) ) = ∅ )
22 10 13 21 3eqtr3d ( ( 𝐴 No ∧ ( -us𝐴 ) ∈ ℕ0s ) → ( L ‘ 𝐴 ) = ∅ )
23 22 ex ( 𝐴 No → ( ( -us𝐴 ) ∈ ℕ0s → ( L ‘ 𝐴 ) = ∅ ) )
24 6 23 orim12d ( 𝐴 No → ( ( 𝐴 ∈ ℕ0s ∨ ( -us𝐴 ) ∈ ℕ0s ) → ( ( R ‘ 𝐴 ) = ∅ ∨ ( L ‘ 𝐴 ) = ∅ ) ) )
25 24 imp ( ( 𝐴 No ∧ ( 𝐴 ∈ ℕ0s ∨ ( -us𝐴 ) ∈ ℕ0s ) ) → ( ( R ‘ 𝐴 ) = ∅ ∨ ( L ‘ 𝐴 ) = ∅ ) )
26 25 orcomd ( ( 𝐴 No ∧ ( 𝐴 ∈ ℕ0s ∨ ( -us𝐴 ) ∈ ℕ0s ) ) → ( ( L ‘ 𝐴 ) = ∅ ∨ ( R ‘ 𝐴 ) = ∅ ) )
27 1 26 sylbi ( 𝐴 ∈ ℤs → ( ( L ‘ 𝐴 ) = ∅ ∨ ( R ‘ 𝐴 ) = ∅ ) )