dprdres - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > dprdres		Structured version Visualization version GIF version

Theorem dprdres 20100

Description: Restriction of a direct product (dropping factors). (Contributed by Mario Carneiro, 25-Apr-2016.)

**Hypotheses**
Ref	Expression
dprdres.1	⊢ (𝜑 → 𝐺dom DProd 𝑆)
dprdres.2	⊢ (𝜑 → dom 𝑆 = 𝐼)
dprdres.3	⊢ (𝜑 → 𝐴 ⊆ 𝐼)

**Assertion**
Ref	Expression
dprdres	⊢ (𝜑 → (𝐺dom DProd (𝑆 ↾ 𝐴) ∧ (𝐺 DProd (𝑆 ↾ 𝐴)) ⊆ (𝐺 DProd 𝑆)))

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

Step	Hyp	Ref	Expression
1		dprdres.1	. . . 4 ⊢ (𝜑 → 𝐺dom DProd 𝑆)
2		dprdgrp 20077	. . . 4 ⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)
3	1, 2	syl 18	. . 3 ⊢ (𝜑 → 𝐺 ∈ Grp)
4		dprdres.2	. . . . 5 ⊢ (𝜑 → dom 𝑆 = 𝐼)
5	1, 4	dprdf2 20079	. . . 4 ⊢ (𝜑 → 𝑆:𝐼⟶(SubGrp‘𝐺))
6		dprdres.3	. . . 4 ⊢ (𝜑 → 𝐴 ⊆ 𝐼)
7	5, 6	fssresd 6746	. . 3 ⊢ (𝜑 → (𝑆 ↾ 𝐴):𝐴⟶(SubGrp‘𝐺))
8	1	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝐺dom DProd 𝑆)
9	4	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → dom 𝑆 = 𝐼)
10	6	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝐴 ⊆ 𝐼)
11		simplr 780	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝑥 ∈ 𝐴)
12	10, 11	sseldd 3946	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝑥 ∈ 𝐼)
13		eldifi 4093	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐴 ∖ {𝑥}) → 𝑦 ∈ 𝐴)
14	13	adantl 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝑦 ∈ 𝐴)
15	10, 14	sseldd 3946	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝑦 ∈ 𝐼)
16		eldifsni 4762	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐴 ∖ {𝑥}) → 𝑦 ≠ 𝑥)
17	16	adantl 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝑦 ≠ 𝑥)
18	17	necomd 3019	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → 𝑥 ≠ 𝑦)
19		eqid 2769	. . . . . . . 8 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
20	8, 9, 12, 15, 18, 19	dprdcntz 20080	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → (𝑆‘𝑥) ⊆ ((Cntz‘𝐺)‘(𝑆‘𝑦)))
21	11	fvresd 6902	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → ((𝑆 ↾ 𝐴)‘𝑥) = (𝑆‘𝑥))
22	14	fvresd 6902	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → ((𝑆 ↾ 𝐴)‘𝑦) = (𝑆‘𝑦))
23	22	fveq2d 6886	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)) = ((Cntz‘𝐺)‘(𝑆‘𝑦)))
24	20, 21, 23	3sstr4d 4000	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ (𝐴 ∖ {𝑥})) → ((𝑆 ↾ 𝐴)‘𝑥) ⊆ ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)))
25	24	ralrimiva 3163	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑦 ∈ (𝐴 ∖ {𝑥})((𝑆 ↾ 𝐴)‘𝑥) ⊆ ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)))
26		fvres 6901	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐴 → ((𝑆 ↾ 𝐴)‘𝑥) = (𝑆‘𝑥))
27	26	adantl 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝑆 ↾ 𝐴)‘𝑥) = (𝑆‘𝑥))
28	27	ineq1d 4180	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (((𝑆 ↾ 𝐴)‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))))
29		eqid 2769	. . . . . . . . . . . . 13 ⊢ (Base‘𝐺) = (Base‘𝐺)
30	29	subgacs 19227	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)))
31		acsmre 17708	. . . . . . . . . . . 12 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
32	3, 30, 31	3syl 19	. . . . . . . . . . 11 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
33	32	adantr 485	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
34		eqid 2769	. . . . . . . . . 10 ⊢ (mrCls‘(SubGrp‘𝐺)) = (mrCls‘(SubGrp‘𝐺))
35		resss 6001	. . . . . . . . . . . . 13 ⊢ (𝑆 ↾ 𝐴) ⊆ 𝑆
36		imass1 6104	. . . . . . . . . . . . 13 ⊢ ((𝑆 ↾ 𝐴) ⊆ 𝑆 → ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})) ⊆ (𝑆 “ (𝐴 ∖ {𝑥})))
37	35, 36	ax-mp 5	. . . . . . . . . . . 12 ⊢ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})) ⊆ (𝑆 “ (𝐴 ∖ {𝑥}))
38	6	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐴 ⊆ 𝐼)
39		ssdif 4106	. . . . . . . . . . . . 13 ⊢ (𝐴 ⊆ 𝐼 → (𝐴 ∖ {𝑥}) ⊆ (𝐼 ∖ {𝑥}))
40		imass2 6105	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∖ {𝑥}) ⊆ (𝐼 ∖ {𝑥}) → (𝑆 “ (𝐴 ∖ {𝑥})) ⊆ (𝑆 “ (𝐼 ∖ {𝑥})))
41	38, 39, 40	3syl 19	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑆 “ (𝐴 ∖ {𝑥})) ⊆ (𝑆 “ (𝐼 ∖ {𝑥})))
42	37, 41	sstrid 3956	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})) ⊆ (𝑆 “ (𝐼 ∖ {𝑥})))
43	42	unissd 4886	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})) ⊆ ∪ (𝑆 “ (𝐼 ∖ {𝑥})))
44		imassrn 6074	. . . . . . . . . . . 12 ⊢ (𝑆 “ (𝐼 ∖ {𝑥})) ⊆ ran 𝑆
45	5	frnd 6715	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ran 𝑆 ⊆ (SubGrp‘𝐺))
46	29	subgss 19193	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (SubGrp‘𝐺) → 𝑥 ⊆ (Base‘𝐺))
47		velpw 4572	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ 𝒫 (Base‘𝐺) ↔ 𝑥 ⊆ (Base‘𝐺))
48	46, 47	sylibr 237	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (SubGrp‘𝐺) → 𝑥 ∈ 𝒫 (Base‘𝐺))
49	48	ssriv 3949	. . . . . . . . . . . . . 14 ⊢ (SubGrp‘𝐺) ⊆ 𝒫 (Base‘𝐺)
50	45, 49	sstrdi 3957	. . . . . . . . . . . . 13 ⊢ (𝜑 → ran 𝑆 ⊆ 𝒫 (Base‘𝐺))
51	50	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ran 𝑆 ⊆ 𝒫 (Base‘𝐺))
52	44, 51	sstrid 3956	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑆 “ (𝐼 ∖ {𝑥})) ⊆ 𝒫 (Base‘𝐺))
53		sspwuni 5070	. . . . . . . . . . 11 ⊢ ((𝑆 “ (𝐼 ∖ {𝑥})) ⊆ 𝒫 (Base‘𝐺) ↔ ∪ (𝑆 “ (𝐼 ∖ {𝑥})) ⊆ (Base‘𝐺))
54	52, 53	sylib 221	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∪ (𝑆 “ (𝐼 ∖ {𝑥})) ⊆ (Base‘𝐺))
55	33, 34, 43, 54	mrcssd 17680	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))) ⊆ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (𝐼 ∖ {𝑥}))))
56		sslin 4203	. . . . . . . . 9 ⊢ (((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))) ⊆ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (𝐼 ∖ {𝑥}))) → ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) ⊆ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (𝐼 ∖ {𝑥})))))
57	55, 56	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) ⊆ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (𝐼 ∖ {𝑥})))))
58	1	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺dom DProd 𝑆)
59	4	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → dom 𝑆 = 𝐼)
60	6	sselda 3945	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐼)
61		eqid 2769	. . . . . . . . 9 ⊢ (0_g‘𝐺) = (0_g‘𝐺)
62	58, 59, 60, 61, 34	dprddisj 20081	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ (𝑆 “ (𝐼 ∖ {𝑥})))) = {(0_g‘𝐺)})
63	57, 62	sseqtrd 3981	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) ⊆ {(0_g‘𝐺)})
64	5	ffvelcdmda 7080	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑆‘𝑥) ∈ (SubGrp‘𝐺))
65	60, 64	syldan 602	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑆‘𝑥) ∈ (SubGrp‘𝐺))
66	61	subg0cl 19200	. . . . . . . . . 10 ⊢ ((𝑆‘𝑥) ∈ (SubGrp‘𝐺) → (0_g‘𝐺) ∈ (𝑆‘𝑥))
67	65, 66	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (0_g‘𝐺) ∈ (𝑆‘𝑥))
68	43, 54	sstrd 3955	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})) ⊆ (Base‘𝐺))
69	34	mrccl 17667	. . . . . . . . . . 11 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ ∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})) ⊆ (Base‘𝐺)) → ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))) ∈ (SubGrp‘𝐺))
70	33, 68, 69	syl2anc 595	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))) ∈ (SubGrp‘𝐺))
71	61	subg0cl 19200	. . . . . . . . . 10 ⊢ (((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))) ∈ (SubGrp‘𝐺) → (0_g‘𝐺) ∈ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))))
72	70, 71	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (0_g‘𝐺) ∈ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥}))))
73	67, 72	elind 4161	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (0_g‘𝐺) ∈ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))))
74	73	snssd 4757	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → {(0_g‘𝐺)} ⊆ ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))))
75	63, 74	eqssd 3962	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝑆‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = {(0_g‘𝐺)})
76	28, 75	eqtrd 2804	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (((𝑆 ↾ 𝐴)‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = {(0_g‘𝐺)})
77	25, 76	jca 520	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (∀𝑦 ∈ (𝐴 ∖ {𝑥})((𝑆 ↾ 𝐴)‘𝑥) ⊆ ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)) ∧ (((𝑆 ↾ 𝐴)‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = {(0_g‘𝐺)}))
78	77	ralrimiva 3163	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 (∀𝑦 ∈ (𝐴 ∖ {𝑥})((𝑆 ↾ 𝐴)‘𝑥) ⊆ ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)) ∧ (((𝑆 ↾ 𝐴)‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = {(0_g‘𝐺)}))
79	1, 4	dprddomcld 20073	. . . . 5 ⊢ (𝜑 → 𝐼 ∈ V)
80	79, 6	ssexd 5295	. . . 4 ⊢ (𝜑 → 𝐴 ∈ V)
81	7	fdmd 6717	. . . 4 ⊢ (𝜑 → dom (𝑆 ↾ 𝐴) = 𝐴)
82	19, 61, 34	dmdprd 20070	. . . 4 ⊢ ((𝐴 ∈ V ∧ dom (𝑆 ↾ 𝐴) = 𝐴) → (𝐺dom DProd (𝑆 ↾ 𝐴) ↔ (𝐺 ∈ Grp ∧ (𝑆 ↾ 𝐴):𝐴⟶(SubGrp‘𝐺) ∧ ∀𝑥 ∈ 𝐴 (∀𝑦 ∈ (𝐴 ∖ {𝑥})((𝑆 ↾ 𝐴)‘𝑥) ⊆ ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)) ∧ (((𝑆 ↾ 𝐴)‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = {(0_g‘𝐺)}))))
83	80, 81, 82	syl2anc 595	. . 3 ⊢ (𝜑 → (𝐺dom DProd (𝑆 ↾ 𝐴) ↔ (𝐺 ∈ Grp ∧ (𝑆 ↾ 𝐴):𝐴⟶(SubGrp‘𝐺) ∧ ∀𝑥 ∈ 𝐴 (∀𝑦 ∈ (𝐴 ∖ {𝑥})((𝑆 ↾ 𝐴)‘𝑥) ⊆ ((Cntz‘𝐺)‘((𝑆 ↾ 𝐴)‘𝑦)) ∧ (((𝑆 ↾ 𝐴)‘𝑥) ∩ ((mrCls‘(SubGrp‘𝐺))‘∪ ((𝑆 ↾ 𝐴) “ (𝐴 ∖ {𝑥})))) = {(0_g‘𝐺)}))))
84	3, 7, 78, 83	mpbir3and 1359	. 2 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐴))
85		rnss 5930	. . . . . 6 ⊢ ((𝑆 ↾ 𝐴) ⊆ 𝑆 → ran (𝑆 ↾ 𝐴) ⊆ ran 𝑆)
86		uniss 4884	. . . . . 6 ⊢ (ran (𝑆 ↾ 𝐴) ⊆ ran 𝑆 → ∪ ran (𝑆 ↾ 𝐴) ⊆ ∪ ran 𝑆)
87	35, 85, 86	mp2b 10	. . . . 5 ⊢ ∪ ran (𝑆 ↾ 𝐴) ⊆ ∪ ran 𝑆
88	87	a1i 11	. . . 4 ⊢ (𝜑 → ∪ ran (𝑆 ↾ 𝐴) ⊆ ∪ ran 𝑆)
89		sspwuni 5070	. . . . 5 ⊢ (ran 𝑆 ⊆ 𝒫 (Base‘𝐺) ↔ ∪ ran 𝑆 ⊆ (Base‘𝐺))
90	50, 89	sylib 221	. . . 4 ⊢ (𝜑 → ∪ ran 𝑆 ⊆ (Base‘𝐺))
91	32, 34, 88, 90	mrcssd 17680	. . 3 ⊢ (𝜑 → ((mrCls‘(SubGrp‘𝐺))‘∪ ran (𝑆 ↾ 𝐴)) ⊆ ((mrCls‘(SubGrp‘𝐺))‘∪ ran 𝑆))
92	34	dprdspan 20099	. . . 4 ⊢ (𝐺dom DProd (𝑆 ↾ 𝐴) → (𝐺 DProd (𝑆 ↾ 𝐴)) = ((mrCls‘(SubGrp‘𝐺))‘∪ ran (𝑆 ↾ 𝐴)))
93	84, 92	syl 18	. . 3 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐴)) = ((mrCls‘(SubGrp‘𝐺))‘∪ ran (𝑆 ↾ 𝐴)))
94	34	dprdspan 20099	. . . 4 ⊢ (𝐺dom DProd 𝑆 → (𝐺 DProd 𝑆) = ((mrCls‘(SubGrp‘𝐺))‘∪ ran 𝑆))
95	1, 94	syl 18	. . 3 ⊢ (𝜑 → (𝐺 DProd 𝑆) = ((mrCls‘(SubGrp‘𝐺))‘∪ ran 𝑆))
96	91, 93, 95	3sstr4d 4000	. 2 ⊢ (𝜑 → (𝐺 DProd (𝑆 ↾ 𝐴)) ⊆ (𝐺 DProd 𝑆))
97	84, 96	jca 520	1 ⊢ (𝜑 → (𝐺dom DProd (𝑆 ↾ 𝐴) ∧ (𝐺 DProd (𝑆 ↾ 𝐴)) ⊆ (𝐺 DProd 𝑆)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 400 ∧ w3a 1101 = wceq 1567 ∈ wcel 2149 ≠ wne 2964 ∀wral 3085 Vcvv 3463 ∖ cdif 3910 ∩ cin 3912 ⊆ wss 3913 𝒫 cpw 4567 {csn 4594 ∪ cuni 4876 class class class wbr 5113 dom cdm 5662 ran crn 5663 ↾ cres 5664 “ cima 5665 ⟶wf 6533 ‘cfv 6537 (class class class)co 7411 Basecbs 17269 0_gc0g 17492 Moorecmre 17634 mrClscmrc 17635 ACScacs 17637 Grpcgrp 19000 SubGrpcsubg 19186 Cntzccntz 19385 DProd cdprd 20065

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

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-op 4601 df-uni 4877 df-int 4917 df-iun 4962 df-iin 4963 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-se 5616 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-isom 6546 df-riota 7368 df-ov 7414 df-oprab 7415 df-mpo 7416 df-of 7675 df-om 7863 df-1st 7986 df-2nd 7987 df-supp 8157 df-tpos 8222 df-frecs 8278 df-wrecs 8309 df-recs 8358 df-rdg 8397 df-1o 8453 df-2o 8454 df-er 8694 df-map 8826 df-ixp 8896 df-en 8944 df-dom 8945 df-sdom 8946 df-fin 8947 df-fsupp 9322 df-oi 9472 df-card 9925 df-pnf 11245 df-mnf 11246 df-xr 11247 df-ltxr 11248 df-le 11249 df-sub 11443 df-neg 11444 df-nn 12234 df-2 12303 df-n0 12505 df-z 12592 df-uz 12863 df-fz 13536 df-fzo 13683 df-seq 14038 df-hash 14367 df-sets 17224 df-slot 17242 df-ndx 17254 df-base 17270 df-ress 17291 df-plusg 17323 df-0g 17494 df-gsum 17495 df-mre 17638 df-mrc 17639 df-acs 17641 df-mgm 18698 df-sgrp 18777 df-mnd 18793 df-mhm 18841 df-submnd 18842 df-grp 19003 df-minusg 19004 df-sbg 19005 df-mulg 19134 df-subg 19189 df-ghm 19284 df-gim 19329 df-cntz 19387 df-oppg 19416 df-cmn 19852 df-dprd 20067

This theorem is referenced by: dprdf1 20105 dprdcntz2 20110 dprddisj2 20111 dprd2dlem1 20113 dprd2da 20114 dmdprdsplit 20119 dprdsplit 20120 dpjf 20129 dpjidcl 20130 dpjlid 20133 dpjghm 20135 ablfac1eulem 20144 ablfac1eu 20145

W3C validator