Metamath Proof Explorer


Theorem dprddisj2

Description: The function S is a family of subgroups. (Contributed by Mario Carneiro, 26-Apr-2016) (Revised by AV, 14-Jul-2019)

Ref Expression
Hypotheses dprdcntz2.1 ( 𝜑𝐺 dom DProd 𝑆 )
dprdcntz2.2 ( 𝜑 → dom 𝑆 = 𝐼 )
dprdcntz2.c ( 𝜑𝐶𝐼 )
dprdcntz2.d ( 𝜑𝐷𝐼 )
dprdcntz2.i ( 𝜑 → ( 𝐶𝐷 ) = ∅ )
dprddisj2.0 0 = ( 0g𝐺 )
Assertion dprddisj2 ( 𝜑 → ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) = { 0 } )

Proof

Step Hyp Ref Expression
1 dprdcntz2.1 ( 𝜑𝐺 dom DProd 𝑆 )
2 dprdcntz2.2 ( 𝜑 → dom 𝑆 = 𝐼 )
3 dprdcntz2.c ( 𝜑𝐶𝐼 )
4 dprdcntz2.d ( 𝜑𝐷𝐼 )
5 dprdcntz2.i ( 𝜑 → ( 𝐶𝐷 ) = ∅ )
6 dprddisj2.0 0 = ( 0g𝐺 )
7 inss1 ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ⊆ ( 𝐺 DProd ( 𝑆𝐶 ) )
8 1 2 3 dprdres ( 𝜑 → ( 𝐺 dom DProd ( 𝑆𝐶 ) ∧ ( 𝐺 DProd ( 𝑆𝐶 ) ) ⊆ ( 𝐺 DProd 𝑆 ) ) )
9 8 simprd ( 𝜑 → ( 𝐺 DProd ( 𝑆𝐶 ) ) ⊆ ( 𝐺 DProd 𝑆 ) )
10 7 9 sstrid ( 𝜑 → ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ⊆ ( 𝐺 DProd 𝑆 ) )
11 10 sseld ( 𝜑 → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ ( 𝐺 DProd 𝑆 ) ) )
12 eqid { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } = { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 }
13 6 12 eldprd ( dom 𝑆 = 𝐼 → ( 𝑥 ∈ ( 𝐺 DProd 𝑆 ) ↔ ( 𝐺 dom DProd 𝑆 ∧ ∃ 𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } 𝑥 = ( 𝐺 Σg 𝑓 ) ) ) )
14 2 13 syl ( 𝜑 → ( 𝑥 ∈ ( 𝐺 DProd 𝑆 ) ↔ ( 𝐺 dom DProd 𝑆 ∧ ∃ 𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } 𝑥 = ( 𝐺 Σg 𝑓 ) ) ) )
15 1 ad2antrr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝐺 dom DProd 𝑆 )
16 2 ad2antrr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → dom 𝑆 = 𝐼 )
17 simplr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } )
18 eqid ( Base ‘ 𝐺 ) = ( Base ‘ 𝐺 )
19 12 15 16 17 18 dprdff ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝑓 : 𝐼 ⟶ ( Base ‘ 𝐺 ) )
20 19 feqmptd ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝑓 = ( 𝑥𝐼 ↦ ( 𝑓𝑥 ) ) )
21 5 difeq2d ( 𝜑 → ( 𝐼 ∖ ( 𝐶𝐷 ) ) = ( 𝐼 ∖ ∅ ) )
22 difindi ( 𝐼 ∖ ( 𝐶𝐷 ) ) = ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) )
23 dif0 ( 𝐼 ∖ ∅ ) = 𝐼
24 21 22 23 3eqtr3g ( 𝜑 → ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) = 𝐼 )
25 eqimss2 ( ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) = 𝐼𝐼 ⊆ ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) )
26 24 25 syl ( 𝜑𝐼 ⊆ ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) )
27 26 ad2antrr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝐼 ⊆ ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) )
28 27 sselda ( ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) ∧ 𝑥𝐼 ) → 𝑥 ∈ ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) )
29 elun ( 𝑥 ∈ ( ( 𝐼𝐶 ) ∪ ( 𝐼𝐷 ) ) ↔ ( 𝑥 ∈ ( 𝐼𝐶 ) ∨ 𝑥 ∈ ( 𝐼𝐷 ) ) )
30 28 29 sylib ( ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) ∧ 𝑥𝐼 ) → ( 𝑥 ∈ ( 𝐼𝐶 ) ∨ 𝑥 ∈ ( 𝐼𝐷 ) ) )
31 3 ad2antrr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝐶𝐼 )
32 simprl ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) )
33 6 12 15 16 31 17 32 dmdprdsplitlem ( ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) ∧ 𝑥 ∈ ( 𝐼𝐶 ) ) → ( 𝑓𝑥 ) = 0 )
34 4 ad2antrr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝐷𝐼 )
35 simprr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) )
36 6 12 15 16 34 17 35 dmdprdsplitlem ( ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) ∧ 𝑥 ∈ ( 𝐼𝐷 ) ) → ( 𝑓𝑥 ) = 0 )
37 33 36 jaodan ( ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) ∧ ( 𝑥 ∈ ( 𝐼𝐶 ) ∨ 𝑥 ∈ ( 𝐼𝐷 ) ) ) → ( 𝑓𝑥 ) = 0 )
38 30 37 syldan ( ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) ∧ 𝑥𝐼 ) → ( 𝑓𝑥 ) = 0 )
39 38 mpteq2dva ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → ( 𝑥𝐼 ↦ ( 𝑓𝑥 ) ) = ( 𝑥𝐼0 ) )
40 20 39 eqtrd ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → 𝑓 = ( 𝑥𝐼0 ) )
41 40 oveq2d ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → ( 𝐺 Σg 𝑓 ) = ( 𝐺 Σg ( 𝑥𝐼0 ) ) )
42 dprdgrp ( 𝐺 dom DProd 𝑆𝐺 ∈ Grp )
43 grpmnd ( 𝐺 ∈ Grp → 𝐺 ∈ Mnd )
44 1 42 43 3syl ( 𝜑𝐺 ∈ Mnd )
45 1 2 dprddomcld ( 𝜑𝐼 ∈ V )
46 6 gsumz ( ( 𝐺 ∈ Mnd ∧ 𝐼 ∈ V ) → ( 𝐺 Σg ( 𝑥𝐼0 ) ) = 0 )
47 44 45 46 syl2anc ( 𝜑 → ( 𝐺 Σg ( 𝑥𝐼0 ) ) = 0 )
48 47 ad2antrr ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → ( 𝐺 Σg ( 𝑥𝐼0 ) ) = 0 )
49 41 48 eqtrd ( ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) ∧ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) → ( 𝐺 Σg 𝑓 ) = 0 )
50 49 ex ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) → ( ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → ( 𝐺 Σg 𝑓 ) = 0 ) )
51 eleq1 ( 𝑥 = ( 𝐺 Σg 𝑓 ) → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ↔ ( 𝐺 Σg 𝑓 ) ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) )
52 elin ( ( 𝐺 Σg 𝑓 ) ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ↔ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) )
53 51 52 bitrdi ( 𝑥 = ( 𝐺 Σg 𝑓 ) → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ↔ ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ) )
54 velsn ( 𝑥 ∈ { 0 } ↔ 𝑥 = 0 )
55 eqeq1 ( 𝑥 = ( 𝐺 Σg 𝑓 ) → ( 𝑥 = 0 ↔ ( 𝐺 Σg 𝑓 ) = 0 ) )
56 54 55 syl5bb ( 𝑥 = ( 𝐺 Σg 𝑓 ) → ( 𝑥 ∈ { 0 } ↔ ( 𝐺 Σg 𝑓 ) = 0 ) )
57 53 56 imbi12d ( 𝑥 = ( 𝐺 Σg 𝑓 ) → ( ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ { 0 } ) ↔ ( ( ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) ∧ ( 𝐺 Σg 𝑓 ) ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → ( 𝐺 Σg 𝑓 ) = 0 ) ) )
58 50 57 syl5ibrcom ( ( 𝜑𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } ) → ( 𝑥 = ( 𝐺 Σg 𝑓 ) → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ { 0 } ) ) )
59 58 rexlimdva ( 𝜑 → ( ∃ 𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } 𝑥 = ( 𝐺 Σg 𝑓 ) → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ { 0 } ) ) )
60 59 adantld ( 𝜑 → ( ( 𝐺 dom DProd 𝑆 ∧ ∃ 𝑓 ∈ { X 𝑖𝐼 ( 𝑆𝑖 ) ∣ finSupp 0 } 𝑥 = ( 𝐺 Σg 𝑓 ) ) → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ { 0 } ) ) )
61 14 60 sylbid ( 𝜑 → ( 𝑥 ∈ ( 𝐺 DProd 𝑆 ) → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ { 0 } ) ) )
62 61 com23 ( 𝜑 → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → ( 𝑥 ∈ ( 𝐺 DProd 𝑆 ) → 𝑥 ∈ { 0 } ) ) )
63 11 62 mpdd ( 𝜑 → ( 𝑥 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) → 𝑥 ∈ { 0 } ) )
64 63 ssrdv ( 𝜑 → ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) ⊆ { 0 } )
65 8 simpld ( 𝜑𝐺 dom DProd ( 𝑆𝐶 ) )
66 dprdsubg ( 𝐺 dom DProd ( 𝑆𝐶 ) → ( 𝐺 DProd ( 𝑆𝐶 ) ) ∈ ( SubGrp ‘ 𝐺 ) )
67 6 subg0cl ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∈ ( SubGrp ‘ 𝐺 ) → 0 ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) )
68 65 66 67 3syl ( 𝜑0 ∈ ( 𝐺 DProd ( 𝑆𝐶 ) ) )
69 1 2 4 dprdres ( 𝜑 → ( 𝐺 dom DProd ( 𝑆𝐷 ) ∧ ( 𝐺 DProd ( 𝑆𝐷 ) ) ⊆ ( 𝐺 DProd 𝑆 ) ) )
70 69 simpld ( 𝜑𝐺 dom DProd ( 𝑆𝐷 ) )
71 dprdsubg ( 𝐺 dom DProd ( 𝑆𝐷 ) → ( 𝐺 DProd ( 𝑆𝐷 ) ) ∈ ( SubGrp ‘ 𝐺 ) )
72 6 subg0cl ( ( 𝐺 DProd ( 𝑆𝐷 ) ) ∈ ( SubGrp ‘ 𝐺 ) → 0 ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) )
73 70 71 72 3syl ( 𝜑0 ∈ ( 𝐺 DProd ( 𝑆𝐷 ) ) )
74 68 73 elind ( 𝜑0 ∈ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) )
75 74 snssd ( 𝜑 → { 0 } ⊆ ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) )
76 64 75 eqssd ( 𝜑 → ( ( 𝐺 DProd ( 𝑆𝐶 ) ) ∩ ( 𝐺 DProd ( 𝑆𝐷 ) ) ) = { 0 } )