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 33239

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 2736	. . . . 5 ⊢ (𝐴 ↑_m (0..^𝑆)) = (𝐴 ↑_m (0..^𝑆))
2		eqid 2736	. . . . 5 ⊢ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) = (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇))
3		ovexd 7392	. . . . 5 ⊢ (𝜑 → (0..^𝑆) ∈ V)
4		nnex 12159	. . . . . . 7 ⊢ ℕ ∈ V
5	4	a1i 11	. . . . . 6 ⊢ (𝜑 → ℕ ∈ V)
6		reprpmtf1o.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ ℕ)
7	5, 6	ssexd 5281	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ V)
8		reprpmtf1o.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ (0..^𝑆))
9		reprpmtf1o.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℕ)
10		lbfzo0 13612	. . . . . . 7 ⊢ (0 ∈ (0..^𝑆) ↔ 𝑆 ∈ ℕ)
11	9, 10	sylibr 233	. . . . . 6 ⊢ (𝜑 → 0 ∈ (0..^𝑆))
12		reprpmtf1o.t	. . . . . 6 ⊢ 𝑇 = if(𝑋 = 0, ( I ↾ (0..^𝑆)), ((pmTrsp‘(0..^𝑆))‘{𝑋, 0}))
13	3, 8, 11, 12	pmtridf1o 31943	. . . . 5 ⊢ (𝜑 → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
14	1, 1, 2, 3, 3, 7, 13	fmptco1f1o 31547	. . . 4 ⊢ (𝜑 → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1-onto→(𝐴 ↑_m (0..^𝑆)))
15		f1of1 6783	. . . 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 4037	. . . . . 6 ⊢ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ⊆ (𝐴 ↑_m (0..^𝑆))
18		reprpmtf1o.p	. . . . . . . . . 10 ⊢ 𝑃 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵}
19	18	ssrab3 4040	. . . . . . . . 9 ⊢ 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀)
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀))
21		reprpmtf1o.m	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℤ)
22	9	nnnn0d 12473	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
23	6, 21, 22	reprval 33223	. . . . . . . 8 ⊢ (𝜑 → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
24	20, 23	sseqtrd 3984	. . . . . . 7 ⊢ (𝜑 → 𝑃 ⊆ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
25	24	sselda 3944	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
26	17, 25	sselid 3942	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
27	26	ex 413	. . . 4 ⊢ (𝜑 → (𝑐 ∈ 𝑃 → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))))
28	27	ssrdv 3950	. . 3 ⊢ (𝜑 → 𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)))
29		f1ores 6798	. . 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 5991	. . . . 5 ⊢ (𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)) → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
32	28, 31	syl 17	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
33		reprpmtf1o.f	. . . 4 ⊢ 𝐹 = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇))
34	32, 33	eqtr4di 2794	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = 𝐹)
35		eqidd 2737	. . 3 ⊢ (𝜑 → 𝑃 = 𝑃)
36		vex 3449	. . . . . . . . 9 ⊢ 𝑑 ∈ V
37	36	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑑 ∈ V)
38	2, 37, 28	elimampt 31552	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)))
39		simpr 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 = (𝑐 ∘ 𝑇))
40		f1of 6784	. . . . . . . . . . . . . . . . 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 7058	. . . . . . . . . . . . . . 15 ⊢ (∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))⟶(𝐴 ↑_m (0..^𝑆)))
44	42, 43	sylibr 233	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
45	26	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
46		rspa 3231	. . . . . . . . . . . . . 14 ⊢ ((∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
47	44, 45, 46	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
48	39, 47	eqeltrd 2838	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴 ↑_m (0..^𝑆)))
49	39	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑑 = (𝑐 ∘ 𝑇))
50	49	fveq1d 6844	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = ((𝑐 ∘ 𝑇)‘𝑎))
51		f1ofun 6786	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → Fun 𝑇)
52	13, 51	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → Fun 𝑇)
53	52	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → Fun 𝑇)
54		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
55		f1odm 6788	. . . . . . . . . . . . . . . . . . . 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 2841	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom 𝑇)
59		fvco 6939	. . . . . . . . . . . . . . . . 17 ⊢ ((Fun 𝑇 ∧ 𝑎 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
60	53, 58, 59	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
61	60	adantlr 713	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
62	50, 61	eqtrd 2776	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = (𝑐‘(𝑇‘𝑎)))
63	62	sumeq2dv 15588	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
64		fveq2 6842	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = (𝑇‘𝑎) → (𝑐‘𝑏) = (𝑐‘(𝑇‘𝑎)))
65		fzofi 13879	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝑆) ∈ Fin
66	65	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (0..^𝑆) ∈ Fin)
67	13	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
68		eqidd 2737	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑇‘𝑎) = (𝑇‘𝑎))
69	6	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
70	6	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝐴 ⊆ ℕ)
71	21	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑀 ∈ ℤ)
72	22	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑆 ∈ ℕ₀)
73	20	sselda 3944	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴(repr‘𝑆)𝑀))
74	70, 71, 72, 73	reprf 33225	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐:(0..^𝑆)⟶𝐴)
75	74	ffvelcdmda 7035	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ 𝐴)
76	69, 75	sseldd 3945	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℕ)
77	76	nncnd 12169	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℂ)
78	64, 66, 67, 68, 77	fsumf1o 15608	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
79	78	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
80	70, 71, 72, 73	reprsum 33226	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
81	80	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
82	63, 79, 81	3eqtr2d 2782	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀)
83		fveq1 6841	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
84	83	sumeq2sdv 15589	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑑 → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎))
85	84	eqeq1d 2738	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑑 → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
86	85	elrab 3645	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ↔ (𝑑 ∈ (𝐴 ↑_m (0..^𝑆)) ∧ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
87	48, 82, 86	sylanbrc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
88	23	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
89	87, 88	eleqtrrd 2841	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
90	39	fveq1d 6844	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑‘0) = ((𝑐 ∘ 𝑇)‘0))
91	52	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Fun 𝑇)
92	11, 56	eleqtrrd 2841	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ dom 𝑇)
93	92	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 0 ∈ dom 𝑇)
94		fvco 6939	. . . . . . . . . . . . 13 ⊢ ((Fun 𝑇 ∧ 0 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
95	91, 93, 94	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
96	3, 8, 11, 12	pmtridfv2 31945	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇‘0) = 𝑋)
97	96	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑇‘0) = 𝑋)
98	97	fveq2d 6846	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐‘(𝑇‘0)) = (𝑐‘𝑋))
99		simpr 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ 𝑃)
100	99, 18	eleqtrdi 2848	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
101		rabid 3427	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
102	100, 101	sylib 217	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
103	102	simprd 496	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → ¬ (𝑐‘𝑋) ∈ 𝐵)
104	103	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘𝑋) ∈ 𝐵)
105	98, 104	eqneltrd 2857	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘(𝑇‘0)) ∈ 𝐵)
106	95, 105	eqneltrd 2857	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ ((𝑐 ∘ 𝑇)‘0) ∈ 𝐵)
107	90, 106	eqneltrd 2857	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑑‘0) ∈ 𝐵)
108	89, 107	jca 512	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
109	108	r19.29an 3155	. . . . . . . 8 ⊢ ((𝜑 ∧ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
110	6	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝐴 ⊆ ℕ)
111	21	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑀 ∈ ℤ)
112	22	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑆 ∈ ℕ₀)
113		simpr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
114	110, 111, 112, 113	reprf 33225	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑:(0..^𝑆)⟶𝐴)
115		f1ocnv 6796	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
116		f1of 6784	. . . . . . . . . . . . . . . . . . 19 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
117	13, 115, 116	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
118	117	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ^◡𝑇:(0..^𝑆)⟶(0..^𝑆))
119		fco 6692	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑑:(0..^𝑆)⟶𝐴 ∧ ^◡𝑇:(0..^𝑆)⟶(0..^𝑆)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
120	114, 118, 119	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
121		elmapg 8778	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ V ∧ (0..^𝑆) ∈ V) → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
122	7, 3, 121	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
123	122	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ↔ (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴))
124	120, 123	mpbird 256	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
125	124	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
126		f1ofun 6786	. . . . . . . . . . . . . . . . . . . 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 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ (0..^𝑆))
130		f1odm 6788	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → dom ^◡𝑇 = (0..^𝑆))
131	13, 115, 130	3syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → dom ^◡𝑇 = (0..^𝑆))
132	131	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → dom ^◡𝑇 = (0..^𝑆))
133	129, 132	eleqtrrd 2841	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
134	133	adantlr 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
135		fvco 6939	. . . . . . . . . . . . . . . . . 18 ⊢ ((Fun ^◡𝑇 ∧ 𝑎 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
136	128, 134, 135	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
137	136	sumeq2dv 15588	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
138		fveq2 6842	. . . . . . . . . . . . . . . . 17 ⊢ (𝑏 = (^◡𝑇‘𝑎) → (𝑑‘𝑏) = (𝑑‘(^◡𝑇‘𝑎)))
139	65	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (0..^𝑆) ∈ Fin)
140	13, 115	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
141	140	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
142		eqidd 2737	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → (^◡𝑇‘𝑎) = (^◡𝑇‘𝑎))
143	110	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
144	114	ffvelcdmda 7035	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ 𝐴)
145	143, 144	sseldd 3945	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℕ)
146	145	nncnd 12169	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℂ)
147	138, 139, 141, 142, 146	fsumf1o 15608	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
148	110, 111, 112, 113	reprsum 33226	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = 𝑀)
149	137, 147, 148	3eqtr2d 2782	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
150	149	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
151		fveq1 6841	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑎) = ((𝑑 ∘ ^◡𝑇)‘𝑎))
152	151	sumeq2sdv 15589	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎))
153	152	eqeq1d 2738	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
154	153	elrab 3645	. . . . . . . . . . . . . 14 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
155	125, 150, 154	sylanbrc 583	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
156	23	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
157	155, 156	eleqtrrd 2841	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀))
158	127	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Fun ^◡𝑇)
159	8, 131	eleqtrrd 2841	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ dom ^◡𝑇)
160	159	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → 𝑋 ∈ dom ^◡𝑇)
161		fvco 6939	. . . . . . . . . . . . . 14 ⊢ ((Fun ^◡𝑇 ∧ 𝑋 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
162	158, 160, 161	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
163		f1ocnvfv 7224	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) ∧ 0 ∈ (0..^𝑆)) → ((𝑇‘0) = 𝑋 → (^◡𝑇‘𝑋) = 0))
164	163	imp 407	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) ∧ 0 ∈ (0..^𝑆)) ∧ (𝑇‘0) = 𝑋) → (^◡𝑇‘𝑋) = 0)
165	13, 11, 96, 164	syl21anc 836	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (^◡𝑇‘𝑋) = 0)
166	165	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (^◡𝑇‘𝑋) = 0)
167	166	fveq2d 6846	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑‘(^◡𝑇‘𝑋)) = (𝑑‘0))
168		simpr 485	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘0) ∈ 𝐵)
169	167, 168	eqneltrd 2857	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘(^◡𝑇‘𝑋)) ∈ 𝐵)
170	162, 169	eqneltrd 2857	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵)
171		fveq1 6841	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑋) = ((𝑑 ∘ ^◡𝑇)‘𝑋))
172	171	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → ((𝑐‘𝑋) ∈ 𝐵 ↔ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
173	172	notbid 317	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (¬ (𝑐‘𝑋) ∈ 𝐵 ↔ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
174	173	elrab 3645	. . . . . . . . . . . 12 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
175	157, 170, 174	sylanbrc 583	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
176	175, 18	eleqtrrdi 2849	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
177	176	anasss 467	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
178		simpr 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → 𝑐 = (𝑑 ∘ ^◡𝑇))
179	178	coeq1d 5817	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑐 ∘ 𝑇) = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
180	179	eqeq2d 2747	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑑 = (𝑐 ∘ 𝑇) ↔ 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇)))
181		f1ococnv1 6813	. . . . . . . . . . . . . 14 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
182	13, 181	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
183	182	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (^◡𝑇 ∘ 𝑇) = ( I ↾ (0..^𝑆)))
184	183	coeq2d 5818	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ (^◡𝑇 ∘ 𝑇)) = (𝑑 ∘ ( I ↾ (0..^𝑆))))
185	114	adantrr 715	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑:(0..^𝑆)⟶𝐴)
186		fcoi1 6716	. . . . . . . . . . . 12 ⊢ (𝑑:(0..^𝑆)⟶𝐴 → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
187	185, 186	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
188	184, 187	eqtr2d 2777	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = (𝑑 ∘ (^◡𝑇 ∘ 𝑇)))
189		coass 6217	. . . . . . . . . 10 ⊢ ((𝑑 ∘ ^◡𝑇) ∘ 𝑇) = (𝑑 ∘ (^◡𝑇 ∘ 𝑇))
190	188, 189	eqtr4di 2794	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
191	177, 180, 190	rspcedvd 3583	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇))
192	109, 191	impbida 799	. . . . . . 7 ⊢ (𝜑 → (∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
193	38, 192	bitrd 278	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
194		fveq1 6841	. . . . . . . . 9 ⊢ (𝑐 = 𝑑 → (𝑐‘0) = (𝑑‘0))
195	194	eleq1d 2822	. . . . . . . 8 ⊢ (𝑐 = 𝑑 → ((𝑐‘0) ∈ 𝐵 ↔ (𝑑‘0) ∈ 𝐵))
196	195	notbid 317	. . . . . . 7 ⊢ (𝑐 = 𝑑 → (¬ (𝑐‘0) ∈ 𝐵 ↔ ¬ (𝑑‘0) ∈ 𝐵))
197	196	elrab 3645	. . . . . 6 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵} ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
198	193, 197	bitr4di 288	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}))
199	198	eqrdv 2734	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵})
200		reprpmtf1o.o	. . . 4 ⊢ 𝑂 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}
201	199, 200	eqtr4di 2794	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = 𝑂)
202	34, 35, 201	f1oeq123d 6778	. 2 ⊢ (𝜑 → (((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃):𝑃–1-1-onto→((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝐹:𝑃–1-1-onto→𝑂))
203	30, 202	mpbid 231	1 ⊢ (𝜑 → 𝐹:𝑃–1-1-onto→𝑂)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 396 = wceq 1541 ∈ wcel 2106 ∀wral 3064 ∃wrex 3073 {crab 3407 Vcvv 3445 ⊆ wss 3910 ifcif 4486 {cpr 4588 ↦ cmpt 5188 I cid 5530 ^◡ccnv 5632 dom cdm 5633 ↾ cres 5635 “ cima 5636 ∘ ccom 5637 Fun wfun 6490 ⟶wf 6492 –1-1→wf1 6493 –1-1-onto→wf1o 6495 ‘cfv 6496 (class class class)co 7357 ↑_m cmap 8765 Fincfn 8883 0cc0 11051 ℕcn 12153 ℕ₀cn0 12413 ℤcz 12499 ..^cfzo 13567 Σcsu 15570 pmTrspcpmtr 19223 reprcrepr 33221

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2707 ax-rep 5242 ax-sep 5256 ax-nul 5263 ax-pow 5320 ax-pr 5384 ax-un 7672 ax-inf2 9577 ax-cnex 11107 ax-resscn 11108 ax-1cn 11109 ax-icn 11110 ax-addcl 11111 ax-addrcl 11112 ax-mulcl 11113 ax-mulrcl 11114 ax-mulcom 11115 ax-addass 11116 ax-mulass 11117 ax-distr 11118 ax-i2m1 11119 ax-1ne0 11120 ax-1rid 11121 ax-rnegex 11122 ax-rrecex 11123 ax-cnre 11124 ax-pre-lttri 11125 ax-pre-lttrn 11126 ax-pre-ltadd 11127 ax-pre-mulgt0 11128 ax-pre-sup 11129

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2538 df-eu 2567 df-clab 2714 df-cleq 2728 df-clel 2814 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3065 df-rex 3074 df-rmo 3353 df-reu 3354 df-rab 3408 df-v 3447 df-sbc 3740 df-csb 3856 df-dif 3913 df-un 3915 df-in 3917 df-ss 3927 df-pss 3929 df-nul 4283 df-if 4487 df-pw 4562 df-sn 4587 df-pr 4589 df-op 4593 df-uni 4866 df-int 4908 df-iun 4956 df-br 5106 df-opab 5168 df-mpt 5189 df-tr 5223 df-id 5531 df-eprel 5537 df-po 5545 df-so 5546 df-fr 5588 df-se 5589 df-we 5590 df-xp 5639 df-rel 5640 df-cnv 5641 df-co 5642 df-dm 5643 df-rn 5644 df-res 5645 df-ima 5646 df-pred 6253 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6498 df-fn 6499 df-f 6500 df-f1 6501 df-fo 6502 df-f1o 6503 df-fv 6504 df-isom 6505 df-riota 7313 df-ov 7360 df-oprab 7361 df-mpo 7362 df-om 7803 df-1st 7921 df-2nd 7922 df-frecs 8212 df-wrecs 8243 df-recs 8317 df-rdg 8356 df-1o 8412 df-2o 8413 df-er 8648 df-map 8767 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-sup 9378 df-oi 9446 df-card 9875 df-pnf 11191 df-mnf 11192 df-xr 11193 df-ltxr 11194 df-le 11195 df-sub 11387 df-neg 11388 df-div 11813 df-nn 12154 df-2 12216 df-3 12217 df-n0 12414 df-z 12500 df-uz 12764 df-rp 12916 df-fz 13425 df-fzo 13568 df-seq 13907 df-exp 13968 df-hash 14231 df-cj 14984 df-re 14985 df-im 14986 df-sqrt 15120 df-abs 15121 df-clim 15370 df-sum 15571 df-pmtr 19224 df-repr 33222

This theorem is referenced by: hgt750lema 33270

W3C validator