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 31899

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 2823	. . . . 5 ⊢ (𝐴 ↑_m (0..^𝑆)) = (𝐴 ↑_m (0..^𝑆))
2		eqid 2823	. . . . 5 ⊢ (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) = (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇))
3		ovexd 7193	. . . . 5 ⊢ (𝜑 → (0..^𝑆) ∈ V)
4		nnex 11646	. . . . . . 7 ⊢ ℕ ∈ V
5	4	a1i 11	. . . . . 6 ⊢ (𝜑 → ℕ ∈ V)
6		reprpmtf1o.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ⊆ ℕ)
7	5, 6	ssexd 5230	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ V)
8		reprpmtf1o.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ (0..^𝑆))
9		reprpmtf1o.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℕ)
10		lbfzo0 13080	. . . . . . 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 30738	. . . . 5 ⊢ (𝜑 → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
14	1, 1, 2, 3, 3, 7, 13	fmptco1f1o 30380	. . . 4 ⊢ (𝜑 → (𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)):(𝐴 ↑_m (0..^𝑆))–1-1-onto→(𝐴 ↑_m (0..^𝑆)))
15		f1of1 6616	. . . 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 4058	. . . . . 6 ⊢ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀} ⊆ (𝐴 ↑_m (0..^𝑆))
18		reprpmtf1o.p	. . . . . . . . . 10 ⊢ 𝑃 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵}
19	18	ssrab3 4059	. . . . . . . . 9 ⊢ 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀)
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ⊆ (𝐴(repr‘𝑆)𝑀))
21		reprpmtf1o.m	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℤ)
22	9	nnnn0d 11958	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ ℕ₀)
23	6, 21, 22	reprval 31883	. . . . . . . 8 ⊢ (𝜑 → (𝐴(repr‘𝑆)𝑀) = {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
24	20, 23	sseqtrd 4009	. . . . . . 7 ⊢ (𝜑 → 𝑃 ⊆ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
25	24	sselda 3969	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ∣ Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀})
26	17, 25	sseldi 3967	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆)))
27	26	ex 415	. . . 4 ⊢ (𝜑 → (𝑐 ∈ 𝑃 → 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))))
28	27	ssrdv 3975	. . 3 ⊢ (𝜑 → 𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)))
29		f1ores 6631	. . 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 5907	. . . . 5 ⊢ (𝑃 ⊆ (𝐴 ↑_m (0..^𝑆)) → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
32	28, 31	syl 17	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇)))
33		reprpmtf1o.f	. . . 4 ⊢ 𝐹 = (𝑐 ∈ 𝑃 ↦ (𝑐 ∘ 𝑇))
34	32, 33	syl6eqr 2876	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) ↾ 𝑃) = 𝐹)
35		eqidd 2824	. . 3 ⊢ (𝜑 → 𝑃 = 𝑃)
36		vex 3499	. . . . . . . . 9 ⊢ 𝑑 ∈ V
37	36	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑑 ∈ V)
38	2, 37, 28	elimampt 30385	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇)))
39		simpr 487	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 = (𝑐 ∘ 𝑇))
40		f1of 6617	. . . . . . . . . . . . . . . . 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 6876	. . . . . . . . . . . . . . 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 3208	. . . . . . . . . . . . . 14 ⊢ ((∀𝑐 ∈ (𝐴 ↑_m (0..^𝑆))(𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)) ∧ 𝑐 ∈ (𝐴 ↑_m (0..^𝑆))) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
47	44, 45, 46	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐 ∘ 𝑇) ∈ (𝐴 ↑_m (0..^𝑆)))
48	39, 47	eqeltrd 2915	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴 ↑_m (0..^𝑆)))
49	39	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑑 = (𝑐 ∘ 𝑇))
50	49	fveq1d 6674	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = ((𝑐 ∘ 𝑇)‘𝑎))
51		f1ofun 6619	. . . . . . . . . . . . . . . . . . 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 6621	. . . . . . . . . . . . . . . . . . . 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 2918	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom 𝑇)
59		fvco 6761	. . . . . . . . . . . . . . . . 17 ⊢ ((Fun 𝑇 ∧ 𝑎 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
60	53, 58, 59	syl2anc 586	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
61	60	adantlr 713	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑐 ∘ 𝑇)‘𝑎) = (𝑐‘(𝑇‘𝑎)))
62	50, 61	eqtrd 2858	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) ∧ 𝑎 ∈ (0..^𝑆)) → (𝑑‘𝑎) = (𝑐‘(𝑇‘𝑎)))
63	62	sumeq2dv 15062	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
64		fveq2 6672	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = (𝑇‘𝑎) → (𝑐‘𝑏) = (𝑐‘(𝑇‘𝑎)))
65		fzofi 13345	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝑆) ∈ Fin
66	65	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (0..^𝑆) ∈ Fin)
67	13	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
68		eqidd 2824	. . . . . . . . . . . . . . 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 3969	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ (𝐴(repr‘𝑆)𝑀))
74	70, 71, 72, 73	reprf 31885	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐:(0..^𝑆)⟶𝐴)
75	74	ffvelrnda 6853	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ 𝐴)
76	69, 75	sseldd 3970	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℕ)
77	76	nncnd 11656	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑐‘𝑏) ∈ ℂ)
78	64, 66, 67, 68, 77	fsumf1o 15082	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
79	78	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑐‘(𝑇‘𝑎)))
80	70, 71, 72, 73	reprsum 31886	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
81	80	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑏 ∈ (0..^𝑆)(𝑐‘𝑏) = 𝑀)
82	63, 79, 81	3eqtr2d 2864	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀)
83		fveq1 6671	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = 𝑑 → (𝑐‘𝑎) = (𝑑‘𝑎))
84	83	sumeq2sdv 15063	. . . . . . . . . . . . . 14 ⊢ (𝑐 = 𝑑 → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎))
85	84	eqeq1d 2825	. . . . . . . . . . . . 13 ⊢ (𝑐 = 𝑑 → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)(𝑑‘𝑎) = 𝑀))
86	85	elrab 3682	. . . . . . . . . . . 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 2918	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 𝑑 ∈ (𝐴(repr‘𝑆)𝑀))
90	39	fveq1d 6674	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑‘0) = ((𝑐 ∘ 𝑇)‘0))
91	52	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → Fun 𝑇)
92	11, 56	eleqtrrd 2918	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ dom 𝑇)
93	92	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → 0 ∈ dom 𝑇)
94		fvco 6761	. . . . . . . . . . . . 13 ⊢ ((Fun 𝑇 ∧ 0 ∈ dom 𝑇) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
95	91, 93, 94	syl2anc 586	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ((𝑐 ∘ 𝑇)‘0) = (𝑐‘(𝑇‘0)))
96	3, 8, 11, 12	pmtridfv2 30740	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇‘0) = 𝑋)
97	96	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑇‘0) = 𝑋)
98	97	fveq2d 6676	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑐‘(𝑇‘0)) = (𝑐‘𝑋))
99		simpr 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ 𝑃)
100	99, 18	eleqtrdi 2925	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → 𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
101		rabid 3380	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
102	100, 101	sylib 220	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → (𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑐‘𝑋) ∈ 𝐵))
103	102	simprd 498	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝑃) → ¬ (𝑐‘𝑋) ∈ 𝐵)
104	103	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘𝑋) ∈ 𝐵)
105	98, 104	eqneltrd 2934	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑐‘(𝑇‘0)) ∈ 𝐵)
106	95, 105	eqneltrd 2934	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ ((𝑐 ∘ 𝑇)‘0) ∈ 𝐵)
107	90, 106	eqneltrd 2934	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → ¬ (𝑑‘0) ∈ 𝐵)
108	89, 107	jca 514	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝑃) ∧ 𝑑 = (𝑐 ∘ 𝑇)) → (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
109	108	r19.29an 3290	. . . . . . . 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 31885	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → 𝑑:(0..^𝑆)⟶𝐴)
115		f1ocnv 6629	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆) → ^◡𝑇:(0..^𝑆)–1-1-onto→(0..^𝑆))
116		f1of 6617	. . . . . . . . . . . . . . . . . . 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 6533	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑑:(0..^𝑆)⟶𝐴 ∧ ^◡𝑇:(0..^𝑆)⟶(0..^𝑆)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
120	114, 118, 119	syl2anc 586	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → (𝑑 ∘ ^◡𝑇):(0..^𝑆)⟶𝐴)
121		elmapg 8421	. . . . . . . . . . . . . . . . . 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 6619	. . . . . . . . . . . . . . . . . . . 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 6621	. . . . . . . . . . . . . . . . . . . . . 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 2918	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
134	133	adantlr 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → 𝑎 ∈ dom ^◡𝑇)
135		fvco 6761	. . . . . . . . . . . . . . . . . 18 ⊢ ((Fun ^◡𝑇 ∧ 𝑎 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
136	128, 134, 135	syl2anc 586	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → ((𝑑 ∘ ^◡𝑇)‘𝑎) = (𝑑‘(^◡𝑇‘𝑎)))
137	136	sumeq2dv 15062	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
138		fveq2 6672	. . . . . . . . . . . . . . . . 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 2824	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑎 ∈ (0..^𝑆)) → (^◡𝑇‘𝑎) = (^◡𝑇‘𝑎))
143	110	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → 𝐴 ⊆ ℕ)
144	114	ffvelrnda 6853	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ 𝐴)
145	143, 144	sseldd 3970	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℕ)
146	145	nncnd 11656	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ 𝑏 ∈ (0..^𝑆)) → (𝑑‘𝑏) ∈ ℂ)
147	138, 139, 141, 142, 146	fsumf1o 15082	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = Σ𝑎 ∈ (0..^𝑆)(𝑑‘(^◡𝑇‘𝑎)))
148	110, 111, 112, 113	reprsum 31886	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑏 ∈ (0..^𝑆)(𝑑‘𝑏) = 𝑀)
149	137, 147, 148	3eqtr2d 2864	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
150	149	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀)
151		fveq1 6671	. . . . . . . . . . . . . . . . 17 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑎) = ((𝑑 ∘ ^◡𝑇)‘𝑎))
152	151	sumeq2sdv 15063	. . . . . . . . . . . . . . . 16 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎))
153	152	eqeq1d 2825	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (Σ𝑎 ∈ (0..^𝑆)(𝑐‘𝑎) = 𝑀 ↔ Σ𝑎 ∈ (0..^𝑆)((𝑑 ∘ ^◡𝑇)‘𝑎) = 𝑀))
154	153	elrab 3682	. . . . . . . . . . . . . 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 2918	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀))
158	127	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → Fun ^◡𝑇)
159	8, 131	eleqtrrd 2918	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ dom ^◡𝑇)
160	159	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → 𝑋 ∈ dom ^◡𝑇)
161		fvco 6761	. . . . . . . . . . . . . 14 ⊢ ((Fun ^◡𝑇 ∧ 𝑋 ∈ dom ^◡𝑇) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
162	158, 160, 161	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ((𝑑 ∘ ^◡𝑇)‘𝑋) = (𝑑‘(^◡𝑇‘𝑋)))
163		f1ocnvfv 7037	. . . . . . . . . . . . . . . . . 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 6676	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑‘(^◡𝑇‘𝑋)) = (𝑑‘0))
168		simpr 487	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘0) ∈ 𝐵)
169	167, 168	eqneltrd 2934	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ (𝑑‘(^◡𝑇‘𝑋)) ∈ 𝐵)
170	162, 169	eqneltrd 2934	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵)
171		fveq1 6671	. . . . . . . . . . . . . . 15 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (𝑐‘𝑋) = ((𝑑 ∘ ^◡𝑇)‘𝑋))
172	171	eleq1d 2899	. . . . . . . . . . . . . 14 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → ((𝑐‘𝑋) ∈ 𝐵 ↔ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
173	172	notbid 320	. . . . . . . . . . . . 13 ⊢ (𝑐 = (𝑑 ∘ ^◡𝑇) → (¬ (𝑐‘𝑋) ∈ 𝐵 ↔ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
174	173	elrab 3682	. . . . . . . . . . . 12 ⊢ ((𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵} ↔ ((𝑑 ∘ ^◡𝑇) ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ ((𝑑 ∘ ^◡𝑇)‘𝑋) ∈ 𝐵))
175	157, 170, 174	sylanbrc 585	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘𝑋) ∈ 𝐵})
176	175, 18	eleqtrrdi 2926	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ (𝐴(repr‘𝑆)𝑀)) ∧ ¬ (𝑑‘0) ∈ 𝐵) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
177	176	anasss 469	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ^◡𝑇) ∈ 𝑃)
178		simpr 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → 𝑐 = (𝑑 ∘ ^◡𝑇))
179	178	coeq1d 5734	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑐 ∘ 𝑇) = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
180	179	eqeq2d 2834	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) ∧ 𝑐 = (𝑑 ∘ ^◡𝑇)) → (𝑑 = (𝑐 ∘ 𝑇) ↔ 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇)))
181		f1ococnv1 6645	. . . . . . . . . . . . . 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 5735	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ (^◡𝑇 ∘ 𝑇)) = (𝑑 ∘ ( I ↾ (0..^𝑆))))
185	114	adantrr 715	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑:(0..^𝑆)⟶𝐴)
186		fcoi1 6554	. . . . . . . . . . . 12 ⊢ (𝑑:(0..^𝑆)⟶𝐴 → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
187	185, 186	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → (𝑑 ∘ ( I ↾ (0..^𝑆))) = 𝑑)
188	184, 187	eqtr2d 2859	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = (𝑑 ∘ (^◡𝑇 ∘ 𝑇)))
189		coass 6120	. . . . . . . . . 10 ⊢ ((𝑑 ∘ ^◡𝑇) ∘ 𝑇) = (𝑑 ∘ (^◡𝑇 ∘ 𝑇))
190	188, 189	syl6eqr 2876	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → 𝑑 = ((𝑑 ∘ ^◡𝑇) ∘ 𝑇))
191	177, 180, 190	rspcedvd 3628	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)) → ∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇))
192	109, 191	impbida 799	. . . . . . 7 ⊢ (𝜑 → (∃𝑐 ∈ 𝑃 𝑑 = (𝑐 ∘ 𝑇) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
193	38, 192	bitrd 281	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵)))
194		fveq1 6671	. . . . . . . . 9 ⊢ (𝑐 = 𝑑 → (𝑐‘0) = (𝑑‘0))
195	194	eleq1d 2899	. . . . . . . 8 ⊢ (𝑐 = 𝑑 → ((𝑐‘0) ∈ 𝐵 ↔ (𝑑‘0) ∈ 𝐵))
196	195	notbid 320	. . . . . . 7 ⊢ (𝑐 = 𝑑 → (¬ (𝑐‘0) ∈ 𝐵 ↔ ¬ (𝑑‘0) ∈ 𝐵))
197	196	elrab 3682	. . . . . 6 ⊢ (𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵} ↔ (𝑑 ∈ (𝐴(repr‘𝑆)𝑀) ∧ ¬ (𝑑‘0) ∈ 𝐵))
198	193, 197	syl6bbr 291	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) ↔ 𝑑 ∈ {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}))
199	198	eqrdv 2821	. . . 4 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵})
200		reprpmtf1o.o	. . . 4 ⊢ 𝑂 = {𝑐 ∈ (𝐴(repr‘𝑆)𝑀) ∣ ¬ (𝑐‘0) ∈ 𝐵}
201	199, 200	syl6eqr 2876	. . 3 ⊢ (𝜑 → ((𝑐 ∈ (𝐴 ↑_m (0..^𝑆)) ↦ (𝑐 ∘ 𝑇)) “ 𝑃) = 𝑂)
202	34, 35, 201	f1oeq123d 6612	. 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 3140 ∃wrex 3141 {crab 3144 Vcvv 3496 ⊆ wss 3938 ifcif 4469 {cpr 4571 ↦ cmpt 5148 I cid 5461 ^◡ccnv 5556 dom cdm 5557 ↾ cres 5559 “ cima 5560 ∘ ccom 5561 Fun wfun 6351 ⟶wf 6353 –1-1→wf1 6354 –1-1-onto→wf1o 6356 ‘cfv 6357 (class class class)co 7158 ↑_m cmap 8408 Fincfn 8511 0cc0 10539 ℕcn 11640 ℕ₀cn0 11900 ℤcz 11984 ..^cfzo 13036 Σcsu 15044 pmTrspcpmtr 18571 reprcrepr 31881

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 2795 ax-rep 5192 ax-sep 5205 ax-nul 5212 ax-pow 5268 ax-pr 5332 ax-un 7463 ax-inf2 9106 ax-cnex 10595 ax-resscn 10596 ax-1cn 10597 ax-icn 10598 ax-addcl 10599 ax-addrcl 10600 ax-mulcl 10601 ax-mulrcl 10602 ax-mulcom 10603 ax-addass 10604 ax-mulass 10605 ax-distr 10606 ax-i2m1 10607 ax-1ne0 10608 ax-1rid 10609 ax-rnegex 10610 ax-rrecex 10611 ax-cnre 10612 ax-pre-lttri 10613 ax-pre-lttrn 10614 ax-pre-ltadd 10615 ax-pre-mulgt0 10616 ax-pre-sup 10617

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 2802 df-cleq 2816 df-clel 2895 df-nfc 2965 df-ne 3019 df-nel 3126 df-ral 3145 df-rex 3146 df-reu 3147 df-rmo 3148 df-rab 3149 df-v 3498 df-sbc 3775 df-csb 3886 df-dif 3941 df-un 3943 df-in 3945 df-ss 3954 df-pss 3956 df-nul 4294 df-if 4470 df-pw 4543 df-sn 4570 df-pr 4572 df-tp 4574 df-op 4576 df-uni 4841 df-int 4879 df-iun 4923 df-br 5069 df-opab 5131 df-mpt 5149 df-tr 5175 df-id 5462 df-eprel 5467 df-po 5476 df-so 5477 df-fr 5516 df-se 5517 df-we 5518 df-xp 5563 df-rel 5564 df-cnv 5565 df-co 5566 df-dm 5567 df-rn 5568 df-res 5569 df-ima 5570 df-pred 6150 df-ord 6196 df-on 6197 df-lim 6198 df-suc 6199 df-iota 6316 df-fun 6359 df-fn 6360 df-f 6361 df-f1 6362 df-fo 6363 df-f1o 6364 df-fv 6365 df-isom 6366 df-riota 7116 df-ov 7161 df-oprab 7162 df-mpo 7163 df-om 7583 df-1st 7691 df-2nd 7692 df-wrecs 7949 df-recs 8010 df-rdg 8048 df-1o 8104 df-2o 8105 df-oadd 8108 df-er 8291 df-map 8410 df-en 8512 df-dom 8513 df-sdom 8514 df-fin 8515 df-sup 8908 df-oi 8976 df-card 9370 df-pnf 10679 df-mnf 10680 df-xr 10681 df-ltxr 10682 df-le 10683 df-sub 10874 df-neg 10875 df-div 11300 df-nn 11641 df-2 11703 df-3 11704 df-n0 11901 df-z 11985 df-uz 12247 df-rp 12393 df-fz 12896 df-fzo 13037 df-seq 13373 df-exp 13433 df-hash 13694 df-cj 14460 df-re 14461 df-im 14462 df-sqrt 14596 df-abs 14597 df-clim 14847 df-sum 15045 df-pmtr 18572 df-repr 31882

This theorem is referenced by: hgt750lema 31930

W3C validator