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 31904

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 2821	. . . . 5 ⊢ (𝐴 ↑_m (0..^𝑆)) = (𝐴 ↑_m (0..^𝑆))
2		eqid 2821	. . . . 5 ⊢ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) = (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇))
3		ovexd 7177	. . . . 5 ⊢ (𝜑 → (0..^𝑆) ∈ V)
4		nnex 11630	. . . . . . 7 ⊢ ℕ ∈ V
5	4	a1i 11	. . . . . 6 ⊢ (𝜑 → ℕ ∈ V)
6		reprpmtf1o.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ ℕ)
7	5, 6	ssexd 5214	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ V)
8		reprpmtf1o.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ (0..^𝑆))
9		reprpmtf1o.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℕ)
10		lbfzo0 13067	. . . . . . 7 ⊢ (0 ∈ (0..^𝑆) ↔ 𝑆 ∈ ℕ)
11	9, 10	sylibr 236	. . . . . 6 ⊢ (𝜑 → 0 ∈ (0..^𝑆))
12		reprpmtf1o.t	. . . . . 6 ⊢ 𝑇 = if(𝑋 = 0, ( I ↾ (0..^𝑆)), ((pmTrsp‘(0..^𝑆))‘{𝑋, 0}))
13	3, 8, 11, 12	pmtridf1o 30743	. . . . 5 ⊢ (𝜑 → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
14	1, 1, 2, 3, 3, 7, 13	fmptco1f1o 30364	. . . 4 ⊢ (𝜑 → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1-onto→(𝐴 ↑_m (0..^𝑆)))
15		f1of1 6600	. . . 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 4044	. . . . . 6 ⊢ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ⊆ (𝐴 ↑_m (0..^𝑆))
18		reprpmtf1o.p	. . . . . . . . . 10 ⊢ 𝑃 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵}
19	18	ssrab3 4045	. . . . . . . . 9 ⊢ 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀)
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀))
21		reprpmtf1o.m	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℤ)
22	9	nnnn0d 11942	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
23	6, 21, 22	reprval 31888	. . . . . . . 8 ⊢ (𝜑 → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
24	20, 23	sseqtrd 3995	. . . . . . 7 ⊢ (𝜑 → 𝑃 ⊆ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
25	24	sselda 3955	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
26	17, 25	sseldi 3953	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
27	26	ex 415	. . . 4 ⊢ (𝜑 → (𝑐 ∈ 𝑃 → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))))
28	27	ssrdv 3961	. . 3 ⊢ (𝜑 → 𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)))
29		f1ores 6615	. . 3 ⊢ (((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1→(𝐴 ↑_m (0..^𝑆)) ∧ 𝑃 ⊆ (𝐴 ↑_m (0..^𝑆))) → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃))
30	16, 28, 29	syl2anc 586	. 2 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃))
31		resmpt 5891	. . . . 5 ⊢ (𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)) → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
32	28, 31	syl 17	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
33		reprpmtf1o.f	. . . 4 ⊢ 𝐹 = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇))
34	32, 33	syl6eqr 2874	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = 𝐹)
35		eqidd 2822	. . 3 ⊢ (𝜑 → 𝑃 = 𝑃)
36		vex 3489	. . . . . . . . 9 ⊢ 𝑑 ∈ V
37	36	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑑 ∈ V)
38	2, 37, 28	elimampt 30369	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)))
39		simpr 487	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 = (𝑐 ∘ 𝑇))
40		f1of 6601	. . . . . . . . . . . . . . . . 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 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
43	2	fmpt 6860	. . . . . . . . . . . . . . 15 ⊢ (∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
44	42, 43	sylibr 236	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
45	26	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
46		rspa 3206	. . . . . . . . . . . . . 14 ⊢ ((∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
47	44, 45, 46	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
48	39, 47	eqeltrd 2913	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴 ↑_m (0..^𝑆)))
49	39	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑑 = (𝑐 ∘ 𝑇))
50	49	fveq1d 6658	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = ((𝑐 ∘ 𝑇)‘𝑎))
51		f1ofun 6603	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → Fun 𝑇)
52	13, 51	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Fun 𝑇)
53	52	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → Fun 𝑇)
54		simpr 487	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
55		f1odm 6605	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → dom 𝑇 = (0..^𝑆))
56	13, 55	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → dom 𝑇 = (0..^𝑆))
57	56	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → dom 𝑇 = (0..^𝑆))
58	54, 57	eleqtrrd 2916	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom 𝑇)
59		fvco 6745	. . . . . . . . . . . . . . . . 17 ⊢ ((Fun 𝑇 ∧ 𝑎 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
60	53, 58, 59	syl2anc 586	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
61	60	adantlr 713	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
62	50, 61	eqtrd 2856	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = (𝑐‘(𝑇‘𝑎)))
63	62	sumeq2dv 15045	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
64		fveq2 6656	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = (𝑇‘𝑎) → (𝑐‘𝑏) = (𝑐‘(𝑇‘𝑎)))
65		fzofi 13332	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝑆) ∈ Fin
66	65	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (0..^𝑆) ∈ Fin)
67	13	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
68		eqidd 2822	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑇‘𝑎) = (𝑇‘𝑎))
69	6	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
70	6	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝐴 ⊆ ℕ)
71	21	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑀 ∈ ℤ)
72	22	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑆 ∈ ℕ₀)
73	20	sselda 3955	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴(repr‘𝑆)𝑀))
74	70, 71, 72, 73	reprf 31890	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐:(0..^𝑆)⟶𝐴)
75	74	ffvelrnda 6837	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ 𝐴)
76	69, 75	sseldd 3956	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℕ)
77	76	nncnd 11640	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℂ)
78	64, 66, 67, 68, 77	fsumf1o 15065	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
79	78	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
80	70, 71, 72, 73	reprsum 31891	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
81	80	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
82	63, 79, 81	3eqtr2d 2862	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀)
83		fveq1 6655	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
84	83	sumeq2sdv 15046	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑑 → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎))
85	84	eqeq1d 2823	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑑 → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
86	85	elrab 3671	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ↔ (𝑑 ∈ (𝐴 ↑_m (0..^𝑆)) ∧ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
87	48, 82, 86	sylanbrc 585	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
88	23	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
89	87, 88	eleqtrrd 2916	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
90	39	fveq1d 6658	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑‘0) = ((𝑐 ∘ 𝑇)‘0))
91	52	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Fun 𝑇)
92	11, 56	eleqtrrd 2916	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ dom 𝑇)
93	92	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 0 ∈ dom 𝑇)
94		fvco 6745	. . . . . . . . . . . . 13 ⊢ ((Fun 𝑇 ∧ 0 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
95	91, 93, 94	syl2anc 586	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
96	3, 8, 11, 12	pmtridfv2 30745	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇‘0) = 𝑋)
97	96	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑇‘0) = 𝑋)
98	97	fveq2d 6660	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐‘(𝑇‘0)) = (𝑐‘𝑋))
99		simpr 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ 𝑃)
100	99, 18	eleqtrdi 2923	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
101		rabid 3378	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
102	100, 101	sylib 220	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
103	102	simprd 498	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → ¬ (𝑐‘𝑋) ∈ 𝐵)
104	103	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘𝑋) ∈ 𝐵)
105	98, 104	eqneltrd 2932	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘(𝑇‘0)) ∈ 𝐵)
106	95, 105	eqneltrd 2932	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ ((𝑐 ∘ 𝑇)‘0) ∈ 𝐵)
107	90, 106	eqneltrd 2932	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑑‘0) ∈ 𝐵)
108	89, 107	jca 514	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
109	108	r19.29an 3288	. . . . . . . 8 ⊢ ((𝜑 ∧ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
110	6	adantr 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝐴 ⊆ ℕ)
111	21	adantr 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑀 ∈ ℤ)
112	22	adantr 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑆 ∈ ℕ₀)
113		simpr 487	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
114	110, 111, 112, 113	reprf 31890	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑:(0..^𝑆)⟶𝐴)
115		f1ocnv 6613	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
116		f1of 6601	. . . . . . . . . . . . . . . . . . 19 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
117	13, 115, 116	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
118	117	adantr 483	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
119		fco 6517	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑑:(0..^𝑆)⟶𝐴 ∧ ^◡𝑇:(0..^𝑆)⟶(0..^𝑆)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
120	114, 118, 119	syl2anc 586	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
121		elmapg 8405	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ V ∧ (0..^𝑆) ∈ V) → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
122	7, 3, 121	syl2anc 586	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
123	122	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
124	120, 123	mpbird 259	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
125	124	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
126		f1ofun 6603	. . . . . . . . . . . . . . . . . . . 20 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → Fun ^◡𝑇)
127	13, 115, 126	3syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → Fun ^◡𝑇)
128	127	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → Fun ^◡𝑇)
129		simpr 487	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
130		f1odm 6605	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → dom ^◡𝑇 = (0..^𝑆))
131	13, 115, 130	3syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → dom ^◡𝑇 = (0..^𝑆))
132	131	adantr 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → dom ^◡𝑇 = (0..^𝑆))
133	129, 132	eleqtrrd 2916	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
134	133	adantlr 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
135		fvco 6745	. . . . . . . . . . . . . . . . . 18 ⊢ ((Fun ^◡𝑇 ∧ 𝑎 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
136	128, 134, 135	syl2anc 586	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
137	136	sumeq2dv 15045	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
138		fveq2 6656	. . . . . . . . . . . . . . . . 17 ⊢ (𝑏 = (^◡𝑇‘𝑎) → (𝑑‘𝑏) = (𝑑‘(^◡𝑇‘𝑎)))
139	65	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (0..^𝑆) ∈ Fin)
140	13, 115	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
141	140	adantr 483	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
142		eqidd 2822	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → (^◡𝑇‘𝑎) = (^◡𝑇‘𝑎))
143	110	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
144	114	ffvelrnda 6837	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ 𝐴)
145	143, 144	sseldd 3956	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℕ)
146	145	nncnd 11640	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℂ)
147	138, 139, 141, 142, 146	fsumf1o 15065	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
148	110, 111, 112, 113	reprsum 31891	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = 𝑀)
149	137, 147, 148	3eqtr2d 2862	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
150	149	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
151		fveq1 6655	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑎) = ((𝑑 ∘ ^◡𝑇)‘𝑎))
152	151	sumeq2sdv 15046	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎))
153	152	eqeq1d 2823	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
154	153	elrab 3671	. . . . . . . . . . . . . 14 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
155	125, 150, 154	sylanbrc 585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
156	23	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
157	155, 156	eleqtrrd 2916	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀))
158	127	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Fun ^◡𝑇)
159	8, 131	eleqtrrd 2916	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ dom ^◡𝑇)
160	159	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → 𝑋 ∈ dom ^◡𝑇)
161		fvco 6745	. . . . . . . . . . . . . 14 ⊢ ((Fun ^◡𝑇 ∧ 𝑋 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
162	158, 160, 161	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
163		f1ocnvfv 7021	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) ∧ 0 ∈ (0..^𝑆)) → ((𝑇‘0) = 𝑋 → (^◡𝑇‘𝑋) = 0))
164	163	imp 409	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) ∧ 0 ∈ (0..^𝑆)) ∧ (𝑇‘0) = 𝑋) → (^◡𝑇‘𝑋) = 0)
165	13, 11, 96, 164	syl21anc 835	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑇‘𝑋) = 0)
166	165	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (^◡𝑇‘𝑋) = 0)
167	166	fveq2d 6660	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑‘(^◡𝑇‘𝑋)) = (𝑑‘0))
168		simpr 487	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘0) ∈ 𝐵)
169	167, 168	eqneltrd 2932	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘(^◡𝑇‘𝑋)) ∈ 𝐵)
170	162, 169	eqneltrd 2932	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵)
171		fveq1 6655	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑋) = ((𝑑 ∘ ^◡𝑇)‘𝑋))
172	171	eleq1d 2897	. . . . . . . . . . . . . 14 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → ((𝑐‘𝑋) ∈ 𝐵 ↔ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
173	172	notbid 320	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (¬ (𝑐‘𝑋) ∈ 𝐵 ↔ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
174	173	elrab 3671	. . . . . . . . . . . 12 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
175	157, 170, 174	sylanbrc 585	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
176	175, 18	eleqtrrdi 2924	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
177	176	anasss 469	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
178		simpr 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → 𝑐 = (𝑑 ∘ ^◡𝑇))
179	178	coeq1d 5718	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑐 ∘ 𝑇) = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
180	179	eqeq2d 2832	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑑 = (𝑐 ∘ 𝑇) ↔ 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇)))
181		f1ococnv1 6629	. . . . . . . . . . . . . 14 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
182	13, 181	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
183	182	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
184	183	coeq2d 5719	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ (^◡𝑇 ∘ 𝑇)) = (𝑑 ∘ ( I ↾ (0..^𝑆))))
185	114	adantrr 715	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑:(0..^𝑆)⟶𝐴)
186		fcoi1 6538	. . . . . . . . . . . 12 ⊢ (𝑑:(0..^𝑆)⟶𝐴 → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
187	185, 186	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
188	184, 187	eqtr2d 2857	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = (𝑑 ∘ (^◡𝑇 ∘ 𝑇)))
189		coass 6104	. . . . . . . . . 10 ⊢ ((𝑑 ∘ ^◡𝑇) ∘ 𝑇) = (𝑑 ∘ (^◡𝑇 ∘ 𝑇))
190	188, 189	syl6eqr 2874	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
191	177, 180, 190	rspcedvd 3618	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇))
192	109, 191	impbida 799	. . . . . . 7 ⊢ (𝜑 → (∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
193	38, 192	bitrd 281	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
194		fveq1 6655	. . . . . . . . 9 ⊢ (𝑐 = 𝑑 → (𝑐‘0) = (𝑑‘0))
195	194	eleq1d 2897	. . . . . . . 8 ⊢ (𝑐 = 𝑑 → ((𝑐‘0) ∈ 𝐵 ↔ (𝑑‘0) ∈ 𝐵))
196	195	notbid 320	. . . . . . 7 ⊢ (𝑐 = 𝑑 → (¬ (𝑐‘0) ∈ 𝐵 ↔ ¬ (𝑑‘0) ∈ 𝐵))
197	196	elrab 3671	. . . . . 6 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵} ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
198	193, 197	syl6bbr 291	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}))
199	198	eqrdv 2819	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵})
200		reprpmtf1o.o	. . . 4 ⊢ 𝑂 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}
201	199, 200	syl6eqr 2874	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = 𝑂)
202	34, 35, 201	f1oeq123d 6596	. 2 ⊢ (𝜑 → (((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝐹:𝑃–1-1-onto→𝑂))
203	30, 202	mpbid 234	1 ⊢ (𝜑 → 𝐹:𝑃–1-1-onto→𝑂)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1537 ∈ wcel 2114 ∀wral 3138 ∃wrex 3139 {crab 3142 Vcvv 3486 ⊆ wss 3924 ifcif 4453 {cpr 4555 ↦ cmpt 5132 I cid 5445 ^◡ccnv 5540 dom cdm 5541 ↾ cres 5543 “ cima 5544 ∘ ccom 5545 Fun wfun 6335 ⟶wf 6337 –1-1→wf1 6338 –1-1-onto→wf1o 6340 ‘cfv 6341 (class class class)co 7142 ↑_m cmap 8392 Fincfn 8495 0cc0 10523 ℕcn 11624 ℕ₀cn0 11884 ℤcz 11968 ..^cfzo 13023 Σcsu 15027 pmTrspcpmtr 18552 reprcrepr 31886

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 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2793 ax-rep 5176 ax-sep 5189 ax-nul 5196 ax-pow 5252 ax-pr 5316 ax-un 7447 ax-inf2 9090 ax-cnex 10579 ax-resscn 10580 ax-1cn 10581 ax-icn 10582 ax-addcl 10583 ax-addrcl 10584 ax-mulcl 10585 ax-mulrcl 10586 ax-mulcom 10587 ax-addass 10588 ax-mulass 10589 ax-distr 10590 ax-i2m1 10591 ax-1ne0 10592 ax-1rid 10593 ax-rnegex 10594 ax-rrecex 10595 ax-cnre 10596 ax-pre-lttri 10597 ax-pre-lttrn 10598 ax-pre-ltadd 10599 ax-pre-mulgt0 10600 ax-pre-sup 10601

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-fal 1550 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rmo 3146 df-rab 3147 df-v 3488 df-sbc 3764 df-csb 3872 df-dif 3927 df-un 3929 df-in 3931 df-ss 3940 df-pss 3942 df-nul 4280 df-if 4454 df-pw 4527 df-sn 4554 df-pr 4556 df-tp 4558 df-op 4560 df-uni 4825 df-int 4863 df-iun 4907 df-br 5053 df-opab 5115 df-mpt 5133 df-tr 5159 df-id 5446 df-eprel 5451 df-po 5460 df-so 5461 df-fr 5500 df-se 5501 df-we 5502 df-xp 5547 df-rel 5548 df-cnv 5549 df-co 5550 df-dm 5551 df-rn 5552 df-res 5553 df-ima 5554 df-pred 6134 df-ord 6180 df-on 6181 df-lim 6182 df-suc 6183 df-iota 6300 df-fun 6343 df-fn 6344 df-f 6345 df-f1 6346 df-fo 6347 df-f1o 6348 df-fv 6349 df-isom 6350 df-riota 7100 df-ov 7145 df-oprab 7146 df-mpo 7147 df-om 7567 df-1st 7675 df-2nd 7676 df-wrecs 7933 df-recs 7994 df-rdg 8032 df-1o 8088 df-2o 8089 df-oadd 8092 df-er 8275 df-map 8394 df-en 8496 df-dom 8497 df-sdom 8498 df-fin 8499 df-sup 8892 df-oi 8960 df-card 9354 df-pnf 10663 df-mnf 10664 df-xr 10665 df-ltxr 10666 df-le 10667 df-sub 10858 df-neg 10859 df-div 11284 df-nn 11625 df-2 11687 df-3 11688 df-n0 11885 df-z 11969 df-uz 12231 df-rp 12377 df-fz 12883 df-fzo 13024 df-seq 13360 df-exp 13420 df-hash 13681 df-cj 14443 df-re 14444 df-im 14445 df-sqrt 14579 df-abs 14580 df-clim 14830 df-sum 15028 df-pmtr 18553 df-repr 31887

This theorem is referenced by: hgt750lema 31935

W3C validator