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

Theorem n0subs 28756
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 5106 . . . . . 6 (𝑥 = 0s → (𝑧 ≤s 𝑥 ↔ 𝑧 ≤s 0s ))
2 oveq1 7429 . . . . . . 7 (𝑥 = 0s → (𝑥 −s 𝑧) = ( 0s −s 𝑧))
32eleq1d 2845 . . . . . 6 (𝑥 = 0s → ((𝑥 −s 𝑧) ∈ ℕ0s ↔ ( 0s −s 𝑧) ∈ ℕ0s))
41, 3imbi12d 347 . . . . 5 (𝑥 = 0s → ((𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s 0s → ( 0s −s 𝑧) ∈ ℕ0s)))
54ralbidv 3185 . . . 4 (𝑥 = 0s → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 0s → ( 0s −s 𝑧) ∈ ℕ0s)))
6 breq2 5106 . . . . . 6 (𝑥 = 𝑦 → (𝑧 ≤s 𝑥 ↔ 𝑧 ≤s 𝑦))
7 oveq1 7429 . . . . . . 7 (𝑥 = 𝑦 → (𝑥 −s 𝑧) = (𝑦 −s 𝑧))
87eleq1d 2845 . . . . . 6 (𝑥 = 𝑦 → ((𝑥 −s 𝑧) ∈ ℕ0s ↔ (𝑦 −s 𝑧) ∈ ℕ0s))
96, 8imbi12d 347 . . . . 5 (𝑥 = 𝑦 → ((𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s 𝑦 → (𝑦 −s 𝑧) ∈ ℕ0s)))
109ralbidv 3185 . . . 4 (𝑥 = 𝑦 → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑦 → (𝑦 −s 𝑧) ∈ ℕ0s)))
11 breq2 5106 . . . . . 6 (𝑥 = (𝑦 +s 1s ) → (𝑧 ≤s 𝑥 ↔ 𝑧 ≤s (𝑦 +s 1s )))
12 oveq1 7429 . . . . . . 7 (𝑥 = (𝑦 +s 1s ) → (𝑥 −s 𝑧) = ((𝑦 +s 1s ) −s 𝑧))
1312eleq1d 2845 . . . . . 6 (𝑥 = (𝑦 +s 1s ) → ((𝑥 −s 𝑧) ∈ ℕ0s ↔ ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s))
1411, 13imbi12d 347 . . . . 5 (𝑥 = (𝑦 +s 1s ) → ((𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
1514ralbidv 3185 . . . 4 (𝑥 = (𝑦 +s 1s ) → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
16 breq2 5106 . . . . . 6 (𝑥 = 𝑁 → (𝑧 ≤s 𝑥 ↔ 𝑧 ≤s 𝑁))
17 oveq1 7429 . . . . . . 7 (𝑥 = 𝑁 → (𝑥 −s 𝑧) = (𝑁 −s 𝑧))
1817eleq1d 2845 . . . . . 6 (𝑥 = 𝑁 → ((𝑥 −s 𝑧) ∈ ℕ0s ↔ (𝑁 −s 𝑧) ∈ ℕ0s))
1916, 18imbi12d 347 . . . . 5 (𝑥 = 𝑁 → ((𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ (𝑧 ≤s 𝑁 → (𝑁 −s 𝑧) ∈ ℕ0s)))
2019ralbidv 3185 . . . 4 (𝑥 = 𝑁 → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑥 → (𝑥 −s 𝑧) ∈ ℕ0s) ↔ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑁 → (𝑁 −s 𝑧) ∈ ℕ0s)))
21 n0sge0 28731 . . . . . . . 8 (𝑧 ∈ ℕ0s → 0s ≤s 𝑧)
2221biantrud 541 . . . . . . 7 (𝑧 ∈ ℕ0s → (𝑧 ≤s 0s ↔ (𝑧 ≤s 0s ∧ 0s ≤s 𝑧)))
23 n0no 28716 . . . . . . . 8 (𝑧 ∈ ℕ0s → 𝑧 ∈ No)
24 0no 28202 . . . . . . . 8 0s ∈ No
25 lestri3 28119 . . . . . . . 8 ((𝑧 ∈ No ∧ 0s ∈ No) → (𝑧 = 0s ↔ (𝑧 ≤s 0s ∧ 0s ≤s 𝑧)))
2623, 24, 25sylancl 598 . . . . . . 7 (𝑧 ∈ ℕ0s → (𝑧 = 0s ↔ (𝑧 ≤s 0s ∧ 0s ≤s 𝑧)))
2722, 26bitr4d 285 . . . . . 6 (𝑧 ∈ ℕ0s → (𝑧 ≤s 0s ↔ 𝑧 = 0s ))
28 oveq2 7430 . . . . . . 7 (𝑧 = 0s → ( 0s −s 𝑧) = ( 0s −s 0s ))
29 subsid 28462 . . . . . . . . 9 ( 0s ∈ No → ( 0s −s 0s ) = 0s )
3024, 29ax-mp 5 . . . . . . . 8 ( 0s −s 0s ) = 0s
31 0n0s 28722 . . . . . . . 8 0s ∈ ℕ0s
3230, 31eqeltri 2856 . . . . . . 7 ( 0s −s 0s ) ∈ ℕ0s
3328, 32eqeltrdi 2868 . . . . . 6 (𝑧 = 0s → ( 0s −s 𝑧) ∈ ℕ0s)
3427, 33biimtrdi 256 . . . . 5 (𝑧 ∈ ℕ0s → (𝑧 ≤s 0s → ( 0s −s 𝑧) ∈ ℕ0s))
3534rgen 3078 . . . 4 ∀𝑧 ∈ ℕ0s (𝑧 ≤s 0s → ( 0s −s 𝑧) ∈ ℕ0s)
36 breq1 5105 . . . . . . 7 (𝑧 = 𝑥 → (𝑧 ≤s 𝑦 ↔ 𝑥 ≤s 𝑦))
37 oveq2 7430 . . . . . . . 8 (𝑧 = 𝑥 → (𝑦 −s 𝑧) = (𝑦 −s 𝑥))
3837eleq1d 2845 . . . . . . 7 (𝑧 = 𝑥 → ((𝑦 −s 𝑧) ∈ ℕ0s ↔ (𝑦 −s 𝑥) ∈ ℕ0s))
3936, 38imbi12d 347 . . . . . 6 (𝑧 = 𝑥 → ((𝑧 ≤s 𝑦 → (𝑦 −s 𝑧) ∈ ℕ0s) ↔ (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s)))
4039cbvralvw 3240 . . . . 5 (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑦 → (𝑦 −s 𝑧) ∈ ℕ0s) ↔ ∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s))
41 n0no 28716 . . . . . . . . . . . 12 (𝑦 ∈ ℕ0s → 𝑦 ∈ No)
42 peano2no 28377 . . . . . . . . . . . 12 (𝑦 ∈ No → (𝑦 +s 1s ) ∈ No)
43 subsid1 28461 . . . . . . . . . . . 12 ((𝑦 +s 1s ) ∈ No → ((𝑦 +s 1s ) −s 0s ) = (𝑦 +s 1s ))
4441, 42, 433syl 19 . . . . . . . . . . 11 (𝑦 ∈ ℕ0s → ((𝑦 +s 1s ) −s 0s ) = (𝑦 +s 1s ))
45 peano2n0s 28723 . . . . . . . . . . 11 (𝑦 ∈ ℕ0s → (𝑦 +s 1s ) ∈ ℕ0s)
4644, 45eqeltrd 2860 . . . . . . . . . 10 (𝑦 ∈ ℕ0s → ((𝑦 +s 1s ) −s 0s ) ∈ ℕ0s)
47 oveq2 7430 . . . . . . . . . . 11 (𝑧 = 0s → ((𝑦 +s 1s ) −s 𝑧) = ((𝑦 +s 1s ) −s 0s ))
4847eleq1d 2845 . . . . . . . . . 10 (𝑧 = 0s → (((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s ↔ ((𝑦 +s 1s ) −s 0s ) ∈ ℕ0s))
4946, 48syl5ibrcom 250 . . . . . . . . 9 (𝑦 ∈ ℕ0s → (𝑧 = 0s → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s))
50492a1dd 52 . . . . . . . 8 (𝑦 ∈ ℕ0s → (𝑧 = 0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s))))
5150adantr 486 . . . . . . 7 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (𝑧 = 0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s))))
52 breq1 5105 . . . . . . . . . 10 (𝑥 = (𝑧 −s 1s ) → (𝑥 ≤s 𝑦 ↔ (𝑧 −s 1s ) ≤s 𝑦))
53 oveq2 7430 . . . . . . . . . . 11 (𝑥 = (𝑧 −s 1s ) → (𝑦 −s 𝑥) = (𝑦 −s (𝑧 −s 1s )))
5453eleq1d 2845 . . . . . . . . . 10 (𝑥 = (𝑧 −s 1s ) → ((𝑦 −s 𝑥) ∈ ℕ0s ↔ (𝑦 −s (𝑧 −s 1s )) ∈ ℕ0s))
5552, 54imbi12d 347 . . . . . . . . 9 (𝑥 = (𝑧 −s 1s ) → ((𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) ↔ ((𝑧 −s 1s ) ≤s 𝑦 → (𝑦 −s (𝑧 −s 1s )) ∈ ℕ0s)))
5655rspcv 3572 . . . . . . . 8 ((𝑧 −s 1s ) ∈ ℕ0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) → ((𝑧 −s 1s ) ≤s 𝑦 → (𝑦 −s (𝑧 −s 1s )) ∈ ℕ0s)))
5723adantl 487 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → 𝑧 ∈ No)
58 1no 28203 . . . . . . . . . . . 12 1s ∈ No
5958a1i 11 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → 1s ∈ No)
6041adantr 486 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → 𝑦 ∈ No)
6157, 59, 60lesubaddsd 28486 . . . . . . . . . 10 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → ((𝑧 −s 1s ) ≤s 𝑦 ↔ 𝑧 ≤s (𝑦 +s 1s )))
6260, 57, 59subsubs2d 28488 . . . . . . . . . . . 12 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (𝑦 −s (𝑧 −s 1s )) = (𝑦 +s ( 1s −s 𝑧)))
6360, 59, 57addsubsassd 28474 . . . . . . . . . . . 12 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → ((𝑦 +s 1s ) −s 𝑧) = (𝑦 +s ( 1s −s 𝑧)))
6462, 63eqtr4d 2798 . . . . . . . . . . 11 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (𝑦 −s (𝑧 −s 1s )) = ((𝑦 +s 1s ) −s 𝑧))
6564eleq1d 2845 . . . . . . . . . 10 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → ((𝑦 −s (𝑧 −s 1s )) ∈ ℕ0s ↔ ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s))
6661, 65imbi12d 347 . . . . . . . . 9 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (((𝑧 −s 1s ) ≤s 𝑦 → (𝑦 −s (𝑧 −s 1s )) ∈ ℕ0s) ↔ (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
6766biimpd 232 . . . . . . . 8 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (((𝑧 −s 1s ) ≤s 𝑦 → (𝑦 −s (𝑧 −s 1s )) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
6856, 67syl9r 79 . . . . . . 7 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → ((𝑧 −s 1s ) ∈ ℕ0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s))))
69 n0s0m1 28755 . . . . . . . 8 (𝑧 ∈ ℕ0s → (𝑧 = 0s ∨ (𝑧 −s 1s ) ∈ ℕ0s))
7069adantl 487 . . . . . . 7 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (𝑧 = 0s ∨ (𝑧 −s 1s ) ∈ ℕ0s))
7151, 68, 70mpjaod 874 . . . . . 6 ((𝑦 ∈ ℕ0s ∧ 𝑧 ∈ ℕ0s) → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) → (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
7271ralrimdva 3162 . . . . 5 (𝑦 ∈ ℕ0s → (∀𝑥 ∈ ℕ0s (𝑥 ≤s 𝑦 → (𝑦 −s 𝑥) ∈ ℕ0s) → ∀𝑧 ∈ ℕ0s (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
7340, 72biimtrid 245 . . . 4 (𝑦 ∈ ℕ0s → (∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑦 → (𝑦 −s 𝑧) ∈ ℕ0s) → ∀𝑧 ∈ ℕ0s (𝑧 ≤s (𝑦 +s 1s ) → ((𝑦 +s 1s ) −s 𝑧) ∈ ℕ0s)))
745, 10, 15, 20, 35, 73n0sind 28726 . . 3 (𝑁 ∈ ℕ0s → ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑁 → (𝑁 −s 𝑧) ∈ ℕ0s))
75 breq1 5105 . . . . 5 (𝑧 = 𝑀 → (𝑧 ≤s 𝑁 ↔ 𝑀 ≤s 𝑁))
76 oveq2 7430 . . . . . 6 (𝑧 = 𝑀 → (𝑁 −s 𝑧) = (𝑁 −s 𝑀))
7776eleq1d 2845 . . . . 5 (𝑧 = 𝑀 → ((𝑁 −s 𝑧) ∈ ℕ0s ↔ (𝑁 −s 𝑀) ∈ ℕ0s))
7875, 77imbi12d 347 . . . 4 (𝑧 = 𝑀 → ((𝑧 ≤s 𝑁 → (𝑁 −s 𝑧) ∈ ℕ0s) ↔ (𝑀 ≤s 𝑁 → (𝑁 −s 𝑀) ∈ ℕ0s)))
7978rspcva 3574 . . 3 ((𝑀 ∈ ℕ0s ∧ ∀𝑧 ∈ ℕ0s (𝑧 ≤s 𝑁 → (𝑁 −s 𝑧) ∈ ℕ0s)) → (𝑀 ≤s 𝑁 → (𝑁 −s 𝑀) ∈ ℕ0s))
8074, 79sylan2 605 . 2 ((𝑀 ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s) → (𝑀 ≤s 𝑁 → (𝑁 −s 𝑀) ∈ ℕ0s))
81 n0sge0 28731 . . 3 ((𝑁 −s 𝑀) ∈ ℕ0s → 0s ≤s (𝑁 −s 𝑀))
82 n0no 28716 . . . . 5 (𝑁 ∈ ℕ0s → 𝑁 ∈ No)
8382adantl 487 . . . 4 ((𝑀 ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s) → 𝑁 ∈ No)
84 n0no 28716 . . . . 5 (𝑀 ∈ ℕ0s → 𝑀 ∈ No)
8584adantr 486 . . . 4 ((𝑀 ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s) → 𝑀 ∈ No)
8683, 85subsge0d 28493 . . 3 ((𝑀 ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s) → ( 0s ≤s (𝑁 −s 𝑀) ↔ 𝑀 ≤s 𝑁))
8781, 86imbitrid 247 . 2 ((𝑀 ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s) → ((𝑁 −s 𝑀) ∈ ℕ0s → 𝑀 ≤s 𝑁))
8880, 87impbid 215 1 ((𝑀 ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s) → (𝑀 ≤s 𝑁 ↔ (𝑁 −s 𝑀) ∈ ℕ0s))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1569   ∈ wcel 2144  ∀wral 3076   class class class wbr 5102  (class class class)co 7422  Nocsur 28004   ≤s cles 28108   0s c0s 28198   1s c1s 28199   +s cadds 28352   −s csubs 28413  ℕ0scn0s 28705
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7753
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3848  df-ss 3897  df-pss 4013  df-dif 4046  df-in 4090  df-un 4150  df-nul 4278  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4835  df-ot 4858  df-uni 4867  df-int 4907  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7379  df-ov 7425  df-oprab 7426  df-mpo 7427  df-om 7880  df-1st 8003  df-2nd 8004  df-frecs 8304  df-wrecs 8335  df-recs 8384  df-rdg 8423  df-1o 8481  df-2o 8482  df-nadd 8680  df-no 28007  df-lts 28008  df-bday 28009  df-les 28109  df-slts 28151  df-cuts 28153  df-0s 28200  df-1s 28201  df-made 28220  df-old 28221  df-left 28223  df-right 28224  df-norec 28331  df-norec2 28342  df-adds 28353  df-negs 28414  df-subs 28415  df-n0s 28707
This theorem is used by:  n0subs2  28757  elzn0s  28791  eln0zs  28793  bdayfinbndlem1  28860
  Copyright terms: Public domain W3C validator