reprpmtf1o - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > reprpmtf1o		Structured version Visualization version GIF version

Theorem reprpmtf1o 34637

Description: Transposing 0 and 𝑋 maps representations with a condition on the first index to transpositions with the same condition on the index 𝑋. (Contributed by Thierry Arnoux, 27-Dec-2021.)

**Hypotheses**
Ref	Expression
reprpmtf1o.s	⊢ (𝜑 → 𝑆 ∈ ℕ)
reprpmtf1o.m	⊢ (𝜑 → 𝑀 ∈ ℤ)
reprpmtf1o.a	⊢ (𝜑 → 𝐴 ⊆ ℕ)
reprpmtf1o.x	⊢ (𝜑 → 𝑋 ∈ (0..^𝑆))
reprpmtf1o.o	⊢ 𝑂 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}
reprpmtf1o.p	⊢ 𝑃 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵}
reprpmtf1o.t	⊢ 𝑇 = if(𝑋 = 0, ( I ↾ (0..^𝑆)), ((pmTrsp‘(0..^𝑆))‘{𝑋, 0}))
reprpmtf1o.f	⊢ 𝐹 = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇))

**Assertion**
Ref	Expression
reprpmtf1o	⊢ (𝜑 → 𝐹:𝑃–1-1-onto→𝑂)

Distinct variable groups: 𝐴,𝑐 𝐵,𝑐 𝑀,𝑐 𝑃,𝑐 𝑆,𝑐 𝑇,𝑐 𝑋,𝑐 𝜑,𝑐 Allowed substitution hints: 𝐹(𝑐) 𝑂(𝑐)

