Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  qqhrhm Structured version   Visualization version   GIF version

Theorem qqhrhm 34324
Description: The ℚHom homomorphism is a ring homomorphism if the target structure is a field. If the target structure is a division ring, it is a group homomorphism, but not a ring homomorphism, because it does not preserve the ring multiplication operation. (Contributed by Thierry Arnoux, 29-Oct-2017.)
Hypotheses
Ref Expression
qqhval2.0 𝐵 = (Base‘𝑅)
qqhval2.1 / = (/r𝑅)
qqhval2.2 𝐿 = (ℤRHom‘𝑅)
qqhrhm.1 𝑄 = (ℂflds ℚ)
Assertion
Ref Expression
qqhrhm ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅) ∈ (𝑄 RingHom 𝑅))

Proof of Theorem qqhrhm
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 qqhrhm.1 . . 3 𝑄 = (ℂflds ℚ)
21qrngbas 27749 . 2 ℚ = (Base‘𝑄)
31qrng1 27752 . 2 1 = (1r𝑄)
4 eqid 2769 . 2 (1r𝑅) = (1r𝑅)
5 qex 12985 . . 3 ℚ ∈ V
6 cnfldmul 21499 . . . 4 · = (.r‘ℂfld)
71, 6ressmulr 17360 . . 3 (ℚ ∈ V → · = (.r𝑄))
85, 7ax-mp 5 . 2 · = (.r𝑄)
9 eqid 2769 . 2 (.r𝑅) = (.r𝑅)
101qdrng 27750 . . 3 𝑄 ∈ DivRing
11 drngring 20820 . . 3 (𝑄 ∈ DivRing → 𝑄 ∈ Ring)
1210, 11mp1i 14 . 2 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → 𝑄 ∈ Ring)
13 isfld 20824 . . . . 5 (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
1413simplbi 501 . . . 4 (𝑅 ∈ Field → 𝑅 ∈ DivRing)
1514adantr 485 . . 3 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → 𝑅 ∈ DivRing)
16 drngring 20820 . . 3 (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
1715, 16syl 18 . 2 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → 𝑅 ∈ Ring)
18 qqhval2.0 . . . 4 𝐵 = (Base‘𝑅)
19 qqhval2.1 . . . 4 / = (/r𝑅)
20 qqhval2.2 . . . 4 𝐿 = (ℤRHom‘𝑅)
2118, 19, 20qqh1 34320 . . 3 ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → ((ℚHom‘𝑅)‘1) = (1r𝑅))
2214, 21sylan 591 . 2 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → ((ℚHom‘𝑅)‘1) = (1r𝑅))
23 eqid 2769 . . . 4 (Unit‘𝑅) = (Unit‘𝑅)
24 eqid 2769 . . . 4 (+g𝑅) = (+g𝑅)
2513simprbi 502 . . . . 5 (𝑅 ∈ Field → 𝑅 ∈ CRing)
2625ad2antrr 738 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑅 ∈ CRing)
2720zrhrhm 21630 . . . . . . 7 (𝑅 ∈ Ring → 𝐿 ∈ (ℤring RingHom 𝑅))
28 zringbas 21572 . . . . . . . 8 ℤ = (Base‘ℤring)
2928, 18rhmf 20566 . . . . . . 7 (𝐿 ∈ (ℤring RingHom 𝑅) → 𝐿:ℤ⟶𝐵)
3017, 27, 293syl 19 . . . . . 6 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → 𝐿:ℤ⟶𝐵)
3130adantr 485 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝐿:ℤ⟶𝐵)
32 qnumcl 16799 . . . . . 6 (𝑥 ∈ ℚ → (numer‘𝑥) ∈ ℤ)
3332ad2antrl 740 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑥) ∈ ℤ)
3431, 33ffvelcdmd 7081 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘(numer‘𝑥)) ∈ 𝐵)
3514ad2antrr 738 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑅 ∈ DivRing)
36 simplr 780 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (chr‘𝑅) = 0)
3735, 36jca 520 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0))
38 qdencl 16800 . . . . . . 7 (𝑥 ∈ ℚ → (denom‘𝑥) ∈ ℕ)
3938ad2antrl 740 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ∈ ℕ)
4039nnzd 12617 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ∈ ℤ)
4139nnne0d 12286 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ≠ 0)
42 eqid 2769 . . . . . 6 (0g𝑅) = (0g𝑅)
4318, 20, 42elzrhunit 34312 . . . . 5 (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((denom‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ≠ 0)) → (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅))
4437, 40, 41, 43syl12anc 849 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅))
45 qnumcl 16799 . . . . . 6 (𝑦 ∈ ℚ → (numer‘𝑦) ∈ ℤ)
4645ad2antll 741 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑦) ∈ ℤ)
4731, 46ffvelcdmd 7081 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘(numer‘𝑦)) ∈ 𝐵)
48 qdencl 16800 . . . . . . 7 (𝑦 ∈ ℚ → (denom‘𝑦) ∈ ℕ)
4948ad2antll 741 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ∈ ℕ)
5049nnzd 12617 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ∈ ℤ)
5149nnne0d 12286 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ≠ 0)
5218, 20, 42elzrhunit 34312 . . . . 5 (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((denom‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ≠ 0)) → (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅))
5337, 50, 51, 52syl12anc 849 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅))
5418, 23, 24, 19, 9, 26, 34, 44, 47, 53rdivmuldivd 20495 . . 3 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥)))(.r𝑅)((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦)))) = (((𝐿‘(numer‘𝑥))(.r𝑅)(𝐿‘(numer‘𝑦))) / ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦)))))
55 qeqnumdivden 16805 . . . . . . 7 (𝑥 ∈ ℚ → 𝑥 = ((numer‘𝑥) / (denom‘𝑥)))
5655fveq2d 6886 . . . . . 6 (𝑥 ∈ ℚ → ((ℚHom‘𝑅)‘𝑥) = ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))))
5756ad2antrl 740 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑥) = ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))))
5818, 19, 20qqhvq 34322 . . . . . 6 (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((numer‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ≠ 0)) → ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))) = ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))))
5937, 33, 40, 41, 58syl13anc 1397 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))) = ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))))
6057, 59eqtrd 2804 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑥) = ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))))
61 qeqnumdivden 16805 . . . . . . 7 (𝑦 ∈ ℚ → 𝑦 = ((numer‘𝑦) / (denom‘𝑦)))
6261fveq2d 6886 . . . . . 6 (𝑦 ∈ ℚ → ((ℚHom‘𝑅)‘𝑦) = ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))))
6362ad2antll 741 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑦) = ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))))
6418, 19, 20qqhvq 34322 . . . . . 6 (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((numer‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ≠ 0)) → ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))) = ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))))
6537, 46, 50, 51, 64syl13anc 1397 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))) = ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))))
6663, 65eqtrd 2804 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑦) = ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))))
6760, 66oveq12d 7429 . . 3 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((ℚHom‘𝑅)‘𝑥)(.r𝑅)((ℚHom‘𝑅)‘𝑦)) = (((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥)))(.r𝑅)((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦)))))
6855ad2antrl 740 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑥 = ((numer‘𝑥) / (denom‘𝑥)))
6961ad2antll 741 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑦 = ((numer‘𝑦) / (denom‘𝑦)))
7068, 69oveq12d 7429 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑥 · 𝑦) = (((numer‘𝑥) / (denom‘𝑥)) · ((numer‘𝑦) / (denom‘𝑦))))
7133zcnd 12701 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑥) ∈ ℂ)
7240zcnd 12701 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ∈ ℂ)
7346zcnd 12701 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑦) ∈ ℂ)
7450zcnd 12701 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ∈ ℂ)
7571, 72, 73, 74, 41, 51divmuldivd 12032 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((numer‘𝑥) / (denom‘𝑥)) · ((numer‘𝑦) / (denom‘𝑦))) = (((numer‘𝑥) · (numer‘𝑦)) / ((denom‘𝑥) · (denom‘𝑦))))
7670, 75eqtrd 2804 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑥 · 𝑦) = (((numer‘𝑥) · (numer‘𝑦)) / ((denom‘𝑥) · (denom‘𝑦))))
7776fveq2d 6886 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 · 𝑦)) = ((ℚHom‘𝑅)‘(((numer‘𝑥) · (numer‘𝑦)) / ((denom‘𝑥) · (denom‘𝑦)))))
7833, 46zmulcld 12706 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((numer‘𝑥) · (numer‘𝑦)) ∈ ℤ)
7940, 50zmulcld 12706 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((denom‘𝑥) · (denom‘𝑦)) ∈ ℤ)
8072, 74, 41, 51mulne0d 11866 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((denom‘𝑥) · (denom‘𝑦)) ≠ 0)
8118, 19, 20qqhvq 34322 . . . . 5 (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (((numer‘𝑥) · (numer‘𝑦)) ∈ ℤ ∧ ((denom‘𝑥) · (denom‘𝑦)) ∈ ℤ ∧ ((denom‘𝑥) · (denom‘𝑦)) ≠ 0)) → ((ℚHom‘𝑅)‘(((numer‘𝑥) · (numer‘𝑦)) / ((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘((numer‘𝑥) · (numer‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
8237, 78, 79, 80, 81syl13anc 1397 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(((numer‘𝑥) · (numer‘𝑦)) / ((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘((numer‘𝑥) · (numer‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
8335, 16syl 18 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑅 ∈ Ring)
8483, 27syl 18 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝐿 ∈ (ℤring RingHom 𝑅))
85 zringmulr 21576 . . . . . . 7 · = (.r‘ℤring)
8628, 85, 9rhmmul 20568 . . . . . 6 ((𝐿 ∈ (ℤring RingHom 𝑅) ∧ (numer‘𝑥) ∈ ℤ ∧ (numer‘𝑦) ∈ ℤ) → (𝐿‘((numer‘𝑥) · (numer‘𝑦))) = ((𝐿‘(numer‘𝑥))(.r𝑅)(𝐿‘(numer‘𝑦))))
8784, 33, 46, 86syl3anc 1396 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((numer‘𝑥) · (numer‘𝑦))) = ((𝐿‘(numer‘𝑥))(.r𝑅)(𝐿‘(numer‘𝑦))))
8828, 85, 9rhmmul 20568 . . . . . 6 ((𝐿 ∈ (ℤring RingHom 𝑅) ∧ (denom‘𝑥) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) = ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦))))
8984, 40, 50, 88syl3anc 1396 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) = ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦))))
9087, 89oveq12d 7429 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘((numer‘𝑥) · (numer‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘(numer‘𝑥))(.r𝑅)(𝐿‘(numer‘𝑦))) / ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦)))))
9177, 82, 903eqtrd 2808 . . 3 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 · 𝑦)) = (((𝐿‘(numer‘𝑥))(.r𝑅)(𝐿‘(numer‘𝑦))) / ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦)))))
9254, 67, 913eqtr4rd 2815 . 2 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 · 𝑦)) = (((ℚHom‘𝑅)‘𝑥)(.r𝑅)((ℚHom‘𝑅)‘𝑦)))
93 cnfldadd 21497 . . . 4 + = (+g‘ℂfld)
941, 93ressplusg 17344 . . 3 (ℚ ∈ V → + = (+g𝑄))
955, 94ax-mp 5 . 2 + = (+g𝑄)
9618, 19, 20qqhf 34321 . . 3 ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅):ℚ⟶𝐵)
9714, 96sylan 591 . 2 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅):ℚ⟶𝐵)
9833, 50zmulcld 12706 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((numer‘𝑥) · (denom‘𝑦)) ∈ ℤ)
9931, 98ffvelcdmd 7081 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((numer‘𝑥) · (denom‘𝑦))) ∈ 𝐵)
10046, 40zmulcld 12706 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((numer‘𝑦) · (denom‘𝑥)) ∈ ℤ)
10131, 100ffvelcdmd 7081 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((numer‘𝑦) · (denom‘𝑥))) ∈ 𝐵)
10223, 9unitmulcl 20462 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅) ∧ (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅)) → ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦))) ∈ (Unit‘𝑅))
10383, 44, 53, 102syl3anc 1396 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(denom‘𝑥))(.r𝑅)(𝐿‘(denom‘𝑦))) ∈ (Unit‘𝑅))
10489, 103eqeltrd 2869 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) ∈ (Unit‘𝑅))
10518, 23, 24, 19dvrdir 20494 . . . 4 ((𝑅 ∈ Ring ∧ ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) ∈ 𝐵 ∧ (𝐿‘((numer‘𝑦) · (denom‘𝑥))) ∈ 𝐵 ∧ (𝐿‘((denom‘𝑥) · (denom‘𝑦))) ∈ (Unit‘𝑅))) → (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+g𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))(+g𝑅)((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))))
10683, 99, 101, 104, 105syl13anc 1397 . . 3 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+g𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))(+g𝑅)((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))))
10768, 69oveq12d 7429 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑥 + 𝑦) = (((numer‘𝑥) / (denom‘𝑥)) + ((numer‘𝑦) / (denom‘𝑦))))
10871, 72, 73, 74, 41, 51divadddivd 12035 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((numer‘𝑥) / (denom‘𝑥)) + ((numer‘𝑦) / (denom‘𝑦))) = ((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦))))
109107, 108eqtrd 2804 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑥 + 𝑦) = ((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦))))
110109fveq2d 6886 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 + 𝑦)) = ((ℚHom‘𝑅)‘((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦)))))
11198, 100zaddcld 12704 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) ∈ ℤ)
11218, 19, 20qqhvq 34322 . . . . 5 (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) ∈ ℤ ∧ ((denom‘𝑥) · (denom‘𝑦)) ∈ ℤ ∧ ((denom‘𝑥) · (denom‘𝑦)) ≠ 0)) → ((ℚHom‘𝑅)‘((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
11337, 111, 79, 80, 112syl13anc 1397 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
114 rhmghm 20565 . . . . . 6 (𝐿 ∈ (ℤring RingHom 𝑅) → 𝐿 ∈ (ℤring GrpHom 𝑅))
11584, 114syl 18 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝐿 ∈ (ℤring GrpHom 𝑅))
116 zringplusg 21573 . . . . . . 7 + = (+g‘ℤring)
11728, 116, 24ghmlin 19291 . . . . . 6 ((𝐿 ∈ (ℤring GrpHom 𝑅) ∧ ((numer‘𝑥) · (denom‘𝑦)) ∈ ℤ ∧ ((numer‘𝑦) · (denom‘𝑥)) ∈ ℤ) → (𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+g𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))))
118117oveq1d 7426 . . . . 5 ((𝐿 ∈ (ℤring GrpHom 𝑅) ∧ ((numer‘𝑥) · (denom‘𝑦)) ∈ ℤ ∧ ((numer‘𝑦) · (denom‘𝑥)) ∈ ℤ) → ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+g𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
119115, 98, 100, 118syl3anc 1396 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+g𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
120110, 113, 1193eqtrd 2808 . . 3 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 + 𝑦)) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+g𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
12123, 28, 19, 85rhmdvd 33587 . . . . . 6 ((𝐿 ∈ (ℤring RingHom 𝑅) ∧ ((numer‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ) ∧ ((𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅) ∧ (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅))) → ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
12284, 33, 40, 50, 44, 53, 121syl132anc 1413 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
12357, 59, 1223eqtrd 2808 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑥) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
12423, 28, 19, 85rhmdvd 33587 . . . . . . 7 ((𝐿 ∈ (ℤring RingHom 𝑅) ∧ ((numer‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ ∧ (denom‘𝑥) ∈ ℤ) ∧ ((𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅) ∧ (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅))) → ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑦) · (denom‘𝑥)))))
12584, 46, 50, 40, 53, 44, 124syl132anc 1413 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑦) · (denom‘𝑥)))))
12672, 74mulcomd 11230 . . . . . . . 8 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((denom‘𝑥) · (denom‘𝑦)) = ((denom‘𝑦) · (denom‘𝑥)))
127126fveq2d 6886 . . . . . . 7 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) = (𝐿‘((denom‘𝑦) · (denom‘𝑥))))
128127oveq2d 7427 . . . . . 6 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑦) · (denom‘𝑥)))))
129125, 65, 1283eqtr4d 2814 . . . . 5 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
13063, 129eqtrd 2804 . . . 4 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑦) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
131123, 130oveq12d 7429 . . 3 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((ℚHom‘𝑅)‘𝑥)(+g𝑅)((ℚHom‘𝑅)‘𝑦)) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))(+g𝑅)((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))))
132106, 120, 1313eqtr4d 2814 . 2 (((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 + 𝑦)) = (((ℚHom‘𝑅)‘𝑥)(+g𝑅)((ℚHom‘𝑅)‘𝑦)))
1332, 3, 4, 8, 9, 12, 17, 22, 92, 18, 95, 24, 97, 132isrhmd 20570 1 ((𝑅 ∈ Field ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅) ∈ (𝑄 RingHom 𝑅))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 400  w3a 1101   = wceq 1567  wcel 2149  wne 2964  Vcvv 3463  wf 6533  cfv 6537  (class class class)co 7411  0cc0 11100  1c1 11101   + caddc 11103   · cmul 11105   / cdiv 11871  cn 12233  cz 12591  cq 12972  numercnumer 16792  denomcdenom 16793  Basecbs 17269  s cress 17290  +gcplusg 17310  .rcmulr 17311  0gc0g 17492   GrpHom cghm 19283  1rcur 20263  Ringcrg 20315  CRingccrg 20316  Unitcui 20437  /rcdvr 20482   RingHom crh 20551  DivRingcdr 20813  Fieldcfield 20814  fldccnfld 21491  ringczring 21565  ℤRHomczrh 21618  chrcchr 21620  ℚHomcqqh 34305
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11156  ax-resscn 11157  ax-1cn 11158  ax-icn 11159  ax-addcl 11160  ax-addrcl 11161  ax-mulcl 11162  ax-mulrcl 11163  ax-mulcom 11164  ax-addass 11165  ax-mulass 11166  ax-distr 11167  ax-i2m1 11168  ax-1ne0 11169  ax-1rid 11170  ax-rnegex 11171  ax-rrecex 11172  ax-cnre 11173  ax-pre-lttri 11174  ax-pre-lttrn 11175  ax-pre-ltadd 11176  ax-pre-mulgt0 11177  ax-pre-sup 11178  ax-addf 11179  ax-mulf 11180
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7863  df-1st 7986  df-2nd 7987  df-tpos 8222  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8453  df-er 8694  df-map 8826  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-sup 9402  df-inf 9403  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11443  df-neg 11444  df-div 11872  df-nn 12234  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-7 12308  df-8 12309  df-9 12310  df-n0 12505  df-z 12592  df-dec 12712  df-uz 12863  df-q 12973  df-rp 13017  df-fz 13536  df-fl 13825  df-mod 13903  df-seq 14038  df-exp 14098  df-cj 15150  df-re 15151  df-im 15152  df-sqrt 15286  df-abs 15287  df-dvds 16311  df-gcd 16553  df-numer 16794  df-denom 16795  df-gz 16990  df-struct 17207  df-sets 17224  df-slot 17242  df-ndx 17254  df-base 17270  df-ress 17291  df-plusg 17323  df-mulr 17324  df-starv 17325  df-tset 17329  df-ple 17330  df-ds 17332  df-unif 17333  df-0g 17494  df-mgm 18698  df-sgrp 18777  df-mnd 18793  df-mhm 18841  df-grp 19003  df-minusg 19004  df-sbg 19005  df-mulg 19134  df-subg 19189  df-ghm 19284  df-od 19598  df-cmn 19852  df-abl 19853  df-mgp 20217  df-rng 20231  df-ur 20264  df-ring 20317  df-cring 20318  df-oppr 20419  df-dvdsr 20439  df-unit 20440  df-invr 20470  df-dvr 20483  df-rhm 20554  df-subrng 20631  df-subrg 20655  df-drng 20815  df-field 20816  df-cnfld 21492  df-zring 21566  df-zrh 21622  df-chr 21624  df-qqh 34306
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator