Theorem dmdprdsplit2lem 20312

Description: Lemma for dmdprdsplit 20314. (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 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐼 = (𝐶 ∪ 𝐷))
3	2	eleq2d 2850	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 ↔ 𝑌 ∈ (𝐶 ∪ 𝐷)))
4		elun 4155	. . . 4 ⊢ (𝑌 ∈ (𝐶 ∪ 𝐷) ↔ (𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷))
5	3, 4	bitrdi 290	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 ↔ (𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷)))
6		dmdprdsplit2.1	. . . . . . . 8 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐶))
7	6	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐶))
8		dprdsplit.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝑆:𝐼⟶(SubGrp‘𝐺))
9		ssun1 4179	. . . . . . . . . . 11 ⊢ 𝐶 ⊆ (𝐶 ∪ 𝐷)
10	9, 1	sseqtrrid 3956	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ⊆ 𝐼)
11	8, 10	fssresd 6779	. . . . . . . . 9 ⊢ (𝜑 → (𝑆 ↾ 𝐶):𝐶⟶(SubGrp‘𝐺))
12	11	fdmd 6750	. . . . . . . 8 ⊢ (𝜑 → dom (𝑆 ↾ 𝐶) = 𝐶)
13	12	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐶) = 𝐶)
14		simplr 781	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝑋 ∈ 𝐶)
15		simprl 783	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝑌 ∈ 𝐶)
16		simprr 785	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → 𝑋 ≠ 𝑌)
17		dmdprdsplit.z	. . . . . . 7 ⊢ 𝑍 = (Cntz‘𝐺)
18	7, 13, 14, 15, 16, 17	dprdcntz 20275	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝑍‘((𝑆 ↾ 𝐶)‘𝑌)))
19		fvres 6935	. . . . . . 7 ⊢ (𝑋 ∈ 𝐶 → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
20	19	ad2antlr 740	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
21		fvres 6935	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐶 → ((𝑆 ↾ 𝐶)‘𝑌) = (𝑆‘𝑌))
22	21	ad2antrl 741	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑌) = (𝑆‘𝑌))
23	22	fveq2d 6920	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → (𝑍‘((𝑆 ↾ 𝐶)‘𝑌)) = (𝑍‘(𝑆‘𝑌)))
24	18, 20, 23	3sstr3d 3967	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐶 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))
25	24	exp32 426	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐶 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
26	19	ad2antlr 740	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
27	6	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐶))
28	12	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐶) = 𝐶)
29		simplr 781	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝑋 ∈ 𝐶)
30	27, 28, 29	dprdub 20292	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
31	26, 30	eqsstrrd 3948	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
32		dmdprdsplit2.3	. . . . . . . 8 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
33	32	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
34		eqid 2763	. . . . . . . . 9 ⊢ (Base‘𝐺) = (Base‘𝐺)
35	34	dprdssv 20283	. . . . . . . 8 ⊢ (𝐺 DProd (𝑆 ↾ 𝐷)) ⊆ (Base‘𝐺)
36		fvres 6935	. . . . . . . . . 10 ⊢ (𝑌 ∈ 𝐷 → ((𝑆 ↾ 𝐷)‘𝑌) = (𝑆‘𝑌))
37	36	ad2antrl 741	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐷)‘𝑌) = (𝑆‘𝑌))
38		dmdprdsplit2.2	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐷))
39	38	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝐺dom DProd (𝑆 ↾ 𝐷))
40		ssun2 4180	. . . . . . . . . . . . . 14 ⊢ 𝐷 ⊆ (𝐶 ∪ 𝐷)
41	40, 1	sseqtrrid 3956	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ⊆ 𝐼)
42	8, 41	fssresd 6779	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 ↾ 𝐷):𝐷⟶(SubGrp‘𝐺))
43	42	fdmd 6750	. . . . . . . . . . 11 ⊢ (𝜑 → dom (𝑆 ↾ 𝐷) = 𝐷)
44	43	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → dom (𝑆 ↾ 𝐷) = 𝐷)
45		simprl 783	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → 𝑌 ∈ 𝐷)
46	39, 44, 45	dprdub 20292	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → ((𝑆 ↾ 𝐷)‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
47	37, 46	eqsstrrd 3948	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
48	34, 17	cntz2ss 19600	. . . . . . . 8 ⊢ (((𝐺 DProd (𝑆 ↾ 𝐷)) ⊆ (Base‘𝐺) ∧ (𝑆‘𝑌) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷))) → (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ (𝑍‘(𝑆‘𝑌)))
49	35, 47, 48	sylancr 599	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ (𝑍‘(𝑆‘𝑌)))
50	33, 49	sstrd 3923	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝑆‘𝑌)))
51	31, 50	sstrd 3923	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ (𝑌 ∈ 𝐷 ∧ 𝑋 ≠ 𝑌)) → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))
52	51	exp32 426	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐷 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
53	25, 52	jaod 873	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐶 ∨ 𝑌 ∈ 𝐷) → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
54	5, 53	sylbid 243	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))))
55		dprdgrp 20272	. . . . . . . 8 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → 𝐺 ∈ Grp)
56	6, 55	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐺 ∈ Grp)
57	56	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐺 ∈ Grp)
58	34	subgacs 19421	. . . . . 6 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)))
59		acsmre 17876	. . . . . 6 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
60	57, 58, 59	3syl 19	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
61		difundir 4239	. . . . . . . . . . 11 ⊢ ((𝐶 ∪ 𝐷) ∖ {𝑋}) = ((𝐶 ∖ {𝑋}) ∪ (𝐷 ∖ {𝑋}))
62	2	difeq1d 4065	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐼 ∖ {𝑋}) = ((𝐶 ∪ 𝐷) ∖ {𝑋}))
63		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐶)
64	63	snssd 4749	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → {𝑋} ⊆ 𝐶)
65		sslin 4142	. . . . . . . . . . . . . . 15 ⊢ ({𝑋} ⊆ 𝐶 → (𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶))
66	64, 65	syl 18	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶))
67		incom 4109	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∩ 𝐷) = (𝐷 ∩ 𝐶)
68		dprdsplit.i	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐶 ∩ 𝐷) = ∅)
69	68	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐶 ∩ 𝐷) = ∅)
70	67, 69	eqtr3id 2812	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ 𝐶) = ∅)
71		sseq0 4357	. . . . . . . . . . . . . 14 ⊢ (((𝐷 ∩ {𝑋}) ⊆ (𝐷 ∩ 𝐶) ∧ (𝐷 ∩ 𝐶) = ∅) → (𝐷 ∩ {𝑋}) = ∅)
72	66, 70, 71	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐷 ∩ {𝑋}) = ∅)
73		disj3 4410	. . . . . . . . . . . . 13 ⊢ ((𝐷 ∩ {𝑋}) = ∅ ↔ 𝐷 = (𝐷 ∖ {𝑋}))
74	72, 73	sylib 221	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐷 = (𝐷 ∖ {𝑋}))
75	74	uneq2d 4170	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐶 ∖ {𝑋}) ∪ 𝐷) = ((𝐶 ∖ {𝑋}) ∪ (𝐷 ∖ {𝑋})))
76	61, 62, 75	3eqtr4a 2824	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐼 ∖ {𝑋}) = ((𝐶 ∖ {𝑋}) ∪ 𝐷))
77	76	imaeq2d 6070	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ (𝐼 ∖ {𝑋})) = (𝑆 “ ((𝐶 ∖ {𝑋}) ∪ 𝐷)))
78		imaundi 6159	. . . . . . . . 9 ⊢ (𝑆 “ ((𝐶 ∖ {𝑋}) ∪ 𝐷)) = ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷))
79	77, 78	eqtrdi 2814	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ (𝐼 ∖ {𝑋})) = ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)))
80	79	unieqd 4885	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) = ∪ ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)))
81		uniun 4895	. . . . . . 7 ⊢ ∪ ((𝑆 “ (𝐶 ∖ {𝑋})) ∪ (𝑆 “ 𝐷)) = (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷))
82	80, 81	eqtrdi 2814	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) = (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)))
83		dmdprdsplit2lem.k	. . . . . . . . 9 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
84		difss 4075	. . . . . . . . . . 11 ⊢ (𝐶 ∖ {𝑋}) ⊆ 𝐶
85		imass2 6073	. . . . . . . . . . 11 ⊢ ((𝐶 ∖ {𝑋}) ⊆ 𝐶 → (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑆 “ 𝐶))
86		uniss 4880	. . . . . . . . . . 11 ⊢ ((𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑆 “ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶))
87	84, 85, 86	mp2b 10	. . . . . . . . . 10 ⊢ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶)
88		imassrn 6216	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐶) ⊆ ran 𝑆
89	8	frnd 6748	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ran 𝑆 ⊆ (SubGrp‘𝐺))
90	89	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ran 𝑆 ⊆ (SubGrp‘𝐺))
91		mresspw 17812	. . . . . . . . . . . . . 14 ⊢ ((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) → (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺))
92	60, 91	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺))
93	90, 92	sstrd 3923	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ran 𝑆 ⊆ 𝒫 (Base‘𝐺))
94	88, 93	sstrid 3924	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ 𝐶) ⊆ 𝒫 (Base‘𝐺))
95		sspwuni 5065	. . . . . . . . . . 11 ⊢ ((𝑆 “ 𝐶) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ 𝐶) ⊆ (Base‘𝐺))
96	94, 95	sylib 221	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐶) ⊆ (Base‘𝐺))
97	87, 96	sstrid 3924	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (Base‘𝐺))
98	60, 83, 97	mrcssidd 17849	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))))
99		imassrn 6216	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐷) ⊆ ran 𝑆
100	99, 93	sstrid 3924	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆 “ 𝐷) ⊆ 𝒫 (Base‘𝐺))
101		sspwuni 5065	. . . . . . . . . . 11 ⊢ ((𝑆 “ 𝐷) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ 𝐷) ⊆ (Base‘𝐺))
102	100, 101	sylib 221	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (Base‘𝐺))
103	60, 83, 102	mrcssidd 17849	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (𝐾‘∪ (𝑆 “ 𝐷)))
104	83	dprdspan 20294	. . . . . . . . . . . 12 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐷) → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷)))
105	38, 104	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷)))
106		df-ima 5671	. . . . . . . . . . . . 13 ⊢ (𝑆 “ 𝐷) = ran (𝑆 ↾ 𝐷)
107	106	unieqi 4884	. . . . . . . . . . . 12 ⊢ ∪ (𝑆 “ 𝐷) = ∪ ran (𝑆 ↾ 𝐷)
108	107	fveq2i 6919	. . . . . . . . . . 11 ⊢ (𝐾‘∪ (𝑆 “ 𝐷)) = (𝐾‘∪ ran (𝑆 ↾ 𝐷))
109	105, 108	eqtr4di 2816	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ (𝑆 “ 𝐷)))
110	109	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐷)) = (𝐾‘∪ (𝑆 “ 𝐷)))
111	103, 110	sseqtrrd 3950	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ 𝐷) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷)))
112		unss12 4189	. . . . . . . 8 ⊢ ((∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∧ ∪ (𝑆 “ 𝐷) ⊆ (𝐺 DProd (𝑆 ↾ 𝐷))) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))))
113	98, 111, 112	syl2anc 596	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))))
114	83	mrccl 17835	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (Base‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺))
115	60, 97, 114	syl2anc 596	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺))
116		dprdsubg 20291	. . . . . . . . . 10 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐷) → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
117	38, 116	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
118	117	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺))
119		eqid 2763	. . . . . . . . 9 ⊢ (LSSum‘𝐺) = (LSSum‘𝐺)
120	119	lsmunss 19924	. . . . . . . 8 ⊢ (((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺)) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
121	115, 118, 120	syl2anc 596	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∪ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
122	113, 121	sstrd 3923	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (∪ (𝑆 “ (𝐶 ∖ {𝑋})) ∪ ∪ (𝑆 “ 𝐷)) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
123	82, 122	eqsstrd 3947	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐼 ∖ {𝑋})) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
124	87	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ ∪ (𝑆 “ 𝐶))
125	60, 83, 124, 96	mrcssd 17848	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐾‘∪ (𝑆 “ 𝐶)))
126	83	dprdspan 20294	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶)))
127	6, 126	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶)))
128		df-ima 5671	. . . . . . . . . . . 12 ⊢ (𝑆 “ 𝐶) = ran (𝑆 ↾ 𝐶)
129	128	unieqi 4884	. . . . . . . . . . 11 ⊢ ∪ (𝑆 “ 𝐶) = ∪ ran (𝑆 ↾ 𝐶)
130	129	fveq2i 6919	. . . . . . . . . 10 ⊢ (𝐾‘∪ (𝑆 “ 𝐶)) = (𝐾‘∪ ran (𝑆 ↾ 𝐶))
131	127, 130	eqtr4di 2816	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ (𝑆 “ 𝐶)))
132	131	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) = (𝐾‘∪ (𝑆 “ 𝐶)))
133	125, 132	sseqtrrd 3950	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
134	32	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
135	133, 134	sstrd 3923	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷))))
136	119, 17	lsmsubg 19919	. . . . . 6 ⊢ (((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝐺 DProd (𝑆 ↾ 𝐷)))) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺))
137	115, 118, 135, 136	syl3anc 1399	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺))
138	83	mrcsscl 17844	. . . . 5 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐼 ∖ {𝑋})) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∧ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) ∈ (SubGrp‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
139	60, 123, 137, 138	syl3anc 1399	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))))
140		sslin 4142	. . . 4 ⊢ ((𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋}))) ⊆ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷))) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))))
141	139, 140	syl 18	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))))
142	10	sselda 3913	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑋 ∈ 𝐼)
143	8	ffvelcdmda 7116	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐼) → (𝑆‘𝑋) ∈ (SubGrp‘𝐺))
144	142, 143	syldan 603	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ∈ (SubGrp‘𝐺))
145		dmdprdsplit.0	. . . 4 ⊢ 0 = (0g‘𝐺)
146	19	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
147	6	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝐺dom DProd (𝑆 ↾ 𝐶))
148	12	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → dom (𝑆 ↾ 𝐶) = 𝐶)
149	147, 148, 63	dprdub 20292	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶)‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
150	146, 149	eqsstrrd 3948	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
151		dprdsubg 20291	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
152	6, 151	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
153	152	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺))
154	119	lsmlub 19929	. . . . . . . . 9 ⊢ (((𝑆‘𝑋) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑆 ↾ 𝐶)) ∈ (SubGrp‘𝐺)) → (((𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))) ↔ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))))
155	144, 115, 153, 154	syl3anc 1399	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))) ↔ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶))))
156	150, 133, 155	mpbi2and 725	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ⊆ (𝐺 DProd (𝑆 ↾ 𝐶)))
157	156	ssrind 4143	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
158		dmdprdsplit2.4	. . . . . . 7 ⊢ (𝜑 → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
159	158	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝐺 DProd (𝑆 ↾ 𝐶)) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
160	157, 159	sseqtrd 3949	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) ⊆ { 0 })
161	119	lsmub1 19922	. . . . . . . . 9 ⊢ (((𝑆‘𝑋) ∈ (SubGrp‘𝐺) ∧ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ∈ (SubGrp‘𝐺)) → (𝑆‘𝑋) ⊆ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
162	144, 115, 161	syl2anc 596	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
163	145	subg0cl 19394	. . . . . . . . 9 ⊢ ((𝑆‘𝑋) ∈ (SubGrp‘𝐺) → 0 ∈ (𝑆‘𝑋))
164	144, 163	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (𝑆‘𝑋))
165	162, 164	sseldd 3914	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ ((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
166	145	subg0cl 19394	. . . . . . . 8 ⊢ ((𝐺 DProd (𝑆 ↾ 𝐷)) ∈ (SubGrp‘𝐺) → 0 ∈ (𝐺 DProd (𝑆 ↾ 𝐷)))
167	118, 166	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (𝐺 DProd (𝑆 ↾ 𝐷)))
168	165, 167	elind 4100	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 0 ∈ (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
169	168	snssd 4749	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → { 0 } ⊆ (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))))
170	160, 169	eqssd 3930	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆‘𝑋)(LSSum‘𝐺)(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) ∩ (𝐺 DProd (𝑆 ↾ 𝐷))) = { 0 })
171		resima2 6075	. . . . . . . . 9 ⊢ ((𝐶 ∖ {𝑋}) ⊆ 𝐶 → ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = (𝑆 “ (𝐶 ∖ {𝑋})))
172	84, 171	mp1i 14	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = (𝑆 “ (𝐶 ∖ {𝑋})))
173	172	unieqd 4885	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
174	173	fveq2d 6920	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋}))) = (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))))
175	146, 174	ineq12d 4121	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆 ↾ 𝐶)‘𝑋) ∩ (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})))) = ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
176	147, 148, 63, 145, 83	dprddisj 20276	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (((𝑆 ↾ 𝐶)‘𝑋) ∩ (𝐾‘∪ ((𝑆 ↾ 𝐶) “ (𝐶 ∖ {𝑋})))) = { 0 })
177	175, 176	eqtr3d 2800	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))) = { 0 })
178	8	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → 𝑆:𝐼⟶(SubGrp‘𝐺))
179		ffun 6742	. . . . . . . 8 ⊢ (𝑆:𝐼⟶(SubGrp‘𝐺) → Fun 𝑆)
180		funiunfv 7283	. . . . . . . 8 ⊢ (Fun 𝑆 → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
181	178, 179, 180	3syl 19	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) = ∪ (𝑆 “ (𝐶 ∖ {𝑋})))
182	6	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝐺dom DProd (𝑆 ↾ 𝐶))
183	12	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → dom (𝑆 ↾ 𝐶) = 𝐶)
184		eldifi 4070	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐶 ∖ {𝑋}) → 𝑦 ∈ 𝐶)
185	184	adantl 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑦 ∈ 𝐶)
186		simplr 781	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑋 ∈ 𝐶)
187		eldifsni 4755	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐶 ∖ {𝑋}) → 𝑦 ≠ 𝑋)
188	187	adantl 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → 𝑦 ≠ 𝑋)
189	182, 183, 185, 186, 188, 17	dprdcntz 20275	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑦) ⊆ (𝑍‘((𝑆 ↾ 𝐶)‘𝑋)))
190	185	fvresd 6936	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑦) = (𝑆‘𝑦))
191	19	ad2antlr 740	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → ((𝑆 ↾ 𝐶)‘𝑋) = (𝑆‘𝑋))
192	191	fveq2d 6920	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → (𝑍‘((𝑆 ↾ 𝐶)‘𝑋)) = (𝑍‘(𝑆‘𝑋)))
193	189, 190, 192	3sstr3d 3967	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ 𝐶) ∧ 𝑦 ∈ (𝐶 ∖ {𝑋})) → (𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
194	193	ralrimiva 3158	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∀𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
195		iunss 5008	. . . . . . . 8 ⊢ (∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)) ↔ ∀𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
196	194, 195	sylibr 237	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ 𝑦 ∈ (𝐶 ∖ {𝑋})(𝑆‘𝑦) ⊆ (𝑍‘(𝑆‘𝑋)))
197	181, 196	eqsstrrd 3948	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑍‘(𝑆‘𝑋)))
198	34	subgss 19387	. . . . . . . 8 ⊢ ((𝑆‘𝑋) ∈ (SubGrp‘𝐺) → (𝑆‘𝑋) ⊆ (Base‘𝐺))
199	144, 198	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (Base‘𝐺))
200	34, 17	cntzsubg 19604	. . . . . . 7 ⊢ ((𝐺 ∈ Grp ∧ (𝑆‘𝑋) ⊆ (Base‘𝐺)) → (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺))
201	57, 199, 200	syl2anc 596	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺))
202	83	mrcsscl 17844	. . . . . 6 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ (𝑆 “ (𝐶 ∖ {𝑋})) ⊆ (𝑍‘(𝑆‘𝑋)) ∧ (𝑍‘(𝑆‘𝑋)) ∈ (SubGrp‘𝐺)) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝑆‘𝑋)))
203	60, 197, 201, 202	syl3anc 1399	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋}))) ⊆ (𝑍‘(𝑆‘𝑋)))
204	17, 115, 144, 203	cntzrecd 19943	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → (𝑆‘𝑋) ⊆ (𝑍‘(𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))))
205	119, 144, 115, 118, 145, 170, 177, 17, 204	lsmdisj3 19948	. . 3 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ ((𝐾‘∪ (𝑆 “ (𝐶 ∖ {𝑋})))(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ 𝐷)))) = { 0 })
206	141, 205	sseqtrd 3949	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 })
207	54, 206	jca 521	1 ⊢ ((𝜑 ∧ 𝑋 ∈ 𝐶) → ((𝑌 ∈ 𝐼 → (𝑋 ≠ 𝑌 → (𝑆‘𝑋) ⊆ (𝑍‘(𝑆‘𝑌)))) ∧ ((𝑆‘𝑋) ∩ (𝐾‘∪ (𝑆 “ (𝐼 ∖ {𝑋})))) ⊆ { 0 }))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080   ⊆ wss 3900   ∖ cdif 4048   ∩ cin 4092   ∪ cun 4152  ∅c0 4281  𝒫 cpw 4560  {csn 4588  ∪ cuni 4872  ∪ ciun 4956   class class class wbr 5108  dom cdm 5658  ran crn 5659   ↾ cres 5660   “ cima 5661  Fun wfun 6560  ⟶wf 6562  ‘cfv 6566  (class class class)co 7451  Basecbs 17431  0_gc0g 17660  Moorecmre 17802  mrClscmrc 17803  ACScacs 17805  Grpcgrp 19194  SubGrpcsubg 19380  Cntzccntz 19580  LSSumclsm 19899   DProd cdprd 20260

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5238  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783  ax-cnex 11295  ax-resscn 11296  ax-1cn 11297  ax-icn 11298  ax-addcl 11299  ax-addrcl 11300  ax-mulcl 11301  ax-mulrcl 11302  ax-mulcom 11303  ax-addass 11304  ax-mulass 11305  ax-distr 11306  ax-i2m1 11307  ax-1ne0 11308  ax-1rid 11309  ax-rnegex 11310  ax-rrecex 11311  ax-cnre 11312  ax-pre-lttri 11313  ax-pre-lttrn 11314  ax-pre-ltadd 11315  ax-pre-mulgt0 11316

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-uni 4873  df-int 4913  df-iun 4958  df-iin 4959  df-br 5109  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-se 5612  df-we 5613  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-pred 6330  df-ord 6391  df-on 6392  df-lim 6393  df-suc 6394  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-isom 6575  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-of 7725  df-om 7912  df-1st 8035  df-2nd 8036  df-supp 8215  df-tpos 8281  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-1o 8514  df-2o 8515  df-er 8755  df-map 8887  df-ixp 8964  df-en 9012  df-dom 9013  df-sdom 9014  df-fin 9015  df-fsupp 9392  df-oi 9541  df-card 10057  df-pnf 11384  df-mnf 11385  df-xr 11386  df-ltxr 11387  df-le 11388  df-sub 11582  df-neg 11583  df-nn 12376  df-2 12445  df-n0 12647  df-z 12734  df-uz 13006  df-fz 13680  df-fzo 13829  df-seq 14185  df-hash 14516  df-sets 17386  df-slot 17404  df-ndx 17416  df-base 17432  df-ress 17453  df-plusg 17486  df-0g 17662  df-gsum 17663  df-mre 17806  df-mrc 17807  df-acs 17809  df-mgm 18866  df-sgrp 18958  df-mnd 18974  df-mhm 19028  df-submnd 19029  df-grp 19197  df-minusg 19198  df-sbg 19199  df-mulg 19328  df-subg 19383  df-ghm 19478  df-gim 19523  df-cntz 19582  df-oppg 19611  df-lsm 19901  df-cmn 20047  df-dprd 20262

This theorem is used by:  dmdprdsplit2  20313