divalgb - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > divalgb		GIF version

Theorem divalgb 11924

Description: Express the division algorithm as stated in divalg 11923 in terms of ∥. (Contributed by Paul Chapman, 31-Mar-2011.)

**Assertion**
Ref	Expression
divalgb	⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝐷 ≠ 0) → (∃!𝑟 ∈ ℤ ∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ∃!𝑟 ∈ ℕ₀ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))))

Distinct variable groups: 𝐷,𝑞,𝑟 𝑁,𝑞,𝑟

**Proof of Theorem divalgb**
Step	Hyp	Ref	Expression
1		df-3an 980	. . . . . . . . 9 ⊢ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
2	1	rexbii 2484	. . . . . . . 8 ⊢ (∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ∃𝑞 ∈ ℤ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
3		r19.42v 2634	. . . . . . . 8 ⊢ (∃𝑞 ∈ ℤ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ ∃𝑞 ∈ ℤ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
4	2, 3	bitri 184	. . . . . . 7 ⊢ (∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ ∃𝑞 ∈ ℤ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
5		zsubcl 9292	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (𝑁 − 𝑟) ∈ ℤ)
6		divides 11791	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ ℤ ∧ (𝑁 − 𝑟) ∈ ℤ) → (𝐷 ∥ (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ (𝑞 · 𝐷) = (𝑁 − 𝑟)))
7	5, 6	sylan2 286	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ ℤ ∧ (𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ)) → (𝐷 ∥ (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ (𝑞 · 𝐷) = (𝑁 − 𝑟)))
8	7	3impb 1199	. . . . . . . . . 10 ⊢ ((𝐷 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (𝐷 ∥ (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ (𝑞 · 𝐷) = (𝑁 − 𝑟)))
9	8	3com12 1207	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (𝐷 ∥ (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ (𝑞 · 𝐷) = (𝑁 − 𝑟)))
10		zcn 9256	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℤ → 𝑁 ∈ ℂ)
11		zcn 9256	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 ∈ ℤ → 𝑟 ∈ ℂ)
12		zmulcl 9304	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (𝑞 · 𝐷) ∈ ℤ)
13	12	zcnd 9374	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (𝑞 · 𝐷) ∈ ℂ)
14		subadd 8158	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℂ ∧ 𝑟 ∈ ℂ ∧ (𝑞 · 𝐷) ∈ ℂ) → ((𝑁 − 𝑟) = (𝑞 · 𝐷) ↔ (𝑟 + (𝑞 · 𝐷)) = 𝑁))
15	10, 11, 13, 14	syl3an 1280	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ (𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → ((𝑁 − 𝑟) = (𝑞 · 𝐷) ↔ (𝑟 + (𝑞 · 𝐷)) = 𝑁))
16		addcom 8092	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑟 ∈ ℂ ∧ (𝑞 · 𝐷) ∈ ℂ) → (𝑟 + (𝑞 · 𝐷)) = ((𝑞 · 𝐷) + 𝑟))
17	11, 13, 16	syl2an 289	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑟 ∈ ℤ ∧ (𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → (𝑟 + (𝑞 · 𝐷)) = ((𝑞 · 𝐷) + 𝑟))
18	17	3adant1 1015	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ (𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → (𝑟 + (𝑞 · 𝐷)) = ((𝑞 · 𝐷) + 𝑟))
19	18	eqeq1d 2186	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ (𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → ((𝑟 + (𝑞 · 𝐷)) = 𝑁 ↔ ((𝑞 · 𝐷) + 𝑟) = 𝑁))
20	15, 19	bitrd 188	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ (𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → ((𝑁 − 𝑟) = (𝑞 · 𝐷) ↔ ((𝑞 · 𝐷) + 𝑟) = 𝑁))
21		eqcom 2179	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 − 𝑟) = (𝑞 · 𝐷) ↔ (𝑞 · 𝐷) = (𝑁 − 𝑟))
22		eqcom 2179	. . . . . . . . . . . . . . . 16 ⊢ (((𝑞 · 𝐷) + 𝑟) = 𝑁 ↔ 𝑁 = ((𝑞 · 𝐷) + 𝑟))
23	20, 21, 22	3bitr3g 222	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ (𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → ((𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
24	23	3expia 1205	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ) → ((𝑞 ∈ ℤ ∧ 𝐷 ∈ ℤ) → ((𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ 𝑁 = ((𝑞 · 𝐷) + 𝑟))))
25	24	expcomd 1441	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (𝐷 ∈ ℤ → (𝑞 ∈ ℤ → ((𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))))
26	25	3impia 1200	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (𝑞 ∈ ℤ → ((𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ 𝑁 = ((𝑞 · 𝐷) + 𝑟))))
27	26	imp 124	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝐷 ∈ ℤ) ∧ 𝑞 ∈ ℤ) → ((𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
28	27	rexbidva 2474	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (∃𝑞 ∈ ℤ (𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
29	28	3com23 1209	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (∃𝑞 ∈ ℤ (𝑞 · 𝐷) = (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
30	9, 29	bitrd 188	. . . . . . . 8 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (𝐷 ∥ (𝑁 − 𝑟) ↔ ∃𝑞 ∈ ℤ 𝑁 = ((𝑞 · 𝐷) + 𝑟)))
31	30	anbi2d 464	. . . . . . 7 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ 𝐷 ∥ (𝑁 − 𝑟)) ↔ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ ∃𝑞 ∈ ℤ 𝑁 = ((𝑞 · 𝐷) + 𝑟))))
32	4, 31	bitr4id 199	. . . . . 6 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ 𝐷 ∥ (𝑁 − 𝑟))))
33		anass 401	. . . . . 6 ⊢ (((0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷)) ∧ 𝐷 ∥ (𝑁 − 𝑟)) ↔ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))))
34	32, 33	bitrdi 196	. . . . 5 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝑟 ∈ ℤ) → (∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
35	34	3expa 1203	. . . 4 ⊢ (((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ) ∧ 𝑟 ∈ ℤ) → (∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
36	35	reubidva 2659	. . 3 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (∃!𝑟 ∈ ℤ ∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ∃!𝑟 ∈ ℤ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
37		elnn0z 9264	. . . . . . 7 ⊢ (𝑟 ∈ ℕ₀ ↔ (𝑟 ∈ ℤ ∧ 0 ≤ 𝑟))
38	37	anbi1i 458	. . . . . 6 ⊢ ((𝑟 ∈ ℕ₀ ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))) ↔ ((𝑟 ∈ ℤ ∧ 0 ≤ 𝑟) ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))))
39		anass 401	. . . . . 6 ⊢ (((𝑟 ∈ ℤ ∧ 0 ≤ 𝑟) ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))) ↔ (𝑟 ∈ ℤ ∧ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
40	38, 39	bitri 184	. . . . 5 ⊢ ((𝑟 ∈ ℕ₀ ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))) ↔ (𝑟 ∈ ℤ ∧ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
41	40	eubii 2035	. . . 4 ⊢ (∃!𝑟(𝑟 ∈ ℕ₀ ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))) ↔ ∃!𝑟(𝑟 ∈ ℤ ∧ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
42		df-reu 2462	. . . 4 ⊢ (∃!𝑟 ∈ ℕ₀ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)) ↔ ∃!𝑟(𝑟 ∈ ℕ₀ ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))))
43		df-reu 2462	. . . 4 ⊢ (∃!𝑟 ∈ ℤ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))) ↔ ∃!𝑟(𝑟 ∈ ℤ ∧ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))))
44	41, 42, 43	3bitr4ri 213	. . 3 ⊢ (∃!𝑟 ∈ ℤ (0 ≤ 𝑟 ∧ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))) ↔ ∃!𝑟 ∈ ℕ₀ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟)))
45	36, 44	bitrdi 196	. 2 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (∃!𝑟 ∈ ℤ ∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ∃!𝑟 ∈ ℕ₀ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))))
46	45	3adant3 1017	1 ⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ ∧ 𝐷 ≠ 0) → (∃!𝑟 ∈ ℤ ∃𝑞 ∈ ℤ (0 ≤ 𝑟 ∧ 𝑟 < (abs‘𝐷) ∧ 𝑁 = ((𝑞 · 𝐷) + 𝑟)) ↔ ∃!𝑟 ∈ ℕ₀ (𝑟 < (abs‘𝐷) ∧ 𝐷 ∥ (𝑁 − 𝑟))))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∧ w3a 978 = wceq 1353 ∃!weu 2026 ∈ wcel 2148 ≠ wne 2347 ∃wrex 2456 ∃!wreu 2457 class class class wbr 4003 ‘cfv 5216 (class class class)co 5874 ℂcc 7808 0cc0 7810 + caddc 7813 · cmul 7815 < clt 7990 ≤ cle 7991 − cmin 8126 ℕ₀cn0 9174 ℤcz 9251 abscabs 11001 ∥ cdvds 11789

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 614 ax-in2 615 ax-io 709 ax-5 1447 ax-7 1448 ax-gen 1449 ax-ie1 1493 ax-ie2 1494 ax-8 1504 ax-10 1505 ax-11 1506 ax-i12 1507 ax-bndl 1509 ax-4 1510 ax-17 1526 ax-i9 1530 ax-ial 1534 ax-i5r 1535 ax-13 2150 ax-14 2151 ax-ext 2159 ax-sep 4121 ax-pow 4174 ax-pr 4209 ax-un 4433 ax-setind 4536 ax-cnex 7901 ax-resscn 7902 ax-1cn 7903 ax-1re 7904 ax-icn 7905 ax-addcl 7906 ax-addrcl 7907 ax-mulcl 7908 ax-mulrcl 7909 ax-addcom 7910 ax-mulcom 7911 ax-addass 7912 ax-mulass 7913 ax-distr 7914 ax-i2m1 7915 ax-0lt1 7916 ax-1rid 7917 ax-0id 7918 ax-rnegex 7919 ax-cnre 7921 ax-pre-ltirr 7922 ax-pre-ltwlin 7923 ax-pre-lttrn 7924 ax-pre-ltadd 7926

This theorem depends on definitions: df-bi 117 df-3or 979 df-3an 980 df-tru 1356 df-fal 1359 df-nf 1461 df-sb 1763 df-eu 2029 df-mo 2030 df-clab 2164 df-cleq 2170 df-clel 2173 df-nfc 2308 df-ne 2348 df-nel 2443 df-ral 2460 df-rex 2461 df-reu 2462 df-rab 2464 df-v 2739 df-sbc 2963 df-dif 3131 df-un 3133 df-in 3135 df-ss 3142 df-pw 3577 df-sn 3598 df-pr 3599 df-op 3601 df-uni 3810 df-int 3845 df-br 4004 df-opab 4065 df-id 4293 df-xp 4632 df-rel 4633 df-cnv 4634 df-co 4635 df-dm 4636 df-iota 5178 df-fun 5218 df-fv 5224 df-riota 5830 df-ov 5877 df-oprab 5878 df-mpo 5879 df-pnf 7992 df-mnf 7993 df-xr 7994 df-ltxr 7995 df-le 7996 df-sub 8128 df-neg 8129 df-inn 8918 df-n0 9175 df-z 9252 df-dvds 11790

This theorem is referenced by: divalg2 11925

W3C validator