MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  n0subs Structured version   Visualization version   GIF version

Theorem n0subs 28373
Description: Subtraction of non-negative surreal integers. (Contributed by Scott Fenton, 26-May-2025.)
Assertion
Ref Expression
n0subs ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → (𝑀 ≤s 𝑁 ↔ (𝑁 -s 𝑀) ∈ ℕ0s))

Proof of Theorem n0subs
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 breq2 5076 . . . . . 6 (𝑥 = 0s → (𝑧 ≤s 𝑥𝑧 ≤s 0s ))
2 oveq1 7363 . . . . . . 7 (𝑥 = 0s → (𝑥 -s 𝑧) = ( 0s -s 𝑧))
32eleq1d 2824 . . . . . 6 (𝑥 = 0s → ((𝑥 -s 𝑧) ∈ ℕ0s ↔ ( 0s -s 𝑧) ∈ ℕ0s))
41, 3imbi12d 345 . . . . 5 (𝑥 = 0s → ((𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s 0s → ( 0s -s 𝑧) ∈ ℕ0s)))
54ralbidv 3162 . . . 4 (𝑥 = 0s → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 0s → ( 0s -s 𝑧) ∈ ℕ0s)))
6 breq2 5076 . . . . . 6 (𝑥 = 𝑦 → (𝑧 ≤s 𝑥𝑧 ≤s 𝑦))
7 oveq1 7363 . . . . . . 7 (𝑥 = 𝑦 → (𝑥 -s 𝑧) = (𝑦 -s 𝑧))
87eleq1d 2824 . . . . . 6 (𝑥 = 𝑦 → ((𝑥 -s 𝑧) ∈ ℕ0s ↔ (𝑦 -s 𝑧) ∈ ℕ0s))
96, 8imbi12d 345 . . . . 5 (𝑥 = 𝑦 → ((𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s 𝑦 → (𝑦 -s 𝑧) ∈ ℕ0s)))
109ralbidv 3162 . . . 4 (𝑥 = 𝑦 → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑦 → (𝑦 -s 𝑧) ∈ ℕ0s)))
11 breq2 5076 . . . . . 6 (𝑥 = (𝑦 +s 1s ) → (𝑧 ≤s 𝑥𝑧 ≤s (𝑦 +s 1s )))
12 oveq1 7363 . . . . . . 7 (𝑥 = (𝑦 +s 1s ) → (𝑥 -s 𝑧) = ((𝑦 +s 1s ) -s 𝑧))
1312eleq1d 2824 . . . . . 6 (𝑥 = (𝑦 +s 1s ) → ((𝑥 -s 𝑧) ∈ ℕ0s ↔ ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s))
1411, 13imbi12d 345 . . . . 5 (𝑥 = (𝑦 +s 1s ) → ((𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
1514ralbidv 3162 . . . 4 (𝑥 = (𝑦 +s 1s ) → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
16 breq2 5076 . . . . . 6 (𝑥 = 𝑁 → (𝑧 ≤s 𝑥𝑧 ≤s 𝑁))
17 oveq1 7363 . . . . . . 7 (𝑥 = 𝑁 → (𝑥 -s 𝑧) = (𝑁 -s 𝑧))
1817eleq1d 2824 . . . . . 6 (𝑥 = 𝑁 → ((𝑥 -s 𝑧) ∈ ℕ0s ↔ (𝑁 -s 𝑧) ∈ ℕ0s))
1916, 18imbi12d 345 . . . . 5 (𝑥 = 𝑁 → ((𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s 𝑁 → (𝑁 -s 𝑧) ∈ ℕ0s)))
2019ralbidv 3162 . . . 4 (𝑥 = 𝑁 → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 -s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑁 → (𝑁 -s 𝑧) ∈ ℕ0s)))
21 n0sge0 28348 . . . . . . . 8 (𝑧 ∈ ℕ0s → 0s ≤s 𝑧)
2221biantrud 536 . . . . . . 7 (𝑧 ∈ ℕ0s → (𝑧 ≤s 0s ↔ (𝑧 ≤s 0s ∧ 0s ≤s 𝑧)))
23 n0no 28333 . . . . . . . 8 (𝑧 ∈ ℕ0s𝑧 No )
24 0no 27819 . . . . . . . 8 0s No
25 lestri3 27737 . . . . . . . 8 ((𝑧 No ∧ 0s No ) → (𝑧 = 0s ↔ (𝑧 ≤s 0s ∧ 0s ≤s 𝑧)))
2623, 24, 25sylancl 592 . . . . . . 7 (𝑧 ∈ ℕ0s → (𝑧 = 0s ↔ (𝑧 ≤s 0s ∧ 0s ≤s 𝑧)))
2722, 26bitr4d 283 . . . . . 6 (𝑧 ∈ ℕ0s → (𝑧 ≤s 0s𝑧 = 0s ))
28 oveq2 7364 . . . . . . 7 (𝑧 = 0s → ( 0s -s 𝑧) = ( 0s -s 0s ))
29 subsid 28079 . . . . . . . . 9 ( 0s No → ( 0s -s 0s ) = 0s )
3024, 29ax-mp 5 . . . . . . . 8 ( 0s -s 0s ) = 0s
31 0n0s 28339 . . . . . . . 8 0s ∈ ℕ0s
3230, 31eqeltri 2835 . . . . . . 7 ( 0s -s 0s ) ∈ ℕ0s
3328, 32eqeltrdi 2847 . . . . . 6 (𝑧 = 0s → ( 0s -s 𝑧) ∈ ℕ0s)
3427, 33biimtrdi 254 . . . . 5 (𝑧 ∈ ℕ0s → (𝑧 ≤s 0s → ( 0s -s 𝑧) ∈ ℕ0s))
3534rgen 3055 . . . 4 𝑧 ∈ ℕ0s (𝑧 ≤s 0s → ( 0s -s 𝑧) ∈ ℕ0s)
36 breq1 5075 . . . . . . 7 (𝑧 = 𝑥 → (𝑧 ≤s 𝑦𝑥 ≤s 𝑦))
37 oveq2 7364 . . . . . . . 8 (𝑧 = 𝑥 → (𝑦 -s 𝑧) = (𝑦 -s 𝑥))
3837eleq1d 2824 . . . . . . 7 (𝑧 = 𝑥 → ((𝑦 -s 𝑧) ∈ ℕ0s ↔ (𝑦 -s 𝑥) ∈ ℕ0s))
3936, 38imbi12d 345 . . . . . 6 (𝑧 = 𝑥 → ((𝑧 ≤s 𝑦 → (𝑦 -s 𝑧) ∈ ℕ0s) ↔ (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s)))
4039cbvralvw 3217 . . . . 5 (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑦 → (𝑦 -s 𝑧) ∈ ℕ0s) ↔ ∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s))
41 n0no 28333 . . . . . . . . . . . 12 (𝑦 ∈ ℕ0s𝑦 No )
42 peano2no 27994 . . . . . . . . . . . 12 (𝑦 No → (𝑦 +s 1s ) ∈ No )
43 subsid1 28078 . . . . . . . . . . . 12 ((𝑦 +s 1s ) ∈ No → ((𝑦 +s 1s ) -s 0s ) = (𝑦 +s 1s ))
4441, 42, 433syl 18 . . . . . . . . . . 11 (𝑦 ∈ ℕ0s → ((𝑦 +s 1s ) -s 0s ) = (𝑦 +s 1s ))
45 peano2n0s 28340 . . . . . . . . . . 11 (𝑦 ∈ ℕ0s → (𝑦 +s 1s ) ∈ ℕ0s)
4644, 45eqeltrd 2839 . . . . . . . . . 10 (𝑦 ∈ ℕ0s → ((𝑦 +s 1s ) -s 0s ) ∈ ℕ0s)
47 oveq2 7364 . . . . . . . . . . 11 (𝑧 = 0s → ((𝑦 +s 1s ) -s 𝑧) = ((𝑦 +s 1s ) -s 0s ))
4847eleq1d 2824 . . . . . . . . . 10 (𝑧 = 0s → (((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s ↔ ((𝑦 +s 1s ) -s 0s ) ∈ ℕ0s))
4946, 48syl5ibrcom 248 . . . . . . . . 9 (𝑦 ∈ ℕ0s → (𝑧 = 0s → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s))
50492a1dd 51 . . . . . . . 8 (𝑦 ∈ ℕ0s → (𝑧 = 0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s))))
5150adantr 481 . . . . . . 7 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (𝑧 = 0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s))))
52 breq1 5075 . . . . . . . . . 10 (𝑥 = (𝑧 -s 1s ) → (𝑥 ≤s 𝑦 ↔ (𝑧 -s 1s ) ≤s 𝑦))
53 oveq2 7364 . . . . . . . . . . 11 (𝑥 = (𝑧 -s 1s ) → (𝑦 -s 𝑥) = (𝑦 -s (𝑧 -s 1s )))
5453eleq1d 2824 . . . . . . . . . 10 (𝑥 = (𝑧 -s 1s ) → ((𝑦 -s 𝑥) ∈ ℕ0s ↔ (𝑦 -s (𝑧 -s 1s )) ∈ ℕ0s))
5552, 54imbi12d 345 . . . . . . . . 9 (𝑥 = (𝑧 -s 1s ) → ((𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) ↔ ((𝑧 -s 1s ) ≤s 𝑦 → (𝑦 -s (𝑧 -s 1s )) ∈ ℕ0s)))
5655rspcv 3556 . . . . . . . 8 ((𝑧 -s 1s ) ∈ ℕ0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) → ((𝑧 -s 1s ) ≤s 𝑦 → (𝑦 -s (𝑧 -s 1s )) ∈ ℕ0s)))
5723adantl 482 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → 𝑧 No )
58 1no 27820 . . . . . . . . . . . 12 1s No
5958a1i 11 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → 1s No )
6041adantr 481 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → 𝑦 No )
6157, 59, 60lesubaddsd 28103 . . . . . . . . . 10 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → ((𝑧 -s 1s ) ≤s 𝑦𝑧 ≤s (𝑦 +s 1s )))
6260, 57, 59subsubs2d 28105 . . . . . . . . . . . 12 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (𝑦 -s (𝑧 -s 1s )) = (𝑦 +s ( 1s -s 𝑧)))
6360, 59, 57addsubsassd 28091 . . . . . . . . . . . 12 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → ((𝑦 +s 1s ) -s 𝑧) = (𝑦 +s ( 1s -s 𝑧)))
6462, 63eqtr4d 2777 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (𝑦 -s (𝑧 -s 1s )) = ((𝑦 +s 1s ) -s 𝑧))
6564eleq1d 2824 . . . . . . . . . 10 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → ((𝑦 -s (𝑧 -s 1s )) ∈ ℕ0s ↔ ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s))
6661, 65imbi12d 345 . . . . . . . . 9 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (((𝑧 -s 1s ) ≤s 𝑦 → (𝑦 -s (𝑧 -s 1s )) ∈ ℕ0s) ↔ (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
6766biimpd 230 . . . . . . . 8 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (((𝑧 -s 1s ) ≤s 𝑦 → (𝑦 -s (𝑧 -s 1s )) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
6856, 67syl9r 78 . . . . . . 7 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → ((𝑧 -s 1s ) ∈ ℕ0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s))))
69 n0s0m1 28372 . . . . . . . 8 (𝑧 ∈ ℕ0s → (𝑧 = 0s ∨ (𝑧 -s 1s ) ∈ ℕ0s))
7069adantl 482 . . . . . . 7 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (𝑧 = 0s ∨ (𝑧 -s 1s ) ∈ ℕ0s))
7151, 68, 70mpjaod 866 . . . . . 6 ((𝑦 ∈ ℕ0s𝑧 ∈ ℕ0s) → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
7271ralrimdva 3139 . . . . 5 (𝑦 ∈ ℕ0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 -s 𝑥) ∈ ℕ0s) → ∀𝑧 ∈ ℕ0s (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
7340, 72biimtrid 243 . . . 4 (𝑦 ∈ ℕ0s → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑦 → (𝑦 -s 𝑧) ∈ ℕ0s) → ∀𝑧 ∈ ℕ0s (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) -s 𝑧) ∈ ℕ0s)))
745, 10, 15, 20, 35, 73n0sind 28343 . . 3 (𝑁 ∈ ℕ0s → ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑁 → (𝑁 -s 𝑧) ∈ ℕ0s))
75 breq1 5075 . . . . 5 (𝑧 = 𝑀 → (𝑧 ≤s 𝑁𝑀 ≤s 𝑁))
76 oveq2 7364 . . . . . 6 (𝑧 = 𝑀 → (𝑁 -s 𝑧) = (𝑁 -s 𝑀))
7776eleq1d 2824 . . . . 5 (𝑧 = 𝑀 → ((𝑁 -s 𝑧) ∈ ℕ0s ↔ (𝑁 -s 𝑀) ∈ ℕ0s))
7875, 77imbi12d 345 . . . 4 (𝑧 = 𝑀 → ((𝑧 ≤s 𝑁 → (𝑁 -s 𝑧) ∈ ℕ0s) ↔ (𝑀 ≤s 𝑁 → (𝑁 -s 𝑀) ∈ ℕ0s)))
7978rspcva 3558 . . 3 ((𝑀 ∈ ℕ0s ∧ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑁 → (𝑁 -s 𝑧) ∈ ℕ0s)) → (𝑀 ≤s 𝑁 → (𝑁 -s 𝑀) ∈ ℕ0s))
8074, 79sylan2 599 . 2 ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → (𝑀 ≤s 𝑁 → (𝑁 -s 𝑀) ∈ ℕ0s))
81 n0sge0 28348 . . 3 ((𝑁 -s 𝑀) ∈ ℕ0s → 0s ≤s (𝑁 -s 𝑀))
82 n0no 28333 . . . . 5 (𝑁 ∈ ℕ0s𝑁 No )
8382adantl 482 . . . 4 ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → 𝑁 No )
84 n0no 28333 . . . . 5 (𝑀 ∈ ℕ0s𝑀 No )
8584adantr 481 . . . 4 ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → 𝑀 No )
8683, 85subsge0d 28110 . . 3 ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → ( 0s ≤s (𝑁 -s 𝑀) ↔ 𝑀 ≤s 𝑁))
8781, 86imbitrid 245 . 2 ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → ((𝑁 -s 𝑀) ∈ ℕ0s𝑀 ≤s 𝑁))
8880, 87impbid 213 1 ((𝑀 ∈ ℕ0s𝑁 ∈ ℕ0s) → (𝑀 ≤s 𝑁 ↔ (𝑁 -s 𝑀) ∈ ℕ0s))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396  wo 853   = wceq 1547  wcel 2119  wral 3053   class class class wbr 5072  (class class class)co 7356   No csur 27621   ≤s cles 27726   0s c0s 27815   1s c1s 27816   +s cadds 27969   -s csubs 28030  0scn0s 28322
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-ot 4564  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-nadd 8592  df-no 27624  df-lts 27625  df-bday 27626  df-les 27727  df-slts 27768  df-cuts 27770  df-0s 27817  df-1s 27818  df-made 27837  df-old 27838  df-left 27840  df-right 27841  df-norec 27948  df-norec2 27959  df-adds 27970  df-negs 28031  df-subs 28032  df-n0s 28324
This theorem is referenced by:  n0subs2  28374  elzn0s  28408  eln0zs  28410  bdayfinbndlem1  28477
  Copyright terms: Public domain W3C validator