Metamath Proof Explorer


Theorem fldedom

Description: A field is a Euclidean domain, regardless of its Euclidean norm. (Contributed by Thierry Arnoux, 29-Oct-2026)

Ref Expression
Hypotheses fldedom.b ⊢ B = Base F
fldedom.1 ⊢ 0 ˙ = 0 F
fldedom.2 ⊢ W = B ∖ 0 ˙
fldedom.e ⊢ E = EuclF ⁡ F
fldedom.f ⊢ φ → F ∈ Field
fldedom.3 ⊢ φ → E ↾ W : W ⟶ ℕ 0
Assertion fldedom ⊢ φ → F ∈ EDomn

Proof

Step Hyp Ref Expression
1 fldedom.b ⊢ B = Base F
2 fldedom.1 ⊢ 0 ˙ = 0 F
3 fldedom.2 ⊢ W = B ∖ 0 ˙
4 fldedom.e ⊢ E = EuclF ⁡ F
5 fldedom.f ⊢ φ → F ∈ Field
6 fldedom.3 ⊢ φ → E ↾ W : W ⟶ ℕ 0
7 fldidom ⊢ F ∈ Field → F ∈ IDomn
8 5 7 syl ⊢ φ → F ∈ IDomn
9 3 reseq2i ⊢ E ↾ W = E ↾ B ∖ 0 ˙
10 9 a1i ⊢ φ → E ↾ W = E ↾ B ∖ 0 ˙
11 3 a1i ⊢ φ → W = B ∖ 0 ˙
12 11 6 feq2dd ⊢ φ → E ↾ W : B ∖ 0 ˙ ⟶ ℕ 0
13 10 12 feq1dd ⊢ φ → E ↾ B ∖ 0 ˙ : B ∖ 0 ˙ ⟶ ℕ 0
14 oveq2 ⊢ q = inv r ⁡ F ⁡ y ⋅ F x → y ⋅ F q = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x
15 14 oveq1d ⊢ q = inv r ⁡ F ⁡ y ⋅ F x → y ⋅ F q + F r = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F r
16 15 eqeq2d ⊢ q = inv r ⁡ F ⁡ y ⋅ F x → x = y ⋅ F q + F r ↔ x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F r
17 16 anbi1d ⊢ q = inv r ⁡ F ⁡ y ⋅ F x → x = y ⋅ F q + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y ↔ x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y
18 oveq2 ⊢ r = 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F r = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F 0 ˙
19 18 eqeq2d ⊢ r = 0 ˙ → x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F r ↔ x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F 0 ˙
20 eqeq1 ⊢ r = 0 ˙ → r = 0 ˙ ↔ 0 ˙ = 0 ˙
21 fveq2 ⊢ r = 0 ˙ → E ↾ B ∖ 0 ˙ ⁡ r = E ↾ B ∖ 0 ˙ ⁡ 0 ˙
22 21 breq1d ⊢ r = 0 ˙ → E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y ↔ E ↾ B ∖ 0 ˙ ⁡ 0 ˙ < E ↾ B ∖ 0 ˙ ⁡ y
23 20 22 orbi12d ⊢ r = 0 ˙ → r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y ↔ 0 ˙ = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ 0 ˙ < E ↾ B ∖ 0 ˙ ⁡ y
24 19 23 anbi12d ⊢ r = 0 ˙ → x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y ↔ x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F 0 ˙ ∧ 0 ˙ = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ 0 ˙ < E ↾ B ∖ 0 ˙ ⁡ y
25 eqid ⊢ ⋅ F = ⋅ F
26 8 idomringd ⊢ φ → F ∈ Ring
27 26 ad2antrr ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → F ∈ Ring
28 eqid ⊢ inv r ⁡ F = inv r ⁡ F
29 5 flddrngd ⊢ φ → F ∈ DivRing
30 29 ad2antrr ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → F ∈ DivRing
31 difssd ⊢ φ ∧ x ∈ B → B ∖ 0 ˙ ⊆ B
32 31 sselda ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ∈ B
33 simpr ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ∈ B ∖ 0 ˙
34 33 eldifsnbd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ≠ 0 ˙
35 1 2 28 30 32 34 drnginvrcld ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → inv r ⁡ F ⁡ y ∈ B
36 simplr ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → x ∈ B
37 1 25 27 35 36 ringcld ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → inv r ⁡ F ⁡ y ⋅ F x ∈ B
38 26 ringgrpd ⊢ φ → F ∈ Grp
39 1 2 38 grpidcld ⊢ φ → 0 ˙ ∈ B
40 39 ad2antrr ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → 0 ˙ ∈ B
41 eqid ⊢ + F = + F
42 38 ad2antrr ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → F ∈ Grp
43 1 25 27 32 37 ringcld ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y ⋅ F x ∈ B
44 1 41 2 42 43 grpridd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F 0 ˙ = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x
45 1 25 27 32 35 36 ringassd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y ⋅ F x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x
46 eqid ⊢ 1 F = 1 F
47 1 2 25 46 28 30 32 34 drnginvrrd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y = 1 F
48 47 oveq1d ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y ⋅ F x = 1 F ⋅ F x
49 45 48 eqtr3d ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → y ⋅ F inv r ⁡ F ⁡ y ⋅ F x = 1 F ⋅ F x
50 1 25 46 27 36 ringlidmd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → 1 F ⋅ F x = x
51 44 49 50 3eqtrrd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F 0 ˙
52 eqidd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → 0 ˙ = 0 ˙
53 52 orcd ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → 0 ˙ = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ 0 ˙ < E ↾ B ∖ 0 ˙ ⁡ y
54 51 53 jca ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → x = y ⋅ F inv r ⁡ F ⁡ y ⋅ F x + F 0 ˙ ∧ 0 ˙ = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ 0 ˙ < E ↾ B ∖ 0 ˙ ⁡ y
55 17 24 37 40 54 2rspcedvdw ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → ∃ q ∈ B ∃ r ∈ B x = y ⋅ F q + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y
56 55 anasss ⊢ φ ∧ x ∈ B ∧ y ∈ B ∖ 0 ˙ → ∃ q ∈ B ∃ r ∈ B x = y ⋅ F q + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y
57 56 ralrimivva ⊢ φ → ∀ x ∈ B ∀ y ∈ B ∖ 0 ˙ ∃ q ∈ B ∃ r ∈ B x = y ⋅ F q + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y
58 13 57 jca ⊢ φ → E ↾ B ∖ 0 ˙ : B ∖ 0 ˙ ⟶ ℕ 0 ∧ ∀ x ∈ B ∀ y ∈ B ∖ 0 ˙ ∃ q ∈ B ∃ r ∈ B x = y ⋅ F q + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y
59 4 reseq1i ⊢ E ↾ B ∖ 0 ˙ = EuclF ⁡ F ↾ B ∖ 0 ˙
60 1 2 41 25 59 isedom ⊢ F ∈ EDomn ↔ F ∈ IDomn ∧ E ↾ B ∖ 0 ˙ : B ∖ 0 ˙ ⟶ ℕ 0 ∧ ∀ x ∈ B ∀ y ∈ B ∖ 0 ˙ ∃ q ∈ B ∃ r ∈ B x = y ⋅ F q + F r ∧ r = 0 ˙ ∨ E ↾ B ∖ 0 ˙ ⁡ r < E ↾ B ∖ 0 ˙ ⁡ y
61 8 58 60 sylanbrc ⊢ φ → F ∈ EDomn