Metamath Proof Explorer


Theorem ricdomn1

Description: A ring isomorphism maps a domain to a domain. (Contributed by Thierry Arnoux, 4-May-2026)

Ref Expression
Assertion ricdomn1 ⊢ R ≃ 𝑟 S ∧ R ∈ Domn → S ∈ Domn

Proof

Step Hyp Ref Expression
1 domnnzr ⊢ R ∈ Domn → R ∈ NzRing
2 ricnzr1 ⊢ R ≃ 𝑟 S ∧ R ∈ NzRing → S ∈ NzRing
3 1 2 sylan2 ⊢ R ≃ 𝑟 S ∧ R ∈ Domn → S ∈ NzRing
4 ricsym ⊢ R ≃ 𝑟 S → S ≃ 𝑟 R
5 brric ⊢ S ≃ 𝑟 R ↔ S RingIso R ≠ ∅
6 4 5 sylib ⊢ R ≃ 𝑟 S → S RingIso R ≠ ∅
7 6 ad4antr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S → S RingIso R ≠ ∅
8 simpr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → f ⁡ x = 0 R
9 8 fveq2d ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → f -1 ⁡ f ⁡ x = f -1 ⁡ 0 R
10 eqid ⊢ Base S = Base S
11 eqid ⊢ Base R = Base R
12 10 11 rimf1o ⊢ f ∈ S RingIso R → f : Base S ⟶ 1-1 onto Base R
13 12 ad2antlr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → f : Base S ⟶ 1-1 onto Base R
14 simp-4r ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → x ∈ Base S
15 14 adantr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → x ∈ Base S
16 f1ocnvfv1 ⊢ f : Base S ⟶ 1-1 onto Base R ∧ x ∈ Base S → f -1 ⁡ f ⁡ x = x
17 13 15 16 syl2anc ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → f -1 ⁡ f ⁡ x = x
18 isrim0 ⊢ f ∈ S RingIso R ↔ f ∈ S RingHom R ∧ f -1 ∈ R RingHom S
19 18 simprbi ⊢ f ∈ S RingIso R → f -1 ∈ R RingHom S
20 19 ad2antlr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → f -1 ∈ R RingHom S
21 rhmghm ⊢ f -1 ∈ R RingHom S → f -1 ∈ R GrpHom S
22 eqid ⊢ 0 R = 0 R
23 eqid ⊢ 0 S = 0 S
24 22 23 ghmid ⊢ f -1 ∈ R GrpHom S → f -1 ⁡ 0 R = 0 S
25 20 21 24 3syl ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → f -1 ⁡ 0 R = 0 S
26 9 17 25 3eqtr3d ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ x = 0 R → x = 0 S
27 simpr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → f ⁡ y = 0 R
28 27 fveq2d ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → f -1 ⁡ f ⁡ y = f -1 ⁡ 0 R
29 12 ad2antlr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → f : Base S ⟶ 1-1 onto Base R
30 simpllr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → y ∈ Base S
31 30 adantr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → y ∈ Base S
32 f1ocnvfv1 ⊢ f : Base S ⟶ 1-1 onto Base R ∧ y ∈ Base S → f -1 ⁡ f ⁡ y = y
33 29 31 32 syl2anc ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → f -1 ⁡ f ⁡ y = y
34 19 ad2antlr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → f -1 ∈ R RingHom S
35 34 21 24 3syl ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → f -1 ⁡ 0 R = 0 S
36 28 33 35 3eqtr3d ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R ∧ f ⁡ y = 0 R → y = 0 S
37 simp-5r ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → R ∈ Domn
38 rimrhm ⊢ f ∈ S RingIso R → f ∈ S RingHom R
39 10 11 rhmf ⊢ f ∈ S RingHom R → f : Base S ⟶ Base R
40 38 39 syl ⊢ f ∈ S RingIso R → f : Base S ⟶ Base R
41 40 adantl ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f : Base S ⟶ Base R
42 41 14 ffvelcdmd ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ x ∈ Base R
43 41 30 ffvelcdmd ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ y ∈ Base R
44 simplr ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → x ⋅ S y = 0 S
45 44 fveq2d ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ x ⋅ S y = f ⁡ 0 S
46 38 adantl ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ∈ S RingHom R
47 eqid ⊢ ⋅ S = ⋅ S
48 eqid ⊢ ⋅ R = ⋅ R
49 10 47 48 rhmmul ⊢ f ∈ S RingHom R ∧ x ∈ Base S ∧ y ∈ Base S → f ⁡ x ⋅ S y = f ⁡ x ⋅ R f ⁡ y
50 46 14 30 49 syl3anc ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ x ⋅ S y = f ⁡ x ⋅ R f ⁡ y
51 rhmghm ⊢ f ∈ S RingHom R → f ∈ S GrpHom R
52 23 22 ghmid ⊢ f ∈ S GrpHom R → f ⁡ 0 S = 0 R
53 46 51 52 3syl ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ 0 S = 0 R
54 45 50 53 3eqtr3d ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ x ⋅ R f ⁡ y = 0 R
55 11 48 22 domneq0 ⊢ R ∈ Domn ∧ f ⁡ x ∈ Base R ∧ f ⁡ y ∈ Base R → f ⁡ x ⋅ R f ⁡ y = 0 R ↔ f ⁡ x = 0 R ∨ f ⁡ y = 0 R
56 55 biimpa ⊢ R ∈ Domn ∧ f ⁡ x ∈ Base R ∧ f ⁡ y ∈ Base R ∧ f ⁡ x ⋅ R f ⁡ y = 0 R → f ⁡ x = 0 R ∨ f ⁡ y = 0 R
57 37 42 43 54 56 syl31anc ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → f ⁡ x = 0 R ∨ f ⁡ y = 0 R
58 26 36 57 orim12da ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S ∧ f ∈ S RingIso R → x = 0 S ∨ y = 0 S
59 7 58 n0limd ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S ∧ x ⋅ S y = 0 S → x = 0 S ∨ y = 0 S
60 59 ex ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S → x ⋅ S y = 0 S → x = 0 S ∨ y = 0 S
61 60 anasss ⊢ R ≃ 𝑟 S ∧ R ∈ Domn ∧ x ∈ Base S ∧ y ∈ Base S → x ⋅ S y = 0 S → x = 0 S ∨ y = 0 S
62 61 ralrimivva ⊢ R ≃ 𝑟 S ∧ R ∈ Domn → ∀ x ∈ Base S ∀ y ∈ Base S x ⋅ S y = 0 S → x = 0 S ∨ y = 0 S
63 10 47 23 isdomn ⊢ S ∈ Domn ↔ S ∈ NzRing ∧ ∀ x ∈ Base S ∀ y ∈ Base S x ⋅ S y = 0 S → x = 0 S ∨ y = 0 S
64 3 62 63 sylanbrc ⊢ R ≃ 𝑟 S ∧ R ∈ Domn → S ∈ Domn