Theorem mplsubglem 22339

Description: If 𝐴 is an ideal of sets (a nonempty collection closed under subset and binary union) of the set 𝐷 of finite bags (the primary applications being 𝐴 = Fin and 𝐴 = 𝒫 𝐵 for some 𝐵), then the set of all power series whose coefficient functions are supported on an element of 𝐴 is a subgroup of the set of all power series. (Contributed by Mario Carneiro, 12-Jan-2015.) (Revised by AV, 16-Jul-2019.)

Hypotheses

Ref	Expression
mplsubglem.s	⊢ 𝑆 = (𝐼 mPwSer 𝑅)
mplsubglem.b	⊢ 𝐵 = (Base‘𝑆)
mplsubglem.z	⊢ 0 = (0g‘𝑅)
mplsubglem.d	⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
mplsubglem.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
mplsubglem.0	⊢ (𝜑 → ∅ ∈ 𝐴)
mplsubglem.a	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥 ∪ 𝑦) ∈ 𝐴)
mplsubglem.y	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ⊆ 𝑥)) → 𝑦 ∈ 𝐴)
mplsubglem.u	⊢ (𝜑 → 𝑈 = {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴})
mplsubglem.r	⊢ (𝜑 → 𝑅 ∈ Grp)

Assertion

Ref	Expression
mplsubglem	⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝑆))

Distinct variable groups:   𝑓,𝑔,𝑥,𝑦, 0   𝐴,𝑓,𝑔,𝑥,𝑦   𝐵,𝑓,𝑔   𝐷,𝑔   𝑓,𝐼   𝜑,𝑥,𝑦   𝑆,𝑓,𝑔,𝑦

Allowed substitution hints:   𝜑(𝑓, 𝑔)   𝐵(𝑥, 𝑦)   𝐷(𝑥, 𝑦, 𝑓)   𝑅(𝑥, 𝑦, 𝑓, 𝑔)   𝑆(𝑥)   𝑈(𝑥, 𝑦, 𝑓, 𝑔)   𝐼(𝑥, 𝑦, 𝑔)   𝑊(𝑥, 𝑦, 𝑓, 𝑔)

Proof of Theorem mplsubglem

