Theorem dmdprdsplit2lem 19960

Description: Lemma for dmdprdsplit 19962. (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 2817	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 ↔ 𝑌 ∈ (𝐶 ∪ 𝐷)))
4		elun 4103	. . . 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 4128	. . . . . . . . . . 11 ⊢ 𝐶 ⊆ (𝐶 ∪ 𝐷)
10	9, 1	sseqtrrid 3978	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ⊆ 𝐼)
11	8, 10	fssresd 6690	. . . . . . . . 9 ⊢ (𝜑 → (𝑆 ↾ 𝐶):𝐶⟶(SubGrp‘𝐺))
12	11	fdmd 6661	. . . . . . . 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 19923	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝑍‘((𝑆 ↾ 𝐶)‘𝑌)))
19		fvres 6841	. . . . . . 7 ⊢ (𝑋 ∈ 𝐶 → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
20	19	ad2antlr 727	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
21		fvres 6841	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐶 → ((𝑆 ↾ 𝐶)‘𝑌) = (𝑆‘𝑌))
22	21	ad2antrl 728	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑌) = (𝑆‘𝑌))
23	22	fveq2d 6826	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → (𝑍‘((𝑆 ↾ 𝐶)‘𝑌)) = (𝑍‘(𝑆‘𝑌)))
24	18, 20, 23	3sstr3d 3989	. . . . 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 19940	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
31	26, 30	eqsstrrd 3970	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
32		dmdprdsplit2.3	. . . . . . . 8 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
33	32	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
34		eqid 2731	. . . . . . . . 9 ⊢ (Base‘𝐺) = (Base‘𝐺)
35	34	dprdssv 19931	. . . . . . . 8 ⊢ (𝐺 DProd (𝑆 ↾ 𝐷)) ⊆ (Base‘𝐺)
36		fvres 6841	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝐷 → ((𝑆 ↾ 𝐷)‘𝑌) = (𝑆‘𝑌))
37	36	ad2antrl 728	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐷)‘𝑌) = (𝑆‘𝑌))
38		dmdprdsplit2.2	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐷))
39	38	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐷))
40		ssun2 4129	. . . . . . . . . . . . . 14 ⊢ 𝐷 ⊆ (𝐶 ∪ 𝐷)
41	40, 1	sseqtrrid 3978	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ⊆ 𝐼)
42	8, 41	fssresd 6690	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 ↾ 𝐷):𝐷⟶(SubGrp‘𝐺))
43	42	fdmd 6661	. . . . . . . . . . 11 ⊢ (𝜑 → dom (𝑆 ↾ 𝐷) = 𝐷)
44	43	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐷) = 𝐷)
45		simprl 770	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝑌 ∈ 𝐷)
46	39, 44, 45	dprdub 19940	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐷)‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
47	37, 46	eqsstrrd 3970	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
48	34, 17	cntz2ss 19248	. . . . . . . 8 ⊢ (((𝐺 DProd (𝑆 ↾ 𝐷)) ⊆ (Base‘𝐺) ∧ (𝑆‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷))) → (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ (𝑍‘(𝑆‘𝑌)))
49	35, 47, 48	sylancr 587	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ (𝑍‘(𝑆‘𝑌)))
50	33, 49	sstrd 3945	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝑆‘𝑌)))
51	31, 50	sstrd 3945	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))
52	51	exp32 420	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐷 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
53	25, 52	jaod 859	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷) → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
54	5, 53	sylbid 240	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
55		dprdgrp 19920	. . . . . . . 8 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → 𝐺 ∈ Grp)
56	6, 55	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐺 ∈ Grp)
57	56	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐺 ∈ Grp)
58	34	subgacs 19074	. . . . . 6 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)))
59		acsmre 17558	. . . . . 6 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
60	57, 58, 59	3syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
61		difundir 4241	. . . . . . . . . . 11 ⊢ ((𝐶 ∪ 𝐷) ∖ {𝑋}) = ((𝐶 ∖ {𝑋}) ∪ (𝐷 ∖ {𝑋}))
62	2	difeq1d 4075	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐼 ∖ {𝑋}) = ((𝐶 ∪ 𝐷) ∖ {𝑋}))
63		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐶)
64	63	snssd 4761	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → {𝑋} ⊆ 𝐶)
65		sslin 4193	. . . . . . . . . . . . . . 15 ⊢ ({𝑋} ⊆ 𝐶 → (𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶))
66	64, 65	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶))
67		incom 4159	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∩ 𝐷) = (𝐷 ∩ 𝐶)
68		dprdsplit.i	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐶 ∩ 𝐷) = ∅)
69	68	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐶 ∩ 𝐷) = ∅)
70	67, 69	eqtr3id 2780	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ 𝐶) = ∅)
71		sseq0 4353	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶) ∧ (𝐷 ∩ 𝐶) = ∅) → (𝐷 ∩ {𝑋}) = ∅)
72	66, 70, 71	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ {𝑋}) = ∅)
73		disj3 4404	. . . . . . . . . . . . 13 ⊢ ((𝐷 ∩ {𝑋}) = ∅ ↔ 𝐷 = (𝐷 ∖ {𝑋}))
74	72, 73	sylib 218	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐷 = (𝐷 ∖ {𝑋}))
75	74	uneq2d 4118	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐶 ∖ {𝑋}) ∪ 𝐷) = ((𝐶 ∖ {𝑋}) ∪ (𝐷 ∖ {𝑋})))
76	61, 62, 75	3eqtr4a 2792	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐼 ∖ {𝑋}) = ((𝐶 ∖ {𝑋}) ∪ 𝐷))
77	76	imaeq2d 6009	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ (𝐼 ∖ {𝑋})) = (𝑆 “ ((𝐶 ∖ {𝑋}) ∪ 𝐷)))
78		imaundi 6096	. . . . . . . . 9 ⊢ (𝑆 “ ((𝐶 ∖ {𝑋}) ∪ 𝐷)) = ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷))
79	77, 78	eqtrdi 2782	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ (𝐼 ∖ {𝑋})) = ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)))
80	79	unieqd 4872	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) = ∪ ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)))
81		uniun 4882	. . . . . . 7 ⊢ ∪ ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)) = (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷))
82	80, 81	eqtrdi 2782	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) = (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)))
83		dmdprdsplit2lem.k	. . . . . . . . 9 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
84		difss 4086	. . . . . . . . . . 11 ⊢ (𝐶 ∖ {𝑋}) ⊆ 𝐶
85		imass2 6051	. . . . . . . . . . 11 ⊢ ((𝐶 ∖ {𝑋}) ⊆ 𝐶 → (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑆 “ 𝐶))
86		uniss 4867	. . . . . . . . . . 11 ⊢ ((𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑆 “ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶))
87	84, 85, 86	mp2b 10	. . . . . . . . . 10 ⊢ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶)
88		imassrn 6020	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐶) ⊆ ran 𝑆
89	8	frnd 6659	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ran 𝑆 ⊆ (SubGrp‘𝐺))
90	89	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ran 𝑆 ⊆ (SubGrp‘𝐺))
91		mresspw 17494	. . . . . . . . . . . . . 14 ⊢ ((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) → (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺))
92	60, 91	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺))
93	90, 92	sstrd 3945	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ran 𝑆 ⊆ 𝒫 (Base‘𝐺))
94	88, 93	sstrid 3946	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ 𝐶) ⊆ 𝒫 (Base‘𝐺))
95		sspwuni 5048	. . . . . . . . . . 11 ⊢ ((𝑆 “ 𝐶) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ 𝐶) ⊆ (Base‘𝐺))
96	94, 95	sylib 218	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐶) ⊆ (Base‘𝐺))
97	87, 96	sstrid 3946	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (Base‘𝐺))
98	60, 83, 97	mrcssidd 17531	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))))
99		imassrn 6020	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐷) ⊆ ran 𝑆
100	99, 93	sstrid 3946	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ 𝐷) ⊆ 𝒫 (Base‘𝐺))
101		sspwuni 5048	. . . . . . . . . . 11 ⊢ ((𝑆 “ 𝐷) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ 𝐷) ⊆ (Base‘𝐺))
102	100, 101	sylib 218	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (Base‘𝐺))
103	60, 83, 102	mrcssidd 17531	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (𝐾‘∪ (𝑆 “ 𝐷)))
104	83	dprdspan 19942	. . . . . . . . . . . 12 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐷) → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷)))
105	38, 104	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷)))
106		df-ima 5629	. . . . . . . . . . . . 13 ⊢ (𝑆 “ 𝐷) = ran (𝑆 ↾ 𝐷)
107	106	unieqi 4871	. . . . . . . . . . . 12 ⊢ ∪ (𝑆 “ 𝐷) = ∪ ran (𝑆 ↾ 𝐷)
108	107	fveq2i 6825	. . . . . . . . . . 11 ⊢ (𝐾‘∪ (𝑆 “ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷))
109	105, 108	eqtr4di 2784	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ (𝑆 “ 𝐷)))
110	109	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ (𝑆 “ 𝐷)))
111	103, 110	sseqtrrd 3972	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
112		unss12 4138	. . . . . . . 8 ⊢ ((∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∧ ∪ (𝑆 “ 𝐷) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷))) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))))
113	98, 111, 112	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))))
114	83	mrccl 17517	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (Base‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺))
115	60, 97, 114	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺))
116		dprdsubg 19939	. . . . . . . . . 10 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐷) → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
117	38, 116	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
118	117	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
119		eqid 2731	. . . . . . . . 9 ⊢ (LSSum‘𝐺) = (LSSum‘𝐺)
120	119	lsmunss 19572	. . . . . . . 8 ⊢ (((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺)) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
121	115, 118, 120	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
122	113, 121	sstrd 3945	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
123	82, 122	eqsstrd 3969	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
124	87	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶))
125	60, 83, 124, 96	mrcssd 17530	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐾‘∪ (𝑆 “ 𝐶)))
126	83	dprdspan 19942	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶)))
127	6, 126	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶)))
128		df-ima 5629	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐶) = ran (𝑆 ↾ 𝐶)
129	128	unieqi 4871	. . . . . . . . . . 11 ⊢ ∪ (𝑆 “ 𝐶) = ∪ ran (𝑆 ↾ 𝐶)
130	129	fveq2i 6825	. . . . . . . . . 10 ⊢ (𝐾‘∪ (𝑆 “ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶))
131	127, 130	eqtr4di 2784	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ (𝑆 “ 𝐶)))
132	131	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ (𝑆 “ 𝐶)))
133	125, 132	sseqtrrd 3972	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
134	32	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
135	133, 134	sstrd 3945	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
136	119, 17	lsmsubg 19567	. . . . . 6 ⊢ (((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷)))) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺))
137	115, 118, 135, 136	syl3anc 1373	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺))
138	83	mrcsscl 17526	. . . . 5 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐼 ∖ {𝑋})) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∧ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
139	60, 123, 137, 138	syl3anc 1373	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
140		sslin 4193	. . . 4 ⊢ ((𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))))
141	139, 140	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))))
142	10	sselda 3934	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐼)
143	8	ffvelcdmda 7017	. . . . 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 19940	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
150	146, 149	eqsstrrd 3970	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
151		dprdsubg 19939	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
152	6, 151	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
153	152	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
154	119	lsmlub 19577	. . . . . . . . 9 ⊢ (((𝑆‘𝑋) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺)) → (((𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))) ↔ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))))
155	144, 115, 153, 154	syl3anc 1373	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))) ↔ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))))
156	150, 133, 155	mpbi2and 712	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
157	156	ssrind 4194	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
158		dmdprdsplit2.4	. . . . . . 7 ⊢ (𝜑 → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
159	158	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
160	157, 159	sseqtrd 3971	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ { 0 })
161	119	lsmub1 19570	. . . . . . . . 9 ⊢ (((𝑆‘𝑋) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺)) → (𝑆‘𝑋) ⊆ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
162	144, 115, 161	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
163	145	subg0cl 19047	. . . . . . . . 9 ⊢ ((𝑆‘𝑋) ∈ (SubGrp‘𝐺) → 0 ∈ (𝑆‘𝑋))
164	144, 163	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (𝑆‘𝑋))
165	162, 164	sseldd 3935	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
166	145	subg0cl 19047	. . . . . . . 8 ⊢ ((𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺) → 0 ∈ (𝐺 DProd (𝑆 ↾ 𝐷)))
167	118, 166	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (𝐺 DProd (𝑆 ↾ 𝐷)))
168	165, 167	elind 4150	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
169	168	snssd 4761	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → { 0 } ⊆ (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
170	160, 169	eqssd 3952	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
171		resima2 5965	. . . . . . . . 9 ⊢ ((𝐶 ∖ {𝑋}) ⊆ 𝐶 → ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = (𝑆 “ (𝐶 ∖ {𝑋})))
172	84, 171	mp1i 13	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = (𝑆 “ (𝐶 ∖ {𝑋})))
173	172	unieqd 4872	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
174	173	fveq2d 6826	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋}))) = (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))))
175	146, 174	ineq12d 4171	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆 ↾ 𝐶)‘𝑋) ∩ (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})))) = ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
176	147, 148, 63, 145, 83	dprddisj 19924	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆 ↾ 𝐶)‘𝑋) ∩ (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})))) = { 0 })
177	175, 176	eqtr3d 2768	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) = { 0 })
178	8	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑆:𝐼⟶(SubGrp‘𝐺))
179		ffun 6654	. . . . . . . 8 ⊢ (𝑆:𝐼⟶(SubGrp‘𝐺) → Fun 𝑆)
180		funiunfv 7182	. . . . . . . 8 ⊢ (Fun 𝑆 → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
181	178, 179, 180	3syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
182	6	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝐺dom DProd (𝑆 ↾ 𝐶))
183	12	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → dom (𝑆 ↾ 𝐶) = 𝐶)
184		eldifi 4081	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐶 ∖ {𝑋}) → 𝑦 ∈ 𝐶)
185	184	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑦 ∈ 𝐶)
186		simplr 768	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑋 ∈ 𝐶)
187		eldifsni 4742	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐶 ∖ {𝑋}) → 𝑦 ≠ 𝑋)
188	187	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑦 ≠ 𝑋)
189	182, 183, 185, 186, 188, 17	dprdcntz 19923	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑦) ⊆ (𝑍‘((𝑆 ↾ 𝐶)‘𝑋)))
190	185	fvresd 6842	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑦) = (𝑆‘𝑦))
191	19	ad2antlr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
192	191	fveq2d 6826	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → (𝑍‘((𝑆 ↾ 𝐶)‘𝑋)) = (𝑍‘(𝑆‘𝑋)))
193	189, 190, 192	3sstr3d 3989	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → (𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
194	193	ralrimiva 3124	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∀𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
195		iunss 4994	. . . . . . . 8 ⊢ (∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)) ↔ ∀𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
196	194, 195	sylibr 234	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
197	181, 196	eqsstrrd 3970	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑍‘(𝑆‘𝑋)))
198	34	subgss 19040	. . . . . . . 8 ⊢ ((𝑆‘𝑋) ∈ (SubGrp‘𝐺) → (𝑆‘𝑋) ⊆ (Base‘𝐺))
199	144, 198	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (Base‘𝐺))
200	34, 17	cntzsubg 19252	. . . . . . 7 ⊢ ((𝐺 ∈ Grp ∧ (𝑆‘𝑋) ⊆ (Base‘𝐺)) → (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺))
201	57, 199, 200	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺))
202	83	mrcsscl 17526	. . . . . 6 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑍‘(𝑆‘𝑋)) ∧ (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝑆‘𝑋)))
203	60, 197, 201, 202	syl3anc 1373	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝑆‘𝑋)))
204	17, 115, 144, 203	cntzrecd 19591	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (𝑍‘(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
205	119, 144, 115, 118, 145, 170, 177, 17, 204	lsmdisj3 19596	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))) = { 0 })
206	141, 205	sseqtrd 3971	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 })
207	54, 206	jca 511	1 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))) ∧ ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 }))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   = wceq 1541   ∈ wcel 2111   ≠ wne 2928  ∀wral 3047   ∖ cdif 3899   ∪ cun 3900   ∩ cin 3901   ⊆ wss 3902  ∅c0 4283  𝒫 cpw 4550  {csn 4576  ∪ cuni 4859  ∪ ciun 4941   class class class wbr 5091  dom cdm 5616  ran crn 5617   ↾ cres 5618   “ cima 5619  Fun wfun 6475  ⟶wf 6477  ‘cfv 6481  (class class class)co 7346  Basecbs 17120  0_gc0g 17343  Moorecmre 17484  mrClscmrc 17485  ACScacs 17487  Grpcgrp 18846  SubGrpcsubg 19033  Cntzccntz 19228  LSSumclsm 19547   DProd cdprd 19908

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-rep 5217  ax-sep 5234  ax-nul 5244  ax-pow 5303  ax-pr 5370  ax-un 7668  ax-cnex 11062  ax-resscn 11063  ax-1cn 11064  ax-icn 11065  ax-addcl 11066  ax-addrcl 11067  ax-mulcl 11068  ax-mulrcl 11069  ax-mulcom 11070  ax-addass 11071  ax-mulass 11072  ax-distr 11073  ax-i2m1 11074  ax-1ne0 11075  ax-1rid 11076  ax-rnegex 11077  ax-rrecex 11078  ax-cnre 11079  ax-pre-lttri 11080  ax-pre-lttrn 11081  ax-pre-ltadd 11082  ax-pre-mulgt0 11083

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-nel 3033  df-ral 3048  df-rex 3057  df-rmo 3346  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4476  df-pw 4552  df-sn 4577  df-pr 4579  df-op 4583  df-uni 4860  df-int 4898  df-iun 4943  df-iin 4944  df-br 5092  df-opab 5154  df-mpt 5173  df-tr 5199  df-id 5511  df-eprel 5516  df-po 5524  df-so 5525  df-fr 5569  df-se 5570  df-we 5571  df-xp 5622  df-rel 5623  df-cnv 5624  df-co 5625  df-dm 5626  df-rn 5627  df-res 5628  df-ima 5629  df-pred 6248  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-isom 6490  df-riota 7303  df-ov 7349  df-oprab 7350  df-mpo 7351  df-of 7610  df-om 7797  df-1st 7921  df-2nd 7922  df-supp 8091  df-tpos 8156  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-1o 8385  df-2o 8386  df-er 8622  df-map 8752  df-ixp 8822  df-en 8870  df-dom 8871  df-sdom 8872  df-fin 8873  df-fsupp 9246  df-oi 9396  df-card 9832  df-pnf 11148  df-mnf 11149  df-xr 11150  df-ltxr 11151  df-le 11152  df-sub 11346  df-neg 11347  df-nn 12126  df-2 12188  df-n0 12382  df-z 12469  df-uz 12733  df-fz 13408  df-fzo 13555  df-seq 13909  df-hash 14238  df-sets 17075  df-slot 17093  df-ndx 17105  df-base 17121  df-ress 17142  df-plusg 17174  df-0g 17345  df-gsum 17346  df-mre 17488  df-mrc 17489  df-acs 17491  df-mgm 18548  df-sgrp 18627  df-mnd 18643  df-mhm 18691  df-submnd 18692  df-grp 18849  df-minusg 18850  df-sbg 18851  df-mulg 18981  df-subg 19036  df-ghm 19126  df-gim 19172  df-cntz 19230  df-oppg 19259  df-lsm 19549  df-cmn 19695  df-dprd 19910

This theorem is referenced by:  dmdprdsplit2  19961