qqhghm - Mathbox for Thierry Arnoux

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

Theorem qqhghm 34322

Description: The ℚHom homomorphism is a group homomorphism if the target structure is a division ring. (Contributed by Thierry Arnoux, 9-Nov-2017.)

**Hypotheses**
Ref	Expression
qqhval2.0	⊢ 𝐵 = (Base‘𝑅)
qqhval2.1	⊢ / = (/_r‘𝑅)
qqhval2.2	⊢ 𝐿 = (ℤRHom‘𝑅)
qqhrhm.1	⊢ 𝑄 = (ℂ_fld ↾_s ℚ)

**Assertion**
Ref	Expression
qqhghm	⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅) ∈ (𝑄 GrpHom 𝑅))

Proof of Theorem qqhghm Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		qqhrhm.1	. . 3 ⊢ 𝑄 = (ℂ_fld ↾_s ℚ)
2	1	qrngbas 27748	. 2 ⊢ ℚ = (Base‘𝑄)
3		qqhval2.0	. 2 ⊢ 𝐵 = (Base‘𝑅)
4		qex 12984	. . 3 ⊢ ℚ ∈ V
5		cnfldadd 21496	. . . 4 ⊢ + = (+_g‘ℂ_fld)
6	1, 5	ressplusg 17343	. . 3 ⊢ (ℚ ∈ V → + = (+_g‘𝑄))
7	4, 6	ax-mp 5	. 2 ⊢ + = (+_g‘𝑄)
8		eqid 2769	. 2 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
9	1	qdrng 27749	. . 3 ⊢ 𝑄 ∈ DivRing
10		drnggrp 20822	. . 3 ⊢ (𝑄 ∈ DivRing → 𝑄 ∈ Grp)
11	9, 10	mp1i 14	. 2 ⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → 𝑄 ∈ Grp)
12		drnggrp 20822	. . 3 ⊢ (𝑅 ∈ DivRing → 𝑅 ∈ Grp)
13	12	adantr 485	. 2 ⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → 𝑅 ∈ Grp)
14		qqhval2.1	. . 3 ⊢ / = (/_r‘𝑅)
15		qqhval2.2	. . 3 ⊢ 𝐿 = (ℤRHom‘𝑅)
16	3, 14, 15	qqhf 34320	. 2 ⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅):ℚ⟶𝐵)
17		drngring 20819	. . . . 5 ⊢ (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
18	17	ad2antrr 738	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑅 ∈ Ring)
19	17	adantr 485	. . . . . . 7 ⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → 𝑅 ∈ Ring)
20	15	zrhrhm 21629	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝐿 ∈ (ℤ_ring RingHom 𝑅))
21		zringbas 21571	. . . . . . . 8 ⊢ ℤ = (Base‘ℤ_ring)
22	21, 3	rhmf 20565	. . . . . . 7 ⊢ (𝐿 ∈ (ℤ_ring RingHom 𝑅) → 𝐿:ℤ⟶𝐵)
23	19, 20, 22	3syl 19	. . . . . 6 ⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → 𝐿:ℤ⟶𝐵)
24	23	adantr 485	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝐿:ℤ⟶𝐵)
25		qnumcl 16798	. . . . . . 7 ⊢ (𝑥 ∈ ℚ → (numer‘𝑥) ∈ ℤ)
26	25	ad2antrl 740	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑥) ∈ ℤ)
27		qdencl 16799	. . . . . . . 8 ⊢ (𝑦 ∈ ℚ → (denom‘𝑦) ∈ ℕ)
28	27	ad2antll 741	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ∈ ℕ)
29	28	nnzd 12616	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ∈ ℤ)
30	26, 29	zmulcld 12705	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((numer‘𝑥) · (denom‘𝑦)) ∈ ℤ)
31	24, 30	ffvelcdmd 7081	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((numer‘𝑥) · (denom‘𝑦))) ∈ 𝐵)
32		qnumcl 16798	. . . . . . 7 ⊢ (𝑦 ∈ ℚ → (numer‘𝑦) ∈ ℤ)
33	32	ad2antll 741	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑦) ∈ ℤ)
34		qdencl 16799	. . . . . . . 8 ⊢ (𝑥 ∈ ℚ → (denom‘𝑥) ∈ ℕ)
35	34	ad2antrl 740	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ∈ ℕ)
36	35	nnzd 12616	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ∈ ℤ)
37	33, 36	zmulcld 12705	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((numer‘𝑦) · (denom‘𝑥)) ∈ ℤ)
38	24, 37	ffvelcdmd 7081	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((numer‘𝑦) · (denom‘𝑥))) ∈ 𝐵)
39	18, 20	syl 18	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝐿 ∈ (ℤ_ring RingHom 𝑅))
40		zringmulr 21575	. . . . . . 7 ⊢ · = (._r‘ℤ_ring)
41		eqid 2769	. . . . . . 7 ⊢ (._r‘𝑅) = (._r‘𝑅)
42	21, 40, 41	rhmmul 20567	. . . . . 6 ⊢ ((𝐿 ∈ (ℤ_ring RingHom 𝑅) ∧ (denom‘𝑥) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) = ((𝐿‘(denom‘𝑥))(._r‘𝑅)(𝐿‘(denom‘𝑦))))
43	39, 36, 29, 42	syl3anc 1396	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) = ((𝐿‘(denom‘𝑥))(._r‘𝑅)(𝐿‘(denom‘𝑦))))
44		simpl 487	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0))
45	35	nnne0d 12285	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ≠ 0)
46		eqid 2769	. . . . . . . 8 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
47	3, 15, 46	elzrhunit 34311	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((denom‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ≠ 0)) → (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅))
48	44, 36, 45, 47	syl12anc 849	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅))
49	28	nnne0d 12285	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ≠ 0)
50	3, 15, 46	elzrhunit 34311	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((denom‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ≠ 0)) → (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅))
51	44, 29, 49, 50	syl12anc 849	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅))
52		eqid 2769	. . . . . . 7 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
53	52, 41	unitmulcl 20461	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅) ∧ (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅)) → ((𝐿‘(denom‘𝑥))(._r‘𝑅)(𝐿‘(denom‘𝑦))) ∈ (Unit‘𝑅))
54	18, 48, 51, 53	syl3anc 1396	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(denom‘𝑥))(._r‘𝑅)(𝐿‘(denom‘𝑦))) ∈ (Unit‘𝑅))
55	43, 54	eqeltrd 2869	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) ∈ (Unit‘𝑅))
56	3, 52, 8, 14	dvrdir 20493	. . . 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‘𝑦))))))
57	18, 31, 38, 55, 56	syl13anc 1397	. . 3 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+_g‘𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))(+_g‘𝑅)((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))))
58		qeqnumdivden 16804	. . . . . . . 8 ⊢ (𝑥 ∈ ℚ → 𝑥 = ((numer‘𝑥) / (denom‘𝑥)))
59	58	ad2antrl 740	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑥 = ((numer‘𝑥) / (denom‘𝑥)))
60		qeqnumdivden 16804	. . . . . . . 8 ⊢ (𝑦 ∈ ℚ → 𝑦 = ((numer‘𝑦) / (denom‘𝑦)))
61	60	ad2antll 741	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝑦 = ((numer‘𝑦) / (denom‘𝑦)))
62	59, 61	oveq12d 7429	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑥 + 𝑦) = (((numer‘𝑥) / (denom‘𝑥)) + ((numer‘𝑦) / (denom‘𝑦))))
63	26	zcnd 12700	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑥) ∈ ℂ)
64	36	zcnd 12700	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑥) ∈ ℂ)
65	33	zcnd 12700	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (numer‘𝑦) ∈ ℂ)
66	29	zcnd 12700	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (denom‘𝑦) ∈ ℂ)
67	63, 64, 65, 66, 45, 49	divadddivd 12034	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((numer‘𝑥) / (denom‘𝑥)) + ((numer‘𝑦) / (denom‘𝑦))) = ((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦))))
68	62, 67	eqtrd 2804	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝑥 + 𝑦) = ((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦))))
69	68	fveq2d 6886	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 + 𝑦)) = ((ℚHom‘𝑅)‘((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦)))))
70	30, 37	zaddcld 12703	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) ∈ ℤ)
71	36, 29	zmulcld 12705	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((denom‘𝑥) · (denom‘𝑦)) ∈ ℤ)
72	64, 66, 45, 49	mulne0d 11865	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((denom‘𝑥) · (denom‘𝑦)) ≠ 0)
73	3, 14, 15	qqhvq 34321	. . . . 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‘𝑦)))))
74	44, 70, 71, 72, 73	syl13anc 1397	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥))) / ((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
75		rhmghm 20564	. . . . . 6 ⊢ (𝐿 ∈ (ℤ_ring RingHom 𝑅) → 𝐿 ∈ (ℤ_ring GrpHom 𝑅))
76	39, 75	syl 18	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → 𝐿 ∈ (ℤ_ring GrpHom 𝑅))
77		zringplusg 21572	. . . . . . 7 ⊢ + = (+_g‘ℤ_ring)
78	21, 77, 8	ghmlin 19290	. . . . . 6 ⊢ ((𝐿 ∈ (ℤ_ring GrpHom 𝑅) ∧ ((numer‘𝑥) · (denom‘𝑦)) ∈ ℤ ∧ ((numer‘𝑦) · (denom‘𝑥)) ∈ ℤ) → (𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+_g‘𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))))
79	78	oveq1d 7426	. . . . 5 ⊢ ((𝐿 ∈ (ℤ_ring GrpHom 𝑅) ∧ ((numer‘𝑥) · (denom‘𝑦)) ∈ ℤ ∧ ((numer‘𝑦) · (denom‘𝑥)) ∈ ℤ) → ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+_g‘𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
80	76, 30, 37, 79	syl3anc 1396	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(((numer‘𝑥) · (denom‘𝑦)) + ((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+_g‘𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
81	69, 74, 80	3eqtrd 2808	. . 3 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 + 𝑦)) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦)))(+_g‘𝑅)(𝐿‘((numer‘𝑦) · (denom‘𝑥)))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
82	58	fveq2d 6886	. . . . . 6 ⊢ (𝑥 ∈ ℚ → ((ℚHom‘𝑅)‘𝑥) = ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))))
83	82	ad2antrl 740	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑥) = ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))))
84	3, 14, 15	qqhvq 34321	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((numer‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ≠ 0)) → ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))) = ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))))
85	44, 26, 36, 45, 84	syl13anc 1397	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((numer‘𝑥) / (denom‘𝑥))) = ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))))
86	52, 21, 14, 40	rhmdvd 33586	. . . . . 6 ⊢ ((𝐿 ∈ (ℤ_ring RingHom 𝑅) ∧ ((numer‘𝑥) ∈ ℤ ∧ (denom‘𝑥) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ) ∧ ((𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅) ∧ (𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅))) → ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
87	39, 26, 36, 29, 48, 51, 86	syl132anc 1413	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(numer‘𝑥)) / (𝐿‘(denom‘𝑥))) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
88	83, 85, 87	3eqtrd 2808	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑥) = ((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
89	60	fveq2d 6886	. . . . . 6 ⊢ (𝑦 ∈ ℚ → ((ℚHom‘𝑅)‘𝑦) = ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))))
90	89	ad2antll 741	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑦) = ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))))
91	52, 21, 14, 40	rhmdvd 33586	. . . . . . 7 ⊢ ((𝐿 ∈ (ℤ_ring RingHom 𝑅) ∧ ((numer‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ ∧ (denom‘𝑥) ∈ ℤ) ∧ ((𝐿‘(denom‘𝑦)) ∈ (Unit‘𝑅) ∧ (𝐿‘(denom‘𝑥)) ∈ (Unit‘𝑅))) → ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑦) · (denom‘𝑥)))))
92	39, 33, 29, 36, 51, 48, 91	syl132anc 1413	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑦) · (denom‘𝑥)))))
93	3, 14, 15	qqhvq 34321	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ ((numer‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ∈ ℤ ∧ (denom‘𝑦) ≠ 0)) → ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))) = ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))))
94	44, 33, 29, 49, 93	syl13anc 1397	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))) = ((𝐿‘(numer‘𝑦)) / (𝐿‘(denom‘𝑦))))
95	64, 66	mulcomd 11229	. . . . . . . 8 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((denom‘𝑥) · (denom‘𝑦)) = ((denom‘𝑦) · (denom‘𝑥)))
96	95	fveq2d 6886	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (𝐿‘((denom‘𝑥) · (denom‘𝑦))) = (𝐿‘((denom‘𝑦) · (denom‘𝑥))))
97	96	oveq2d 7427	. . . . . 6 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑦) · (denom‘𝑥)))))
98	92, 94, 97	3eqtr4d 2814	. . . . 5 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘((numer‘𝑦) / (denom‘𝑦))) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
99	90, 98	eqtrd 2804	. . . 4 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘𝑦) = ((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦)))))
100	88, 99	oveq12d 7429	. . 3 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → (((ℚHom‘𝑅)‘𝑥)(+_g‘𝑅)((ℚHom‘𝑅)‘𝑦)) = (((𝐿‘((numer‘𝑥) · (denom‘𝑦))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))(+_g‘𝑅)((𝐿‘((numer‘𝑦) · (denom‘𝑥))) / (𝐿‘((denom‘𝑥) · (denom‘𝑦))))))
101	57, 81, 100	3eqtr4d 2814	. 2 ⊢ (((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) ∧ (𝑥 ∈ ℚ ∧ 𝑦 ∈ ℚ)) → ((ℚHom‘𝑅)‘(𝑥 + 𝑦)) = (((ℚHom‘𝑅)‘𝑥)(+_g‘𝑅)((ℚHom‘𝑅)‘𝑦)))
102	2, 3, 7, 8, 11, 13, 16, 101	isghmd 19294	1 ⊢ ((𝑅 ∈ DivRing ∧ (chr‘𝑅) = 0) → (ℚHom‘𝑅) ∈ (𝑄 GrpHom 𝑅))

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 11099 + caddc 11102 · cmul 11104 / cdiv 11870 ℕcn 12232 ℤcz 12590 ℚcq 12971 numercnumer 16791 denomcdenom 16792 Basecbs 17268 ↾_s cress 17289 +_gcplusg 17309 ._rcmulr 17310 0_gc0g 17491 Grpcgrp 18999 GrpHom cghm 19282 Ringcrg 20314 Unitcui 20436 /_rcdvr 20481 RingHom crh 20550 DivRingcdr 20812 ℂ_fldccnfld 21490 ℤ_ringczring 21564 ℤRHomczrh 21617 chrcchr 21619 ℚHomcqqh 34304

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 11155 ax-resscn 11156 ax-1cn 11157 ax-icn 11158 ax-addcl 11159 ax-addrcl 11160 ax-mulcl 11161 ax-mulrcl 11162 ax-mulcom 11163 ax-addass 11164 ax-mulass 11165 ax-distr 11166 ax-i2m1 11167 ax-1ne0 11168 ax-1rid 11169 ax-rnegex 11170 ax-rrecex 11171 ax-cnre 11172 ax-pre-lttri 11173 ax-pre-lttrn 11174 ax-pre-ltadd 11175 ax-pre-mulgt0 11176 ax-pre-sup 11177 ax-addf 11178 ax-mulf 11179

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 7862 df-1st 7985 df-2nd 7986 df-tpos 8221 df-frecs 8277 df-wrecs 8308 df-recs 8357 df-rdg 8396 df-1o 8452 df-er 8693 df-map 8825 df-en 8943 df-dom 8944 df-sdom 8945 df-fin 8946 df-sup 9401 df-inf 9402 df-pnf 11244 df-mnf 11245 df-xr 11246 df-ltxr 11247 df-le 11248 df-sub 11442 df-neg 11443 df-div 11871 df-nn 12233 df-2 12302 df-3 12303 df-4 12304 df-5 12305 df-6 12306 df-7 12307 df-8 12308 df-9 12309 df-n0 12504 df-z 12591 df-dec 12711 df-uz 12862 df-q 12972 df-rp 13016 df-fz 13535 df-fl 13824 df-mod 13902 df-seq 14037 df-exp 14097 df-cj 15149 df-re 15150 df-im 15151 df-sqrt 15285 df-abs 15286 df-dvds 16310 df-gcd 16552 df-numer 16793 df-denom 16794 df-gz 16989 df-struct 17206 df-sets 17223 df-slot 17241 df-ndx 17253 df-base 17269 df-ress 17290 df-plusg 17322 df-mulr 17323 df-starv 17324 df-tset 17328 df-ple 17329 df-ds 17331 df-unif 17332 df-0g 17493 df-mgm 18697 df-sgrp 18776 df-mnd 18792 df-mhm 18840 df-grp 19002 df-minusg 19003 df-sbg 19004 df-mulg 19133 df-subg 19188 df-ghm 19283 df-od 19597 df-cmn 19851 df-abl 19852 df-mgp 20216 df-rng 20230 df-ur 20263 df-ring 20316 df-cring 20317 df-oppr 20418 df-dvdsr 20438 df-unit 20439 df-invr 20469 df-dvr 20482 df-rhm 20553 df-subrng 20630 df-subrg 20654 df-drng 20814 df-cnfld 21491 df-zring 21565 df-zrh 21621 df-chr 21623 df-qqh 34305

This theorem is referenced by: qqhcn 34325 qqhucn 34326

W3C validator