Dummy variables 𝑘 𝑢 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mplsubglem.u	. . 3 ⊢ (𝜑 → 𝑈 = {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴})
2		ssrab2 4008	. . 3 ⊢ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴} ⊆ 𝐵
3	1, 2	eqsstrdi 3957	. 2 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
4		mplsubglem.s	. . . . 5 ⊢ 𝑆 = (𝐼 mPwSer 𝑅)
5		mplsubglem.i	. . . . 5 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
6		mplsubglem.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Grp)
7		mplsubglem.d	. . . . 5 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
8		mplsubglem.z	. . . . 5 ⊢ 0 = (0g‘𝑅)
9		mplsubglem.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑆)
10	4, 5, 6, 7, 8, 9	psr0cl 22293	. . . 4 ⊢ (𝜑 → (𝐷 × { 0 }) ∈ 𝐵)
11		eqid 2763	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
12	11, 8	grpidcl 19208	. . . . . . . 8 ⊢ (𝑅 ∈ Grp → 0 ∈ (Base‘𝑅))
13		fconst6g 6796	. . . . . . . 8 ⊢ ( 0 ∈ (Base‘𝑅) → (𝐷 × { 0 }):𝐷⟶(Base‘𝑅))
14	6, 12, 13	3syl 19	. . . . . . 7 ⊢ (𝜑 → (𝐷 × { 0 }):𝐷⟶(Base‘𝑅))
15		eldifi 4070	. . . . . . . . 9 ⊢ (𝑢 ∈ (𝐷 ∖ ∅) → 𝑢 ∈ 𝐷)
16	8	fvexi 6925	. . . . . . . . . 10 ⊢ 0 ∈ V
17	16	fvconst2 7236	. . . . . . . . 9 ⊢ (𝑢 ∈ 𝐷 → ((𝐷 × { 0 })‘𝑢) = 0 )
18	15, 17	syl 18	. . . . . . . 8 ⊢ (𝑢 ∈ (𝐷 ∖ ∅) → ((𝐷 × { 0 })‘𝑢) = 0 )
19	18	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐷 ∖ ∅)) → ((𝐷 × { 0 })‘𝑢) = 0 )
20	14, 19	suppss 8242	. . . . . 6 ⊢ (𝜑 → ((𝐷 × { 0 }) supp 0 ) ⊆ ∅)
21		ss0 4355	. . . . . 6 ⊢ (((𝐷 × { 0 }) supp 0 ) ⊆ ∅ → ((𝐷 × { 0 }) supp 0 ) = ∅)
22	20, 21	syl 18	. . . . 5 ⊢ (𝜑 → ((𝐷 × { 0 }) supp 0 ) = ∅)
23		mplsubglem.0	. . . . 5 ⊢ (𝜑 → ∅ ∈ 𝐴)
24	22, 23	eqeltrd 2864	. . . 4 ⊢ (𝜑 → ((𝐷 × { 0 }) supp 0 ) ∈ 𝐴)
25	1	eleq2d 2850	. . . . 5 ⊢ (𝜑 → ((𝐷 × { 0 }) ∈ 𝑈 ↔ (𝐷 × { 0 }) ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴}))
26		oveq1 7453	. . . . . . 7 ⊢ (𝑔 = (𝐷 × { 0 }) → (𝑔 supp 0 ) = ((𝐷 × { 0 }) supp 0 ))
27	26	eleq1d 2849	. . . . . 6 ⊢ (𝑔 = (𝐷 × { 0 }) → ((𝑔 supp 0 ) ∈ 𝐴 ↔ ((𝐷 × { 0 }) supp 0 ) ∈ 𝐴))
28	27	elrab 3648	. . . . 5 ⊢ ((𝐷 × { 0 }) ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴} ↔ ((𝐷 × { 0 }) ∈ 𝐵 ∧ ((𝐷 × { 0 }) supp 0 ) ∈ 𝐴))
29	25, 28	bitrdi 290	. . . 4 ⊢ (𝜑 → ((𝐷 × { 0 }) ∈ 𝑈 ↔ ((𝐷 × { 0 }) ∈ 𝐵 ∧ ((𝐷 × { 0 }) supp 0 ) ∈ 𝐴)))
30	10, 24, 29	mpbir2and 726	. . 3 ⊢ (𝜑 → (𝐷 × { 0 }) ∈ 𝑈)
31	30	ne0d 4291	. 2 ⊢ (𝜑 → 𝑈 ≠ ∅)
32		eqid 2763	. . . . . . 7 ⊢ (+g‘𝑆) = (+g‘𝑆)
33	6	grpmgmd 19204	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Mgm)
34	33	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑅 ∈ Mgm)
35	1	eleq2d 2850	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑢 ∈ 𝑈 ↔ 𝑢 ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴}))
36		oveq1 7453	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝑢 → (𝑔 supp 0 ) = (𝑢 supp 0 ))
37	36	eleq1d 2849	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝑢 → ((𝑔 supp 0 ) ∈ 𝐴 ↔ (𝑢 supp 0 ) ∈ 𝐴))
38	37	elrab 3648	. . . . . . . . . . 11 ⊢ (𝑢 ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴} ↔ (𝑢 ∈ 𝐵 ∧ (𝑢 supp 0 ) ∈ 𝐴))
39	35, 38	bitrdi 290	. . . . . . . . . 10 ⊢ (𝜑 → (𝑢 ∈ 𝑈 ↔ (𝑢 ∈ 𝐵 ∧ (𝑢 supp 0 ) ∈ 𝐴)))
40	39	biimpa 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (𝑢 ∈ 𝐵 ∧ (𝑢 supp 0 ) ∈ 𝐴))
41	40	simpld 500	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 𝑢 ∈ 𝐵)
42	41	adantr 486	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑢 ∈ 𝐵)
43	1	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 𝑈 = {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴})
44	43	eleq2d 2850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (𝑣 ∈ 𝑈 ↔ 𝑣 ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴}))
45		oveq1 7453	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝑣 → (𝑔 supp 0 ) = (𝑣 supp 0 ))
46	45	eleq1d 2849	. . . . . . . . . . 11 ⊢ (𝑔 = 𝑣 → ((𝑔 supp 0 ) ∈ 𝐴 ↔ (𝑣 supp 0 ) ∈ 𝐴))
47	46	elrab 3648	. . . . . . . . . 10 ⊢ (𝑣 ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴} ↔ (𝑣 ∈ 𝐵 ∧ (𝑣 supp 0 ) ∈ 𝐴))
48	44, 47	bitrdi 290	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (𝑣 ∈ 𝑈 ↔ (𝑣 ∈ 𝐵 ∧ (𝑣 supp 0 ) ∈ 𝐴)))
49	48	biimpa 482	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑣 ∈ 𝐵 ∧ (𝑣 supp 0 ) ∈ 𝐴))
50	49	simpld 500	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑣 ∈ 𝐵)
51	4, 9, 32, 34, 42, 50	psraddcl 22280	. . . . . 6 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑢(+g‘𝑆)𝑣) ∈ 𝐵)
52		ovexd 7481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ V)
53		sseq2 3939	. . . . . . . . . 10 ⊢ (𝑥 = ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → (𝑦 ⊆ 𝑥 ↔ 𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))))
54	53	imbi1d 344	. . . . . . . . 9 ⊢ (𝑥 = ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → ((𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴) ↔ (𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → 𝑦 ∈ 𝐴)))
55	54	albidv 1955	. . . . . . . 8 ⊢ (𝑥 = ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → (∀𝑦(𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴) ↔ ∀𝑦(𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → 𝑦 ∈ 𝐴)))
56		mplsubglem.y	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ⊆ 𝑥)) → 𝑦 ∈ 𝐴)
57	56	expr 462	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴))
58	57	alrimiv 1962	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑦(𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴))
59	58	ralrimiva 3158	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦(𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴))
60	59	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 ∀𝑦(𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴))
61	40	simprd 501	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (𝑢 supp 0 ) ∈ 𝐴)
62	61	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑢 supp 0 ) ∈ 𝐴)
63	49	simprd 501	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑣 supp 0 ) ∈ 𝐴)
64		mplsubglem.a	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥 ∪ 𝑦) ∈ 𝐴)
65	64	ralrimivva 3209	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ∪ 𝑦) ∈ 𝐴)
66	65	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ∪ 𝑦) ∈ 𝐴)
67		uneq1 4163	. . . . . . . . . . 11 ⊢ (𝑥 = (𝑢 supp 0 ) → (𝑥 ∪ 𝑦) = ((𝑢 supp 0 ) ∪ 𝑦))
68	67	eleq1d 2849	. . . . . . . . . 10 ⊢ (𝑥 = (𝑢 supp 0 ) → ((𝑥 ∪ 𝑦) ∈ 𝐴 ↔ ((𝑢 supp 0 ) ∪ 𝑦) ∈ 𝐴))
69		uneq2 4164	. . . . . . . . . . 11 ⊢ (𝑦 = (𝑣 supp 0 ) → ((𝑢 supp 0 ) ∪ 𝑦) = ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))
70	69	eleq1d 2849	. . . . . . . . . 10 ⊢ (𝑦 = (𝑣 supp 0 ) → (((𝑢 supp 0 ) ∪ 𝑦) ∈ 𝐴 ↔ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) ∈ 𝐴))
71	68, 70	rspc2va 3591	. . . . . . . . 9 ⊢ ((((𝑢 supp 0 ) ∈ 𝐴 ∧ (𝑣 supp 0 ) ∈ 𝐴) ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ∪ 𝑦) ∈ 𝐴) → ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) ∈ 𝐴)
72	62, 63, 66, 71	syl21anc 851	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) ∈ 𝐴)
73	55, 60, 72	rspcdva 3581	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ∀𝑦(𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → 𝑦 ∈ 𝐴))
74	4, 11, 7, 9, 51	psrelbas 22276	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑢(+g‘𝑆)𝑣):𝐷⟶(Base‘𝑅))
75		eqid 2763	. . . . . . . . . . . 12 ⊢ (+g‘𝑅) = (+g‘𝑅)
76	4, 9, 75, 32, 42, 50	psradd 22279	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑢(+g‘𝑆)𝑣) = (𝑢 ∘f (+g‘𝑅)𝑣))
77	76	fveq1d 6913	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢(+g‘𝑆)𝑣)‘𝑘) = ((𝑢 ∘f (+g‘𝑅)𝑣)‘𝑘))
78	77	adantr 486	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → ((𝑢(+g‘𝑆)𝑣)‘𝑘) = ((𝑢 ∘f (+g‘𝑅)𝑣)‘𝑘))
79		eldifi 4070	. . . . . . . . . 10 ⊢ (𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) → 𝑘 ∈ 𝐷)
80	4, 11, 7, 9, 41	psrelbas 22276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 𝑢:𝐷⟶(Base‘𝑅))
81	80	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑢:𝐷⟶(Base‘𝑅))
82	81	ffnd 6735	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑢 Fn 𝐷)
83	4, 11, 7, 9, 50	psrelbas 22276	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑣:𝐷⟶(Base‘𝑅))
84	83	ffnd 6735	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑣 Fn 𝐷)
85		ovex 7479	. . . . . . . . . . . . 13 ⊢ (ℕ0 ↑m 𝐼) ∈ V
86	7, 85	rabex2 5307	. . . . . . . . . . . 12 ⊢ 𝐷 ∈ V
87	86	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝐷 ∈ V)
88		inidm 4126	. . . . . . . . . . 11 ⊢ (𝐷 ∩ 𝐷) = 𝐷
89		eqidd 2764	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ 𝐷) → (𝑢‘𝑘) = (𝑢‘𝑘))
90		eqidd 2764	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ 𝐷) → (𝑣‘𝑘) = (𝑣‘𝑘))
91	82, 84, 87, 87, 88, 89, 90	ofval 7731	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ 𝐷) → ((𝑢 ∘f (+g‘𝑅)𝑣)‘𝑘) = ((𝑢‘𝑘)(+g‘𝑅)(𝑣‘𝑘)))
92	79, 91	sylan2 605	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → ((𝑢 ∘f (+g‘𝑅)𝑣)‘𝑘) = ((𝑢‘𝑘)(+g‘𝑅)(𝑣‘𝑘)))
93		ssun1 4179	. . . . . . . . . . . . . 14 ⊢ (𝑢 supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))
94		sscon 4082	. . . . . . . . . . . . . 14 ⊢ ((𝑢 supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) ⊆ (𝐷 ∖ (𝑢 supp 0 )))
95	93, 94	ax-mp 5	. . . . . . . . . . . . 13 ⊢ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) ⊆ (𝐷 ∖ (𝑢 supp 0 ))
96	95	sseli 3909	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) → 𝑘 ∈ (𝐷 ∖ (𝑢 supp 0 )))
97		ssidd 3936	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (𝑢 supp 0 ) ⊆ (𝑢 supp 0 ))
98	86	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 𝐷 ∈ V)
99	16	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 0 ∈ V)
100	80, 97, 98, 99	suppssr 8243	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ (𝑢 supp 0 ))) → (𝑢‘𝑘) = 0 )
101	100	adantlr 728	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ (𝑢 supp 0 ))) → (𝑢‘𝑘) = 0 )
102	96, 101	sylan2 605	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → (𝑢‘𝑘) = 0 )
103		ssun2 4180	. . . . . . . . . . . . . 14 ⊢ (𝑣 supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))
104		sscon 4082	. . . . . . . . . . . . . 14 ⊢ ((𝑣 supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) ⊆ (𝐷 ∖ (𝑣 supp 0 )))
105	103, 104	ax-mp 5	. . . . . . . . . . . . 13 ⊢ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) ⊆ (𝐷 ∖ (𝑣 supp 0 ))
106	105	sseli 3909	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))) → 𝑘 ∈ (𝐷 ∖ (𝑣 supp 0 )))
107		ssidd 3936	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑣 supp 0 ) ⊆ (𝑣 supp 0 ))
108	16	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 0 ∈ V)
109	83, 107, 87, 108	suppssr 8243	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ (𝑣 supp 0 ))) → (𝑣‘𝑘) = 0 )
110	106, 109	sylan2 605	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → (𝑣‘𝑘) = 0 )
111	102, 110	oveq12d 7464	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → ((𝑢‘𝑘)(+g‘𝑅)(𝑣‘𝑘)) = ( 0 (+g‘𝑅) 0 ))
112	6	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑅 ∈ Grp)
113	11, 75, 8	grplid 19210	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Grp ∧ 0 ∈ (Base‘𝑅)) → ( 0 (+g‘𝑅) 0 ) = 0 )
114	112, 12, 113	syl2anc2 597	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ( 0 (+g‘𝑅) 0 ) = 0 )
115	114	adantr 486	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → ( 0 (+g‘𝑅) 0 ) = 0 )
116	111, 115	eqtrd 2798	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → ((𝑢‘𝑘)(+g‘𝑅)(𝑣‘𝑘)) = 0 )
117	78, 92, 116	3eqtrd 2802	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) ∧ 𝑘 ∈ (𝐷 ∖ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))) → ((𝑢(+g‘𝑆)𝑣)‘𝑘) = 0 )
118	74, 117	suppss 8242	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢(+g‘𝑆)𝑣) supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )))
119		sseq1 3938	. . . . . . . . 9 ⊢ (𝑦 = ((𝑢(+g‘𝑆)𝑣) supp 0 ) → (𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) ↔ ((𝑢(+g‘𝑆)𝑣) supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 ))))
120		eleq1 2852	. . . . . . . . 9 ⊢ (𝑦 = ((𝑢(+g‘𝑆)𝑣) supp 0 ) → (𝑦 ∈ 𝐴 ↔ ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴))
121	119, 120	imbi12d 347	. . . . . . . 8 ⊢ (𝑦 = ((𝑢(+g‘𝑆)𝑣) supp 0 ) → ((𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → 𝑦 ∈ 𝐴) ↔ (((𝑢(+g‘𝑆)𝑣) supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴)))
122	121	spcgv 3554	. . . . . . 7 ⊢ (((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ V → (∀𝑦(𝑦 ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → 𝑦 ∈ 𝐴) → (((𝑢(+g‘𝑆)𝑣) supp 0 ) ⊆ ((𝑢 supp 0 ) ∪ (𝑣 supp 0 )) → ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴)))
123	52, 73, 118, 122	syl3c 67	. . . . . 6 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴)
124	1	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → 𝑈 = {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴})
125	124	eleq2d 2850	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢(+g‘𝑆)𝑣) ∈ 𝑈 ↔ (𝑢(+g‘𝑆)𝑣) ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴}))
126		oveq1 7453	. . . . . . . . 9 ⊢ (𝑔 = (𝑢(+g‘𝑆)𝑣) → (𝑔 supp 0 ) = ((𝑢(+g‘𝑆)𝑣) supp 0 ))
127	126	eleq1d 2849	. . . . . . . 8 ⊢ (𝑔 = (𝑢(+g‘𝑆)𝑣) → ((𝑔 supp 0 ) ∈ 𝐴 ↔ ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴))
128	127	elrab 3648	. . . . . . 7 ⊢ ((𝑢(+g‘𝑆)𝑣) ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴} ↔ ((𝑢(+g‘𝑆)𝑣) ∈ 𝐵 ∧ ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴))
129	125, 128	bitrdi 290	. . . . . 6 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → ((𝑢(+g‘𝑆)𝑣) ∈ 𝑈 ↔ ((𝑢(+g‘𝑆)𝑣) ∈ 𝐵 ∧ ((𝑢(+g‘𝑆)𝑣) supp 0 ) ∈ 𝐴)))
130	51, 123, 129	mpbir2and 726	. . . . 5 ⊢ (((𝜑 ∧ 𝑢 ∈ 𝑈) ∧ 𝑣 ∈ 𝑈) → (𝑢(+g‘𝑆)𝑣) ∈ 𝑈)
131	130	ralrimiva 3158	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ∀𝑣 ∈ 𝑈 (𝑢(+g‘𝑆)𝑣) ∈ 𝑈)
132	4, 5, 6	psrgrp 22297	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ Grp)
133		eqid 2763	. . . . . . 7 ⊢ (invg‘𝑆) = (invg‘𝑆)
134	9, 133	grpinvcl 19230	. . . . . 6 ⊢ ((𝑆 ∈ Grp ∧ 𝑢 ∈ 𝐵) → ((invg‘𝑆)‘𝑢) ∈ 𝐵)
135	132, 41, 134	syl2an2r 698	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ((invg‘𝑆)‘𝑢) ∈ 𝐵)
136		ovexd 7481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑆)‘𝑢) supp 0 ) ∈ V)
137		sseq2 3939	. . . . . . . . 9 ⊢ (𝑥 = (𝑢 supp 0 ) → (𝑦 ⊆ 𝑥 ↔ 𝑦 ⊆ (𝑢 supp 0 )))
138	137	imbi1d 344	. . . . . . . 8 ⊢ (𝑥 = (𝑢 supp 0 ) → ((𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴) ↔ (𝑦 ⊆ (𝑢 supp 0 ) → 𝑦 ∈ 𝐴)))
139	138	albidv 1955	. . . . . . 7 ⊢ (𝑥 = (𝑢 supp 0 ) → (∀𝑦(𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴) ↔ ∀𝑦(𝑦 ⊆ (𝑢 supp 0 ) → 𝑦 ∈ 𝐴)))
140	59	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 ∀𝑦(𝑦 ⊆ 𝑥 → 𝑦 ∈ 𝐴))
141	139, 140, 61	rspcdva 3581	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ∀𝑦(𝑦 ⊆ (𝑢 supp 0 ) → 𝑦 ∈ 𝐴))
142	5	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 𝐼 ∈ 𝑊)
143	6	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → 𝑅 ∈ Grp)
144		eqid 2763	. . . . . . . . 9 ⊢ (invg‘𝑅) = (invg‘𝑅)
145	4, 142, 143, 7, 144, 9, 133, 41	psrneg 22299	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ((invg‘𝑆)‘𝑢) = ((invg‘𝑅) ∘ 𝑢))
146	145	oveq1d 7461	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑆)‘𝑢) supp 0 ) = (((invg‘𝑅) ∘ 𝑢) supp 0 ))
147	11, 144	grpinvfn 19224	. . . . . . . . 9 ⊢ (invg‘𝑅) Fn (Base‘𝑅)
148	147	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (invg‘𝑅) Fn (Base‘𝑅))
149	8, 144	grpinvid 19242	. . . . . . . . 9 ⊢ (𝑅 ∈ Grp → ((invg‘𝑅)‘ 0 ) = 0 )
150	143, 149	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ((invg‘𝑅)‘ 0 ) = 0 )
151	148, 80, 98, 99, 150	suppcoss 8255	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑅) ∘ 𝑢) supp 0 ) ⊆ (𝑢 supp 0 ))
152	146, 151	eqsstrd 3947	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑆)‘𝑢) supp 0 ) ⊆ (𝑢 supp 0 ))
153		sseq1 3938	. . . . . . . 8 ⊢ (𝑦 = (((invg‘𝑆)‘𝑢) supp 0 ) → (𝑦 ⊆ (𝑢 supp 0 ) ↔ (((invg‘𝑆)‘𝑢) supp 0 ) ⊆ (𝑢 supp 0 )))
154		eleq1 2852	. . . . . . . 8 ⊢ (𝑦 = (((invg‘𝑆)‘𝑢) supp 0 ) → (𝑦 ∈ 𝐴 ↔ (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴))
155	153, 154	imbi12d 347	. . . . . . 7 ⊢ (𝑦 = (((invg‘𝑆)‘𝑢) supp 0 ) → ((𝑦 ⊆ (𝑢 supp 0 ) → 𝑦 ∈ 𝐴) ↔ ((((invg‘𝑆)‘𝑢) supp 0 ) ⊆ (𝑢 supp 0 ) → (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴)))
156	155	spcgv 3554	. . . . . 6 ⊢ ((((invg‘𝑆)‘𝑢) supp 0 ) ∈ V → (∀𝑦(𝑦 ⊆ (𝑢 supp 0 ) → 𝑦 ∈ 𝐴) → ((((invg‘𝑆)‘𝑢) supp 0 ) ⊆ (𝑢 supp 0 ) → (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴)))
157	136, 141, 152, 156	syl3c 67	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴)
158	43	eleq2d 2850	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑆)‘𝑢) ∈ 𝑈 ↔ ((invg‘𝑆)‘𝑢) ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴}))
159		oveq1 7453	. . . . . . . 8 ⊢ (𝑔 = ((invg‘𝑆)‘𝑢) → (𝑔 supp 0 ) = (((invg‘𝑆)‘𝑢) supp 0 ))
160	159	eleq1d 2849	. . . . . . 7 ⊢ (𝑔 = ((invg‘𝑆)‘𝑢) → ((𝑔 supp 0 ) ∈ 𝐴 ↔ (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴))
161	160	elrab 3648	. . . . . 6 ⊢ (((invg‘𝑆)‘𝑢) ∈ {𝑔 ∈ 𝐵 ∣ (𝑔 supp 0 ) ∈ 𝐴} ↔ (((invg‘𝑆)‘𝑢) ∈ 𝐵 ∧ (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴))
162	158, 161	bitrdi 290	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (((invg‘𝑆)‘𝑢) ∈ 𝑈 ↔ (((invg‘𝑆)‘𝑢) ∈ 𝐵 ∧ (((invg‘𝑆)‘𝑢) supp 0 ) ∈ 𝐴)))
163	135, 157, 162	mpbir2and 726	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → ((invg‘𝑆)‘𝑢) ∈ 𝑈)
164	131, 163	jca 521	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ 𝑈) → (∀𝑣 ∈ 𝑈 (𝑢(+g‘𝑆)𝑣) ∈ 𝑈 ∧ ((invg‘𝑆)‘𝑢) ∈ 𝑈))
165	164	ralrimiva 3158	. 2 ⊢ (𝜑 → ∀𝑢 ∈ 𝑈 (∀𝑣 ∈ 𝑈 (𝑢(+g‘𝑆)𝑣) ∈ 𝑈 ∧ ((invg‘𝑆)‘𝑢) ∈ 𝑈))
166	9, 32, 133	issubg2 19384	. . 3 ⊢ (𝑆 ∈ Grp → (𝑈 ∈ (SubGrp‘𝑆) ↔ (𝑈 ⊆ 𝐵 ∧ 𝑈 ≠ ∅ ∧ ∀𝑢 ∈ 𝑈 (∀𝑣 ∈ 𝑈 (𝑢(+g‘𝑆)𝑣) ∈ 𝑈 ∧ ((invg‘𝑆)‘𝑢) ∈ 𝑈))))
167	132, 166	syl 18	. 2 ⊢ (𝜑 → (𝑈 ∈ (SubGrp‘𝑆) ↔ (𝑈 ⊆ 𝐵 ∧ 𝑈 ≠ ∅ ∧ ∀𝑢 ∈ 𝑈 (∀𝑣 ∈ 𝑈 (𝑢(+g‘𝑆)𝑣) ∈ 𝑈 ∧ ((invg‘𝑆)‘𝑢) ∈ 𝑈))))
168	3, 31, 165, 167	mpbir3and 1361	1 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝑆))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103  ∀wal 1568   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080  {crab 3416  Vcvv 3454   ⊆ wss 3900   ∖ cdif 4048   ∪ cun 4152  ∅c0 4281  {csn 4588   × cxp 5654  ^◡ccnv 5655   “ cima 5659   ∘ ccom 5660   Fn wfn 6556  ⟶wf 6557  ‘cfv 6561  (class class class)co 7446   ∘_f cof 7718   supp csupp 8207   ↑_m cmap 8878  Fincfn 9004  ℕcn 12365  ℕ₀cn0 12636  Basecbs 17419  +_gcplusg 17460  0_gc0g 17642  Mgmcmgm 18846  Grpcgrp 19176  inv_gcminusg 19177  SubGrpcsubg 19362   mPwSer cmps 22245

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 5236  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7778  ax-cnex 11286  ax-resscn 11287  ax-1cn 11288  ax-icn 11289  ax-addcl 11290  ax-addrcl 11291  ax-mulcl 11292  ax-mulrcl 11293  ax-mulcom 11294  ax-addass 11295  ax-mulass 11296  ax-distr 11297  ax-i2m1 11298  ax-1ne0 11299  ax-1rid 11300  ax-rnegex 11301  ax-rrecex 11302  ax-cnre 11303  ax-pre-lttri 11304  ax-pre-lttrn 11305  ax-pre-ltadd 11306  ax-pre-mulgt0 11307

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-tp 4593  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6325  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6515  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7403  df-ov 7449  df-oprab 7450  df-mpo 7451  df-of 7720  df-om 7905  df-1st 8028  df-2nd 8029  df-supp 8208  df-frecs 8330  df-wrecs 8361  df-recs 8410  df-rdg 8449  df-1o 8507  df-er 8748  df-map 8880  df-ixp 8957  df-en 9005  df-dom 9006  df-sdom 9007  df-fin 9008  df-fsupp 9385  df-sup 9464  df-pnf 11375  df-mnf 11376  df-xr 11377  df-ltxr 11378  df-le 11379  df-sub 11573  df-neg 11574  df-nn 12366  df-2 12435  df-3 12436  df-4 12437  df-5 12438  df-6 12439  df-7 12440  df-8 12441  df-9 12442  df-n0 12637  df-z 12724  df-dec 12845  df-uz 12996  df-fz 13670  df-struct 17357  df-sets 17374  df-slot 17392  df-ndx 17404  df-base 17420  df-ress 17441  df-plusg 17473  df-mulr 17474  df-sca 17476  df-vsca 17477  df-ip 17478  df-tset 17479  df-ple 17480  df-ds 17482  df-hom 17484  df-cco 17485  df-0g 17644  df-prds 17650  df-pws 17652  df-mgm 18848  df-sgrp 18940  df-mnd 18956  df-grp 19179  df-minusg 19180  df-subg 19365  df-psr 22250

This theorem is used by:  mpllsslem  22340  mplsubg  22342