Theorem dmdprdsplit2lem 20033

Description: Lemma for dmdprdsplit 20035. (Contributed by Mario Carneiro, 26-Apr-2016.)

Hypotheses

Ref	Expression
dprdsplit.2	⊢ (𝜑 → 𝑆:𝐼⟶(SubGrp‘𝐺))
dprdsplit.i	⊢ (𝜑 → (𝐶 ∩ 𝐷) = ∅)
dprdsplit.u	⊢ (𝜑 → 𝐼 = (𝐶 ∪ 𝐷))
dmdprdsplit.z	⊢ 𝑍 = (Cntz‘𝐺)
dmdprdsplit.0	⊢ 0 = (0g‘𝐺)
dmdprdsplit2.1	⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐶))
dmdprdsplit2.2	⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐷))
dmdprdsplit2.3	⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
dmdprdsplit2.4	⊢ (𝜑 → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
dmdprdsplit2lem.k	⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))

Assertion

Ref	Expression
dmdprdsplit2lem	⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))) ∧ ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 }))

Proof of Theorem dmdprdsplit2lem

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dprdsplit.u	. . . . . 6 ⊢ (𝜑 → 𝐼 = (𝐶 ∪ 𝐷))
2	1	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐼 = (𝐶 ∪ 𝐷))
3	2	eleq2d 2819	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 ↔ 𝑌 ∈ (𝐶 ∪ 𝐷)))
4		elun 4133	. . . 4 ⊢ (𝑌 ∈ (𝐶 ∪ 𝐷) ↔ (𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷))
5	3, 4	bitrdi 287	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 ↔ (𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷)))
6		dmdprdsplit2.1	. . . . . . . 8 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐶))
7	6	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐶))
8		dprdsplit.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝑆:𝐼⟶(SubGrp‘𝐺))
9		ssun1 4158	. . . . . . . . . . 11 ⊢ 𝐶 ⊆ (𝐶 ∪ 𝐷)
10	9, 1	sseqtrrid 4007	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ⊆ 𝐼)
11	8, 10	fssresd 6755	. . . . . . . . 9 ⊢ (𝜑 → (𝑆 ↾ 𝐶):𝐶⟶(SubGrp‘𝐺))
12	11	fdmd 6726	. . . . . . . 8 ⊢ (𝜑 → dom (𝑆 ↾ 𝐶) = 𝐶)
13	12	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐶) = 𝐶)
14		simplr 768	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝑋 ∈ 𝐶)
15		simprl 770	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝑌 ∈ 𝐶)
16		simprr 772	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝑋 ≠ 𝑌)
17		dmdprdsplit.z	. . . . . . 7 ⊢ 𝑍 = (Cntz‘𝐺)
18	7, 13, 14, 15, 16, 17	dprdcntz 19996	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝑍‘((𝑆 ↾ 𝐶)‘𝑌)))
19		fvres 6905	. . . . . . 7 ⊢ (𝑋 ∈ 𝐶 → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
20	19	ad2antlr 727	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
21		fvres 6905	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐶 → ((𝑆 ↾ 𝐶)‘𝑌) = (𝑆‘𝑌))
22	21	ad2antrl 728	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑌) = (𝑆‘𝑌))
23	22	fveq2d 6890	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → (𝑍‘((𝑆 ↾ 𝐶)‘𝑌)) = (𝑍‘(𝑆‘𝑌)))
24	18, 20, 23	3sstr3d 4018	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))
25	24	exp32 420	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐶 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
26	19	ad2antlr 727	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
27	6	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐶))
28	12	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐶) = 𝐶)
29		simplr 768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝑋 ∈ 𝐶)
30	27, 28, 29	dprdub 20013	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
31	26, 30	eqsstrrd 3999	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
32		dmdprdsplit2.3	. . . . . . . 8 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
33	32	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
34		eqid 2734	. . . . . . . . 9 ⊢ (Base‘𝐺) = (Base‘𝐺)
35	34	dprdssv 20004	. . . . . . . 8 ⊢ (𝐺 DProd (𝑆 ↾ 𝐷)) ⊆ (Base‘𝐺)
36		fvres 6905	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝐷 → ((𝑆 ↾ 𝐷)‘𝑌) = (𝑆‘𝑌))
37	36	ad2antrl 728	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐷)‘𝑌) = (𝑆‘𝑌))
38		dmdprdsplit2.2	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐷))
39	38	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐷))
40		ssun2 4159	. . . . . . . . . . . . . 14 ⊢ 𝐷 ⊆ (𝐶 ∪ 𝐷)
41	40, 1	sseqtrrid 4007	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ⊆ 𝐼)
42	8, 41	fssresd 6755	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 ↾ 𝐷):𝐷⟶(SubGrp‘𝐺))
43	42	fdmd 6726	. . . . . . . . . . 11 ⊢ (𝜑 → dom (𝑆 ↾ 𝐷) = 𝐷)
44	43	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐷) = 𝐷)
45		simprl 770	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝑌 ∈ 𝐷)
46	39, 44, 45	dprdub 20013	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐷)‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
47	37, 46	eqsstrrd 3999	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
48	34, 17	cntz2ss 19322	. . . . . . . 8 ⊢ (((𝐺 DProd (𝑆 ↾ 𝐷)) ⊆ (Base‘𝐺) ∧ (𝑆‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷))) → (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ (𝑍‘(𝑆‘𝑌)))
49	35, 47, 48	sylancr 587	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ (𝑍‘(𝑆‘𝑌)))
50	33, 49	sstrd 3974	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝑆‘𝑌)))
51	31, 50	sstrd 3974	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))
52	51	exp32 420	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐷 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
53	25, 52	jaod 859	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷) → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
54	5, 53	sylbid 240	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
55		dprdgrp 19993	. . . . . . . 8 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → 𝐺 ∈ Grp)
56	6, 55	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐺 ∈ Grp)
57	56	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐺 ∈ Grp)
58	34	subgacs 19148	. . . . . 6 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)))
59		acsmre 17666	. . . . . 6 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
60	57, 58, 59	3syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
61		difundir 4271	. . . . . . . . . . 11 ⊢ ((𝐶 ∪ 𝐷) ∖ {𝑋}) = ((𝐶 ∖ {𝑋}) ∪ (𝐷 ∖ {𝑋}))
62	2	difeq1d 4105	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐼 ∖ {𝑋}) = ((𝐶 ∪ 𝐷) ∖ {𝑋}))
63		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐶)
64	63	snssd 4789	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → {𝑋} ⊆ 𝐶)
65		sslin 4223	. . . . . . . . . . . . . . 15 ⊢ ({𝑋} ⊆ 𝐶 → (𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶))
66	64, 65	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶))
67		incom 4189	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∩ 𝐷) = (𝐷 ∩ 𝐶)
68		dprdsplit.i	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐶 ∩ 𝐷) = ∅)
69	68	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐶 ∩ 𝐷) = ∅)
70	67, 69	eqtr3id 2783	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ 𝐶) = ∅)
71		sseq0 4383	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶) ∧ (𝐷 ∩ 𝐶) = ∅) → (𝐷 ∩ {𝑋}) = ∅)
72	66, 70, 71	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ {𝑋}) = ∅)
73		disj3 4434	. . . . . . . . . . . . 13 ⊢ ((𝐷 ∩ {𝑋}) = ∅ ↔ 𝐷 = (𝐷 ∖ {𝑋}))
74	72, 73	sylib 218	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐷 = (𝐷 ∖ {𝑋}))
75	74	uneq2d 4148	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐶 ∖ {𝑋}) ∪ 𝐷) = ((𝐶 ∖ {𝑋}) ∪ (𝐷 ∖ {𝑋})))
76	61, 62, 75	3eqtr4a 2795	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐼 ∖ {𝑋}) = ((𝐶 ∖ {𝑋}) ∪ 𝐷))
77	76	imaeq2d 6058	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ (𝐼 ∖ {𝑋})) = (𝑆 “ ((𝐶 ∖ {𝑋}) ∪ 𝐷)))
78		imaundi 6149	. . . . . . . . 9 ⊢ (𝑆 “ ((𝐶 ∖ {𝑋}) ∪ 𝐷)) = ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷))
79	77, 78	eqtrdi 2785	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ (𝐼 ∖ {𝑋})) = ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)))
80	79	unieqd 4900	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) = ∪ ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)))
81		uniun 4910	. . . . . . 7 ⊢ ∪ ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)) = (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷))
82	80, 81	eqtrdi 2785	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) = (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)))
83		dmdprdsplit2lem.k	. . . . . . . . 9 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
84		difss 4116	. . . . . . . . . . 11 ⊢ (𝐶 ∖ {𝑋}) ⊆ 𝐶
85		imass2 6100	. . . . . . . . . . 11 ⊢ ((𝐶 ∖ {𝑋}) ⊆ 𝐶 → (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑆 “ 𝐶))
86		uniss 4895	. . . . . . . . . . 11 ⊢ ((𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑆 “ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶))
87	84, 85, 86	mp2b 10	. . . . . . . . . 10 ⊢ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶)
88		imassrn 6069	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐶) ⊆ ran 𝑆
89	8	frnd 6724	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ran 𝑆 ⊆ (SubGrp‘𝐺))
90	89	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ran 𝑆 ⊆ (SubGrp‘𝐺))
91		mresspw 17606	. . . . . . . . . . . . . 14 ⊢ ((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) → (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺))
92	60, 91	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺))
93	90, 92	sstrd 3974	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ran 𝑆 ⊆ 𝒫 (Base‘𝐺))
94	88, 93	sstrid 3975	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ 𝐶) ⊆ 𝒫 (Base‘𝐺))
95		sspwuni 5080	. . . . . . . . . . 11 ⊢ ((𝑆 “ 𝐶) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ 𝐶) ⊆ (Base‘𝐺))
96	94, 95	sylib 218	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐶) ⊆ (Base‘𝐺))
97	87, 96	sstrid 3975	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (Base‘𝐺))
98	60, 83, 97	mrcssidd 17639	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))))
99		imassrn 6069	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐷) ⊆ ran 𝑆
100	99, 93	sstrid 3975	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ 𝐷) ⊆ 𝒫 (Base‘𝐺))
101		sspwuni 5080	. . . . . . . . . . 11 ⊢ ((𝑆 “ 𝐷) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ 𝐷) ⊆ (Base‘𝐺))
102	100, 101	sylib 218	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (Base‘𝐺))
103	60, 83, 102	mrcssidd 17639	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (𝐾‘∪ (𝑆 “ 𝐷)))
104	83	dprdspan 20015	. . . . . . . . . . . 12 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐷) → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷)))
105	38, 104	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷)))
106		df-ima 5678	. . . . . . . . . . . . 13 ⊢ (𝑆 “ 𝐷) = ran (𝑆 ↾ 𝐷)
107	106	unieqi 4899	. . . . . . . . . . . 12 ⊢ ∪ (𝑆 “ 𝐷) = ∪ ran (𝑆 ↾ 𝐷)
108	107	fveq2i 6889	. . . . . . . . . . 11 ⊢ (𝐾‘∪ (𝑆 “ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷))
109	105, 108	eqtr4di 2787	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ (𝑆 “ 𝐷)))
110	109	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ (𝑆 “ 𝐷)))
111	103, 110	sseqtrrd 4001	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
112		unss12 4168	. . . . . . . 8 ⊢ ((∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∧ ∪ (𝑆 “ 𝐷) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷))) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))))
113	98, 111, 112	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))))
114	83	mrccl 17625	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (Base‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺))
115	60, 97, 114	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺))
116		dprdsubg 20012	. . . . . . . . . 10 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐷) → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
117	38, 116	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
118	117	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
119		eqid 2734	. . . . . . . . 9 ⊢ (LSSum‘𝐺) = (LSSum‘𝐺)
120	119	lsmunss 19645	. . . . . . . 8 ⊢ (((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺)) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
121	115, 118, 120	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
122	113, 121	sstrd 3974	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
123	82, 122	eqsstrd 3998	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
124	87	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶))
125	60, 83, 124, 96	mrcssd 17638	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐾‘∪ (𝑆 “ 𝐶)))
126	83	dprdspan 20015	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶)))
127	6, 126	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶)))
128		df-ima 5678	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐶) = ran (𝑆 ↾ 𝐶)
129	128	unieqi 4899	. . . . . . . . . . 11 ⊢ ∪ (𝑆 “ 𝐶) = ∪ ran (𝑆 ↾ 𝐶)
130	129	fveq2i 6889	. . . . . . . . . 10 ⊢ (𝐾‘∪ (𝑆 “ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶))
131	127, 130	eqtr4di 2787	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ (𝑆 “ 𝐶)))
132	131	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ (𝑆 “ 𝐶)))
133	125, 132	sseqtrrd 4001	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
134	32	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
135	133, 134	sstrd 3974	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
136	119, 17	lsmsubg 19640	. . . . . 6 ⊢ (((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷)))) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺))
137	115, 118, 135, 136	syl3anc 1372	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺))
138	83	mrcsscl 17634	. . . . 5 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐼 ∖ {𝑋})) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∧ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
139	60, 123, 137, 138	syl3anc 1372	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
140		sslin 4223	. . . 4 ⊢ ((𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))))
141	139, 140	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))))
142	10	sselda 3963	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐼)
143	8	ffvelcdmda 7084	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐼) → (𝑆‘𝑋) ∈ (SubGrp‘𝐺))
144	142, 143	syldan 591	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ∈ (SubGrp‘𝐺))
145		dmdprdsplit.0	. . . 4 ⊢ 0 = (0g‘𝐺)
146	19	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
147	6	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐺dom DProd (𝑆 ↾ 𝐶))
148	12	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → dom (𝑆 ↾ 𝐶) = 𝐶)
149	147, 148, 63	dprdub 20013	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
150	146, 149	eqsstrrd 3999	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
151		dprdsubg 20012	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
152	6, 151	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
153	152	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
154	119	lsmlub 19650	. . . . . . . . 9 ⊢ (((𝑆‘𝑋) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺)) → (((𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))) ↔ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))))
155	144, 115, 153, 154	syl3anc 1372	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))) ↔ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))))
156	150, 133, 155	mpbi2and 712	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
157	156	ssrind 4224	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
158		dmdprdsplit2.4	. . . . . . 7 ⊢ (𝜑 → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
159	158	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
160	157, 159	sseqtrd 4000	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ { 0 })
161	119	lsmub1 19643	. . . . . . . . 9 ⊢ (((𝑆‘𝑋) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺)) → (𝑆‘𝑋) ⊆ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
162	144, 115, 161	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
163	145	subg0cl 19121	. . . . . . . . 9 ⊢ ((𝑆‘𝑋) ∈ (SubGrp‘𝐺) → 0 ∈ (𝑆‘𝑋))
164	144, 163	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (𝑆‘𝑋))
165	162, 164	sseldd 3964	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
166	145	subg0cl 19121	. . . . . . . 8 ⊢ ((𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺) → 0 ∈ (𝐺 DProd (𝑆 ↾ 𝐷)))
167	118, 166	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (𝐺 DProd (𝑆 ↾ 𝐷)))
168	165, 167	elind 4180	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
169	168	snssd 4789	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → { 0 } ⊆ (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
170	160, 169	eqssd 3981	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
171		resima2 6014	. . . . . . . . 9 ⊢ ((𝐶 ∖ {𝑋}) ⊆ 𝐶 → ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = (𝑆 “ (𝐶 ∖ {𝑋})))
172	84, 171	mp1i 13	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = (𝑆 “ (𝐶 ∖ {𝑋})))
173	172	unieqd 4900	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
174	173	fveq2d 6890	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋}))) = (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))))
175	146, 174	ineq12d 4201	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆 ↾ 𝐶)‘𝑋) ∩ (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})))) = ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
176	147, 148, 63, 145, 83	dprddisj 19997	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆 ↾ 𝐶)‘𝑋) ∩ (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})))) = { 0 })
177	175, 176	eqtr3d 2771	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) = { 0 })
178	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑆:𝐼⟶(SubGrp‘𝐺))
179		ffun 6719	. . . . . . . 8 ⊢ (𝑆:𝐼⟶(SubGrp‘𝐺) → Fun 𝑆)
180		funiunfv 7250	. . . . . . . 8 ⊢ (Fun 𝑆 → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
181	178, 179, 180	3syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
182	6	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝐺dom DProd (𝑆 ↾ 𝐶))
183	12	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → dom (𝑆 ↾ 𝐶) = 𝐶)
184		eldifi 4111	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐶 ∖ {𝑋}) → 𝑦 ∈ 𝐶)
185	184	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑦 ∈ 𝐶)
186		simplr 768	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑋 ∈ 𝐶)
187		eldifsni 4770	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐶 ∖ {𝑋}) → 𝑦 ≠ 𝑋)
188	187	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑦 ≠ 𝑋)
189	182, 183, 185, 186, 188, 17	dprdcntz 19996	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑦) ⊆ (𝑍‘((𝑆 ↾ 𝐶)‘𝑋)))
190	185	fvresd 6906	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑦) = (𝑆‘𝑦))
191	19	ad2antlr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
192	191	fveq2d 6890	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → (𝑍‘((𝑆 ↾ 𝐶)‘𝑋)) = (𝑍‘(𝑆‘𝑋)))
193	189, 190, 192	3sstr3d 4018	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → (𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
194	193	ralrimiva 3133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∀𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
195		iunss 5025	. . . . . . . 8 ⊢ (∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)) ↔ ∀𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
196	194, 195	sylibr 234	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
197	181, 196	eqsstrrd 3999	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑍‘(𝑆‘𝑋)))
198	34	subgss 19114	. . . . . . . 8 ⊢ ((𝑆‘𝑋) ∈ (SubGrp‘𝐺) → (𝑆‘𝑋) ⊆ (Base‘𝐺))
199	144, 198	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (Base‘𝐺))
200	34, 17	cntzsubg 19326	. . . . . . 7 ⊢ ((𝐺 ∈ Grp ∧ (𝑆‘𝑋) ⊆ (Base‘𝐺)) → (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺))
201	57, 199, 200	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺))
202	83	mrcsscl 17634	. . . . . 6 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑍‘(𝑆‘𝑋)) ∧ (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝑆‘𝑋)))
203	60, 197, 201, 202	syl3anc 1372	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝑆‘𝑋)))
204	17, 115, 144, 203	cntzrecd 19664	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (𝑍‘(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
205	119, 144, 115, 118, 145, 170, 177, 17, 204	lsmdisj3 19669	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))) = { 0 })
206	141, 205	sseqtrd 4000	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 })
207	54, 206	jca 511	1 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))) ∧ ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 }))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1539   ∈ wcel 2107   ≠ wne 2931  ∀wral 3050   ∖ cdif 3928   ∪ cun 3929   ∩ cin 3930   ⊆ wss 3931  ∅c0 4313  𝒫 cpw 4580  {csn 4606  ∪ cuni 4887  ∪ ciun 4971   class class class wbr 5123  dom cdm 5665  ran crn 5666   ↾ cres 5667   “ cima 5668  Fun wfun 6535  ⟶wf 6537  ‘cfv 6541  (class class class)co 7413  Basecbs 17229  0_gc0g 17455  Moorecmre 17596  mrClscmrc 17597  ACScacs 17599  Grpcgrp 18920  SubGrpcsubg 19107  Cntzccntz 19302  LSSumclsm 19620   DProd cdprd 19981

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5259  ax-sep 5276  ax-nul 5286  ax-pow 5345  ax-pr 5412  ax-un 7737  ax-cnex 11193  ax-resscn 11194  ax-1cn 11195  ax-icn 11196  ax-addcl 11197  ax-addrcl 11198  ax-mulcl 11199  ax-mulrcl 11200  ax-mulcom 11201  ax-addass 11202  ax-mulass 11203  ax-distr 11204  ax-i2m1 11205  ax-1ne0 11206  ax-1rid 11207  ax-rnegex 11208  ax-rrecex 11209  ax-cnre 11210  ax-pre-lttri 11211  ax-pre-lttrn 11212  ax-pre-ltadd 11213  ax-pre-mulgt0 11214

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4888  df-int 4927  df-iun 4973  df-iin 4974  df-br 5124  df-opab 5186  df-mpt 5206  df-tr 5240  df-id 5558  df-eprel 5564  df-po 5572  df-so 5573  df-fr 5617  df-se 5618  df-we 5619  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-pred 6301  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-of 7679  df-om 7870  df-1st 7996  df-2nd 7997  df-supp 8168  df-tpos 8233  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-1o 8488  df-2o 8489  df-er 8727  df-map 8850  df-ixp 8920  df-en 8968  df-dom 8969  df-sdom 8970  df-fin 8971  df-fsupp 9384  df-oi 9532  df-card 9961  df-pnf 11279  df-mnf 11280  df-xr 11281  df-ltxr 11282  df-le 11283  df-sub 11476  df-neg 11477  df-nn 12249  df-2 12311  df-n0 12510  df-z 12597  df-uz 12861  df-fz 13530  df-fzo 13677  df-seq 14025  df-hash 14352  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17230  df-ress 17253  df-plusg 17286  df-0g 17457  df-gsum 17458  df-mre 17600  df-mrc 17601  df-acs 17603  df-mgm 18622  df-sgrp 18701  df-mnd 18717  df-mhm 18765  df-submnd 18766  df-grp 18923  df-minusg 18924  df-sbg 18925  df-mulg 19055  df-subg 19110  df-ghm 19200  df-gim 19246  df-cntz 19304  df-oppg 19333  df-lsm 19622  df-cmn 19768  df-dprd 19983

This theorem is referenced by:  dmdprdsplit2  20034