Theorem ghomco 38793

Description: Obsolete theorem, use ghmco 19430 instead. The composition of two group homomorphisms is a group homomorphism. (Contributed by Jeff Madsen, 1-Dec-2009.) (Revised by Mario Carneiro, 27-Dec-2014.) (New usage is discouraged.) (Proof modification is discouraged.)

Assertion

Ref	Expression
ghomco	⊢ (((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) ∧ (𝑆 ∈ (𝐺 GrpOpHom 𝐻) ∧ 𝑇 ∈ (𝐻 GrpOpHom 𝐾))) → (𝑇 ∘ 𝑆) ∈ (𝐺 GrpOpHom 𝐾))

Proof of Theorem ghomco

Dummy variables 𝑢 𝑣 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fco 6726	. . . . . . 7 ⊢ ((𝑇:ran 𝐻⟶ran 𝐾 ∧ 𝑆:ran 𝐺⟶ran 𝐻) → (𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾)
2	1	ancoms 464	. . . . . 6 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) → (𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾)
3	2	ad2ant2r 760	. . . . 5 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → (𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾)
4	3	a1i 11	. . . 4 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → (𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾))
5		ffvelcdm 7073	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑥 ∈ ran 𝐺) → (𝑆‘𝑥) ∈ ran 𝐻)
6		ffvelcdm 7073	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑦 ∈ ran 𝐺) → (𝑆‘𝑦) ∈ ran 𝐻)
7	5, 6	anim12dan 631	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑆‘𝑥) ∈ ran 𝐻 ∧ (𝑆‘𝑦) ∈ ran 𝐻))
8		fveq2 6877	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑢 = (𝑆‘𝑥) → (𝑇‘𝑢) = (𝑇‘(𝑆‘𝑥)))
9	8	oveq1d 7427	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑢 = (𝑆‘𝑥) → ((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘𝑣)))
10		fvoveq1 7435	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑢 = (𝑆‘𝑥) → (𝑇‘(𝑢𝐻𝑣)) = (𝑇‘((𝑆‘𝑥)𝐻𝑣)))
11	9, 10	eqeq12d 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑢 = (𝑆‘𝑥) → (((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)) ↔ ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘𝑣)) = (𝑇‘((𝑆‘𝑥)𝐻𝑣))))
12		fveq2 6877	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑣 = (𝑆‘𝑦) → (𝑇‘𝑣) = (𝑇‘(𝑆‘𝑦)))
13	12	oveq2d 7428	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑣 = (𝑆‘𝑦) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘𝑣)) = ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))))
14		oveq2 7420	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑣 = (𝑆‘𝑦) → ((𝑆‘𝑥)𝐻𝑣) = ((𝑆‘𝑥)𝐻(𝑆‘𝑦)))
15	14	fveq2d 6881	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑣 = (𝑆‘𝑦) → (𝑇‘((𝑆‘𝑥)𝐻𝑣)) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))))
16	13, 15	eqeq12d 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑣 = (𝑆‘𝑦) → (((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘𝑣)) = (𝑇‘((𝑆‘𝑥)𝐻𝑣)) ↔ ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦)))))
17	11, 16	rspc2va 3588	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝑆‘𝑥) ∈ ran 𝐻 ∧ (𝑆‘𝑦) ∈ ran 𝐻) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))))
18	7, 17	sylan 592	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))))
19	18	an32s 665	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))))
20	19	adantllr 732	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))))
21	20	adantllr 732	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))))
22		fveq2 6877	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → (𝑇‘((𝑆‘𝑥)𝐻(𝑆‘𝑦))) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
23	21, 22	sylan9eq 2816	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) ∧ ((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
24	23	anasss 472	. . . . . . . . . . . . . . 15 ⊢ (((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ ((𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺) ∧ ((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)))) → ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
25		fvco3 6977	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑥 ∈ ran 𝐺) → ((𝑇 ∘ 𝑆)‘𝑥) = (𝑇‘(𝑆‘𝑥)))
26	25	ad2ant2r 760	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑇 ∘ 𝑆)‘𝑥) = (𝑇‘(𝑆‘𝑥)))
27		fvco3 6977	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑦 ∈ ran 𝐺) → ((𝑇 ∘ 𝑆)‘𝑦) = (𝑇‘(𝑆‘𝑦)))
28	27	ad2ant2rl 762	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑇 ∘ 𝑆)‘𝑦) = (𝑇‘(𝑆‘𝑦)))
29	26, 28	oveq12d 7430	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → (((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))))
30	29	adantlr 728	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → (((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))))
31	30	ad2ant2r 760	. . . . . . . . . . . . . . 15 ⊢ (((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ ((𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺) ∧ ((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)))) → (((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇‘(𝑆‘𝑥))𝐾(𝑇‘(𝑆‘𝑦))))
32		eqid 2761	. . . . . . . . . . . . . . . . . . . 20 ⊢ ran 𝐺 = ran 𝐺
33	32	grpocl 31084	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐺 ∈ GrpOp ∧ 𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺) → (𝑥𝐺𝑦) ∈ ran 𝐺)
34	33	3expb 1138	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐺 ∈ GrpOp ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → (𝑥𝐺𝑦) ∈ ran 𝐺)
35		fvco3 6977	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ (𝑥𝐺𝑦) ∈ ran 𝐺) → ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
36	35	adantlr 728	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ (𝑥𝐺𝑦) ∈ ran 𝐺) → ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
37	34, 36	sylan2 605	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ (𝐺 ∈ GrpOp ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺))) → ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
38	37	anassrs 473	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
39	38	ad2ant2r 760	. . . . . . . . . . . . . . 15 ⊢ (((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ ((𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺) ∧ ((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)))) → ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)) = (𝑇‘(𝑆‘(𝑥𝐺𝑦))))
40	24, 31, 39	3eqtr4d 2806	. . . . . . . . . . . . . 14 ⊢ (((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ ((𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺) ∧ ((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)))) → (((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))
41	40	expr 462	. . . . . . . . . . . . 13 ⊢ (((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ (𝑥 ∈ ran 𝐺 ∧ 𝑦 ∈ ran 𝐺)) → (((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → (((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
42	41	ralimdvva 3210	. . . . . . . . . . . 12 ⊢ ((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ 𝐺 ∈ GrpOp) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) → (∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
43	42	an32s 665	. . . . . . . . . . 11 ⊢ ((((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) ∧ 𝐺 ∈ GrpOp) → (∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
44	43	ex 418	. . . . . . . . . 10 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) → (𝐺 ∈ GrpOp → (∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))))
45	44	com23 87	. . . . . . . . 9 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ 𝑇:ran 𝐻⟶ran 𝐾) ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))) → (∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → (𝐺 ∈ GrpOp → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))))
46	45	anasss 472	. . . . . . . 8 ⊢ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → (∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)) → (𝐺 ∈ GrpOp → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))))
47	46	imp 412	. . . . . . 7 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) → (𝐺 ∈ GrpOp → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
48	47	an32s 665	. . . . . 6 ⊢ (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → (𝐺 ∈ GrpOp → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
49	48	com12 33	. . . . 5 ⊢ (𝐺 ∈ GrpOp → (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
50	49	3ad2ant1 1151	. . . 4 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦))))
51	4, 50	jcad 522	. . 3 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → (((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))) → ((𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))))
52		eqid 2761	. . . . . 6 ⊢ ran 𝐻 = ran 𝐻
53	32, 52	elghomOLD 38789	. . . . 5 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp) → (𝑆 ∈ (𝐺 GrpOpHom 𝐻) ↔ (𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)))))
54	53	3adant3 1150	. . . 4 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → (𝑆 ∈ (𝐺 GrpOpHom 𝐻) ↔ (𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦)))))
55		eqid 2761	. . . . . 6 ⊢ ran 𝐾 = ran 𝐾
56	52, 55	elghomOLD 38789	. . . . 5 ⊢ ((𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → (𝑇 ∈ (𝐻 GrpOpHom 𝐾) ↔ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))))
57	56	3adant1 1148	. . . 4 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → (𝑇 ∈ (𝐻 GrpOpHom 𝐾) ↔ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣)))))
58	54, 57	anbi12d 644	. . 3 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → ((𝑆 ∈ (𝐺 GrpOpHom 𝐻) ∧ 𝑇 ∈ (𝐻 GrpOpHom 𝐾)) ↔ ((𝑆:ran 𝐺⟶ran 𝐻 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺((𝑆‘𝑥)𝐻(𝑆‘𝑦)) = (𝑆‘(𝑥𝐺𝑦))) ∧ (𝑇:ran 𝐻⟶ran 𝐾 ∧ ∀𝑢 ∈ ran 𝐻∀𝑣 ∈ ran 𝐻((𝑇‘𝑢)𝐾(𝑇‘𝑣)) = (𝑇‘(𝑢𝐻𝑣))))))
59	32, 55	elghomOLD 38789	. . . 4 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → ((𝑇 ∘ 𝑆) ∈ (𝐺 GrpOpHom 𝐾) ↔ ((𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))))
60	59	3adant2 1149	. . 3 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → ((𝑇 ∘ 𝑆) ∈ (𝐺 GrpOpHom 𝐾) ↔ ((𝑇 ∘ 𝑆):ran 𝐺⟶ran 𝐾 ∧ ∀𝑥 ∈ ran 𝐺∀𝑦 ∈ ran 𝐺(((𝑇 ∘ 𝑆)‘𝑥)𝐾((𝑇 ∘ 𝑆)‘𝑦)) = ((𝑇 ∘ 𝑆)‘(𝑥𝐺𝑦)))))
61	51, 58, 60	3imtr4d 297	. 2 ⊢ ((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) → ((𝑆 ∈ (𝐺 GrpOpHom 𝐻) ∧ 𝑇 ∈ (𝐻 GrpOpHom 𝐾)) → (𝑇 ∘ 𝑆) ∈ (𝐺 GrpOpHom 𝐾)))
62	61	imp 412	1 ⊢ (((𝐺 ∈ GrpOp ∧ 𝐻 ∈ GrpOp ∧ 𝐾 ∈ GrpOp) ∧ (𝑆 ∈ (𝐺 GrpOpHom 𝐻) ∧ 𝑇 ∈ (𝐻 GrpOpHom 𝐾))) → (𝑇 ∘ 𝑆) ∈ (𝐺 GrpOpHom 𝐾))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∀wral 3077  ran crn 5652   ∘ ccom 5655  ⟶wf 6527  ‘cfv 6531  (class class class)co 7412  GrpOpcgr 31073   GrpOpHom cghomOLD 38785

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-ov 7415  df-oprab 7416  df-mpo 7417  df-grpo 31077  df-ghomOLD 38786

This theorem is used by: (None)