Proof of Theorem reprpmtf1o Dummy variables 𝑎 𝑏 𝑑 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2731	. . . . 5 ⊢ (𝐴 ↑_m (0..^𝑆)) = (𝐴 ↑_m (0..^𝑆))
2		eqid 2731	. . . . 5 ⊢ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) = (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇))
3		ovexd 7381	. . . . 5 ⊢ (𝜑 → (0..^𝑆) ∈ V)
4		nnex 12131	. . . . . . 7 ⊢ ℕ ∈ V
5	4	a1i 11	. . . . . 6 ⊢ (𝜑 → ℕ ∈ V)
6		reprpmtf1o.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ ℕ)
7	5, 6	ssexd 5262	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ V)
8		reprpmtf1o.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ (0..^𝑆))
9		reprpmtf1o.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℕ)
10		lbfzo0 13599	. . . . . . 7 ⊢ (0 ∈ (0..^𝑆) ↔ 𝑆 ∈ ℕ)
11	9, 10	sylibr 234	. . . . . 6 ⊢ (𝜑 → 0 ∈ (0..^𝑆))
12		reprpmtf1o.t	. . . . . 6 ⊢ 𝑇 = if(𝑋 = 0, ( I ↾ (0..^𝑆)), ((pmTrsp‘(0..^𝑆))‘{𝑋, 0}))
13	3, 8, 11, 12	pmtridf1o 33061	. . . . 5 ⊢ (𝜑 → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
14	1, 1, 2, 3, 3, 7, 13	fmptco1f1o 32613	. . . 4 ⊢ (𝜑 → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1-onto→(𝐴 ↑_m (0..^𝑆)))
15		f1of1 6762	. . . 4 ⊢ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1-onto→(𝐴 ↑_m (0..^𝑆)) → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1→(𝐴 ↑_m (0..^𝑆)))
16	14, 15	syl 17	. . 3 ⊢ (𝜑 → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1→(𝐴 ↑_m (0..^𝑆)))
17		ssrab2 4030	. . . . . 6 ⊢ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ⊆ (𝐴 ↑_m (0..^𝑆))
18		reprpmtf1o.p	. . . . . . . . . 10 ⊢ 𝑃 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵}
19	18	ssrab3 4032	. . . . . . . . 9 ⊢ 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀)
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀))
21		reprpmtf1o.m	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℤ)
22	9	nnnn0d 12442	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
23	6, 21, 22	reprval 34621	. . . . . . . 8 ⊢ (𝜑 → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
24	20, 23	sseqtrd 3971	. . . . . . 7 ⊢ (𝜑 → 𝑃 ⊆ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
25	24	sselda 3934	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
26	17, 25	sselid 3932	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
27	26	ex 412	. . . 4 ⊢ (𝜑 → (𝑐 ∈ 𝑃 → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))))
28	27	ssrdv 3940	. . 3 ⊢ (𝜑 → 𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)))
29		f1ores 6777	. . 3 ⊢ (((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1→(𝐴 ↑_m (0..^𝑆)) ∧ 𝑃 ⊆ (𝐴 ↑_m (0..^𝑆))) → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃))
30	16, 28, 29	syl2anc 584	. 2 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃))
31		resmpt 5986	. . . . 5 ⊢ (𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)) → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
32	28, 31	syl 17	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
33		reprpmtf1o.f	. . . 4 ⊢ 𝐹 = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇))
34	32, 33	eqtr4di 2784	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = 𝐹)
35		eqidd 2732	. . 3 ⊢ (𝜑 → 𝑃 = 𝑃)
36		vex 3440	. . . . . . . . 9 ⊢ 𝑑 ∈ V
37	36	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑑 ∈ V)
38	2, 37, 28	elimampt 5992	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)))
39		simpr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 = (𝑐 ∘ 𝑇))
40		f1of 6763	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1-onto→(𝐴 ↑_m (0..^𝑆)) → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
41	14, 40	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
42	41	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
43	2	fmpt 7043	. . . . . . . . . . . . . . 15 ⊢ (∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
44	42, 43	sylibr 234	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
45	26	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
46		rspa 3221	. . . . . . . . . . . . . 14 ⊢ ((∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
47	44, 45, 46	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
48	39, 47	eqeltrd 2831	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴 ↑_m (0..^𝑆)))
49	39	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑑 = (𝑐 ∘ 𝑇))
50	49	fveq1d 6824	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = ((𝑐 ∘ 𝑇)‘𝑎))
51		f1ofun 6765	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → Fun 𝑇)
52	13, 51	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Fun 𝑇)
53	52	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → Fun 𝑇)
54		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
55		f1odm 6767	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → dom 𝑇 = (0..^𝑆))
56	13, 55	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → dom 𝑇 = (0..^𝑆))
57	56	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → dom 𝑇 = (0..^𝑆))
58	54, 57	eleqtrrd 2834	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom 𝑇)
59		fvco 6920	. . . . . . . . . . . . . . . . 17 ⊢ ((Fun 𝑇 ∧ 𝑎 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
60	53, 58, 59	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
61	60	adantlr 715	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
62	50, 61	eqtrd 2766	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = (𝑐‘(𝑇‘𝑎)))
63	62	sumeq2dv 15609	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
64		fveq2 6822	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = (𝑇‘𝑎) → (𝑐‘𝑏) = (𝑐‘(𝑇‘𝑎)))
65		fzofi 13881	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝑆) ∈ Fin
66	65	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (0..^𝑆) ∈ Fin)
67	13	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
68		eqidd 2732	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑇‘𝑎) = (𝑇‘𝑎))
69	6	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
70	6	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝐴 ⊆ ℕ)
71	21	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑀 ∈ ℤ)
72	22	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑆 ∈ ℕ₀)
73	20	sselda 3934	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴(repr‘𝑆)𝑀))
74	70, 71, 72, 73	reprf 34623	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐:(0..^𝑆)⟶𝐴)
75	74	ffvelcdmda 7017	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ 𝐴)
76	69, 75	sseldd 3935	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℕ)
77	76	nncnd 12141	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℂ)
78	64, 66, 67, 68, 77	fsumf1o 15630	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
79	78	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
80	70, 71, 72, 73	reprsum 34624	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
81	80	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
82	63, 79, 81	3eqtr2d 2772	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀)
83		fveq1 6821	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
84	83	sumeq2sdv 15610	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑑 → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎))
85	84	eqeq1d 2733	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑑 → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
86	85	elrab 3647	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ↔ (𝑑 ∈ (𝐴 ↑_m (0..^𝑆)) ∧ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
87	48, 82, 86	sylanbrc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
88	23	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
89	87, 88	eleqtrrd 2834	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
90	39	fveq1d 6824	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑‘0) = ((𝑐 ∘ 𝑇)‘0))
91	52	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Fun 𝑇)
92	11, 56	eleqtrrd 2834	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ dom 𝑇)
93	92	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 0 ∈ dom 𝑇)
94		fvco 6920	. . . . . . . . . . . . 13 ⊢ ((Fun 𝑇 ∧ 0 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
95	91, 93, 94	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
96	3, 8, 11, 12	pmtridfv2 33063	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇‘0) = 𝑋)
97	96	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑇‘0) = 𝑋)
98	97	fveq2d 6826	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐‘(𝑇‘0)) = (𝑐‘𝑋))
99		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ 𝑃)
100	99, 18	eleqtrdi 2841	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
101		rabid 3416	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
102	100, 101	sylib 218	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
103	102	simprd 495	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → ¬ (𝑐‘𝑋) ∈ 𝐵)
104	103	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘𝑋) ∈ 𝐵)
105	98, 104	eqneltrd 2851	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘(𝑇‘0)) ∈ 𝐵)
106	95, 105	eqneltrd 2851	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ ((𝑐 ∘ 𝑇)‘0) ∈ 𝐵)
107	90, 106	eqneltrd 2851	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑑‘0) ∈ 𝐵)
108	89, 107	jca 511	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
109	108	r19.29an 3136	. . . . . . . 8 ⊢ ((𝜑 ∧ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
110	6	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝐴 ⊆ ℕ)
111	21	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑀 ∈ ℤ)
112	22	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑆 ∈ ℕ₀)
113		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
114	110, 111, 112, 113	reprf 34623	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑:(0..^𝑆)⟶𝐴)
115		f1ocnv 6775	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
116		f1of 6763	. . . . . . . . . . . . . . . . . . 19 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
117	13, 115, 116	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
118	117	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
119		fco 6675	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑑:(0..^𝑆)⟶𝐴 ∧ ^◡𝑇:(0..^𝑆)⟶(0..^𝑆)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
120	114, 118, 119	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
121		elmapg 8763	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ V ∧ (0..^𝑆) ∈ V) → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
122	7, 3, 121	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
123	122	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
124	120, 123	mpbird 257	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
125	124	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
126		f1ofun 6765	. . . . . . . . . . . . . . . . . . . 20 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → Fun ^◡𝑇)
127	13, 115, 126	3syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → Fun ^◡𝑇)
128	127	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → Fun ^◡𝑇)
129		simpr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
130		f1odm 6767	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → dom ^◡𝑇 = (0..^𝑆))
131	13, 115, 130	3syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → dom ^◡𝑇 = (0..^𝑆))
132	131	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → dom ^◡𝑇 = (0..^𝑆))
133	129, 132	eleqtrrd 2834	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
134	133	adantlr 715	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
135		fvco 6920	. . . . . . . . . . . . . . . . . 18 ⊢ ((Fun ^◡𝑇 ∧ 𝑎 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
136	128, 134, 135	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
137	136	sumeq2dv 15609	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
138		fveq2 6822	. . . . . . . . . . . . . . . . 17 ⊢ (𝑏 = (^◡𝑇‘𝑎) → (𝑑‘𝑏) = (𝑑‘(^◡𝑇‘𝑎)))
139	65	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (0..^𝑆) ∈ Fin)
140	13, 115	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
141	140	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
142		eqidd 2732	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → (^◡𝑇‘𝑎) = (^◡𝑇‘𝑎))
143	110	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
144	114	ffvelcdmda 7017	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ 𝐴)
145	143, 144	sseldd 3935	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℕ)
146	145	nncnd 12141	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℂ)
147	138, 139, 141, 142, 146	fsumf1o 15630	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
148	110, 111, 112, 113	reprsum 34624	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = 𝑀)
149	137, 147, 148	3eqtr2d 2772	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
150	149	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
151		fveq1 6821	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑎) = ((𝑑 ∘ ^◡𝑇)‘𝑎))
152	151	sumeq2sdv 15610	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎))
153	152	eqeq1d 2733	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
154	153	elrab 3647	. . . . . . . . . . . . . 14 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
155	125, 150, 154	sylanbrc 583	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
156	23	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
157	155, 156	eleqtrrd 2834	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀))
158	127	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Fun ^◡𝑇)
159	8, 131	eleqtrrd 2834	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ dom ^◡𝑇)
160	159	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → 𝑋 ∈ dom ^◡𝑇)
161		fvco 6920	. . . . . . . . . . . . . 14 ⊢ ((Fun ^◡𝑇 ∧ 𝑋 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
162	158, 160, 161	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
163		f1ocnvfv 7212	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) ∧ 0 ∈ (0..^𝑆)) → ((𝑇‘0) = 𝑋 → (^◡𝑇‘𝑋) = 0))
164	163	imp 406	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) ∧ 0 ∈ (0..^𝑆)) ∧ (𝑇‘0) = 𝑋) → (^◡𝑇‘𝑋) = 0)
165	13, 11, 96, 164	syl21anc 837	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑇‘𝑋) = 0)
166	165	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (^◡𝑇‘𝑋) = 0)
167	166	fveq2d 6826	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑‘(^◡𝑇‘𝑋)) = (𝑑‘0))
168		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘0) ∈ 𝐵)
169	167, 168	eqneltrd 2851	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘(^◡𝑇‘𝑋)) ∈ 𝐵)
170	162, 169	eqneltrd 2851	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵)
171		fveq1 6821	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑋) = ((𝑑 ∘ ^◡𝑇)‘𝑋))
172	171	eleq1d 2816	. . . . . . . . . . . . . 14 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → ((𝑐‘𝑋) ∈ 𝐵 ↔ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
173	172	notbid 318	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (¬ (𝑐‘𝑋) ∈ 𝐵 ↔ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
174	173	elrab 3647	. . . . . . . . . . . 12 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
175	157, 170, 174	sylanbrc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
176	175, 18	eleqtrrdi 2842	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
177	176	anasss 466	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
178		simpr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → 𝑐 = (𝑑 ∘ ^◡𝑇))
179	178	coeq1d 5801	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑐 ∘ 𝑇) = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
180	179	eqeq2d 2742	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑑 = (𝑐 ∘ 𝑇) ↔ 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇)))
181		f1ococnv1 6792	. . . . . . . . . . . . . 14 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
182	13, 181	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
183	182	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
184	183	coeq2d 5802	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ (^◡𝑇 ∘ 𝑇)) = (𝑑 ∘ ( I ↾ (0..^𝑆))))
185	114	adantrr 717	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑:(0..^𝑆)⟶𝐴)
186		fcoi1 6697	. . . . . . . . . . . 12 ⊢ (𝑑:(0..^𝑆)⟶𝐴 → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
187	185, 186	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
188	184, 187	eqtr2d 2767	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = (𝑑 ∘ (^◡𝑇 ∘ 𝑇)))
189		coass 6213	. . . . . . . . . 10 ⊢ ((𝑑 ∘ ^◡𝑇) ∘ 𝑇) = (𝑑 ∘ (^◡𝑇 ∘ 𝑇))
190	188, 189	eqtr4di 2784	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
191	177, 180, 190	rspcedvd 3579	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇))
192	109, 191	impbida 800	. . . . . . 7 ⊢ (𝜑 → (∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
193	38, 192	bitrd 279	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
194		fveq1 6821	. . . . . . . . 9 ⊢ (𝑐 = 𝑑 → (𝑐‘0) = (𝑑‘0))
195	194	eleq1d 2816	. . . . . . . 8 ⊢ (𝑐 = 𝑑 → ((𝑐‘0) ∈ 𝐵 ↔ (𝑑‘0) ∈ 𝐵))
196	195	notbid 318	. . . . . . 7 ⊢ (𝑐 = 𝑑 → (¬ (𝑐‘0) ∈ 𝐵 ↔ ¬ (𝑑‘0) ∈ 𝐵))
197	196	elrab 3647	. . . . . 6 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵} ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
198	193, 197	bitr4di 289	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}))
199	198	eqrdv 2729	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵})
200		reprpmtf1o.o	. . . 4 ⊢ 𝑂 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}
201	199, 200	eqtr4di 2784	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = 𝑂)
202	34, 35, 201	f1oeq123d 6757	. 2 ⊢ (𝜑 → (((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝐹:𝑃–1-1-onto→𝑂))
203	30, 202	mpbid 232	1 ⊢ (𝜑 → 𝐹:𝑃–1-1-onto→𝑂)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2111 ∀wral 3047 ∃wrex 3056 {crab 3395 Vcvv 3436 ⊆ wss 3902 ifcif 4475 {cpr 4578 ↦ cmpt 5172 I cid 5510 ^◡ccnv 5615 dom cdm 5616 ↾ cres 5618 “ cima 5619 ∘ ccom 5620 Fun wfun 6475 ⟶wf 6477 –1-1→wf1 6478 –1-1-onto→wf1o 6480 ‘cfv 6481 (class class class)co 7346 ↑_m cmap 8750 Fincfn 8869 0cc0 11006 ℕcn 12125 ℕ₀cn0 12381 ℤcz 12468 ..^cfzo 13554 Σcsu 15593 pmTrspcpmtr 19354 reprcrepr 34619

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-inf2 9531 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 ax-pre-sup 11084

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-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-om 7797 df-1st 7921 df-2nd 7922 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-en 8870 df-dom 8871 df-sdom 8872 df-fin 8873 df-sup 9326 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-div 11775 df-nn 12126 df-2 12188 df-3 12189 df-n0 12382 df-z 12469 df-uz 12733 df-rp 12891 df-fz 13408 df-fzo 13555 df-seq 13909 df-exp 13969 df-hash 14238 df-cj 15006 df-re 15007 df-im 15008 df-sqrt 15142 df-abs 15143 df-clim 15395 df-sum 15594 df-pmtr 19355 df-repr 34620

This theorem is referenced by: hgt750lema 34668

W3C validator