Theorem evls1fval 22213

Description: Value of the univariate polynomial evaluation map function. (Contributed by AV, 7-Sep-2019.)

Hypotheses

Ref	Expression
evls1fval.q	⊢ 𝑄 = (𝑆 evalSub1 𝑅)
evls1fval.e	⊢ 𝐸 = (1o evalSub 𝑆)
evls1fval.b	⊢ 𝐵 = (Base‘𝑆)

Assertion

Ref	Expression
evls1fval	⊢ ((𝑆 ∈ 𝑉 ∧ 𝑅 ∈ 𝒫 𝐵) → 𝑄 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)))

Distinct variable group:   𝑥,𝐵,𝑦

Allowed substitution hints:   𝑄(𝑥,𝑦)   𝑅(𝑥,𝑦)   𝑆(𝑥,𝑦)   𝐸(𝑥,𝑦)   𝑉(𝑥,𝑦)

Proof of Theorem evls1fval

Dummy variables 𝑏 𝑟 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		evls1fval.q	. 2 ⊢ 𝑄 = (𝑆 evalSub1 𝑅)
2		elex 3471	. . . 4 ⊢ (𝑆 ∈ 𝑉 → 𝑆 ∈ V)
3	2	adantr 480	. . 3 ⊢ ((𝑆 ∈ 𝑉 ∧ 𝑅 ∈ 𝒫 𝐵) → 𝑆 ∈ V)
4		simpr 484	. . 3 ⊢ ((𝑆 ∈ 𝑉 ∧ 𝑅 ∈ 𝒫 𝐵) → 𝑅 ∈ 𝒫 𝐵)
5		ovex 7423	. . . . . 6 ⊢ (𝐵 ↑m (𝐵 ↑m 1o)) ∈ V
6	5	mptex 7200	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ V
7		fvex 6874	. . . . 5 ⊢ (𝐸‘𝑅) ∈ V
8	6, 7	coex 7909	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)) ∈ V
9	8	a1i 11	. . 3 ⊢ ((𝑆 ∈ 𝑉 ∧ 𝑅 ∈ 𝒫 𝐵) → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)) ∈ V)
10		fveq2 6861	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → (Base‘𝑠) = (Base‘𝑆))
11	10	adantr 480	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → (Base‘𝑠) = (Base‘𝑆))
12		evls1fval.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑆)
13	11, 12	eqtr4di 2783	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → (Base‘𝑠) = 𝐵)
14	13	csbeq1d 3869	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → ⦋(Base‘𝑠) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)) = ⦋𝐵 / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)))
15	12	fvexi 6875	. . . . . . 7 ⊢ 𝐵 ∈ V
16	15	a1i 11	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → 𝐵 ∈ V)
17		id 22	. . . . . . . . . 10 ⊢ (𝑏 = 𝐵 → 𝑏 = 𝐵)
18		oveq1 7397	. . . . . . . . . 10 ⊢ (𝑏 = 𝐵 → (𝑏 ↑m 1o) = (𝐵 ↑m 1o))
19	17, 18	oveq12d 7408	. . . . . . . . 9 ⊢ (𝑏 = 𝐵 → (𝑏 ↑m (𝑏 ↑m 1o)) = (𝐵 ↑m (𝐵 ↑m 1o)))
20		mpteq1 5199	. . . . . . . . . 10 ⊢ (𝑏 = 𝐵 → (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})) = (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))
21	20	coeq2d 5829	. . . . . . . . 9 ⊢ (𝑏 = 𝐵 → (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦}))) = (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦}))))
22	19, 21	mpteq12dv 5197	. . . . . . . 8 ⊢ (𝑏 = 𝐵 → (𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) = (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))))
23	22	coeq1d 5828	. . . . . . 7 ⊢ (𝑏 = 𝐵 → ((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)))
24	23	adantl 481	. . . . . 6 ⊢ (((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) ∧ 𝑏 = 𝐵) → ((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)))
25	16, 24	csbied 3901	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → ⦋𝐵 / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)))
26		oveq2 7398	. . . . . . . . 9 ⊢ (𝑠 = 𝑆 → (1o evalSub 𝑠) = (1o evalSub 𝑆))
27		evls1fval.e	. . . . . . . . 9 ⊢ 𝐸 = (1o evalSub 𝑆)
28	26, 27	eqtr4di 2783	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → (1o evalSub 𝑠) = 𝐸)
29	28	adantr 480	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → (1o evalSub 𝑠) = 𝐸)
30		simpr 484	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → 𝑟 = 𝑅)
31	29, 30	fveq12d 6868	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → ((1o evalSub 𝑠)‘𝑟) = (𝐸‘𝑅))
32	31	coeq2d 5829	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)))
33	14, 25, 32	3eqtrd 2769	. . . 4 ⊢ ((𝑠 = 𝑆 ∧ 𝑟 = 𝑅) → ⦋(Base‘𝑠) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)))
34	10, 12	eqtr4di 2783	. . . . 5 ⊢ (𝑠 = 𝑆 → (Base‘𝑠) = 𝐵)
35	34	pweqd 4583	. . . 4 ⊢ (𝑠 = 𝑆 → 𝒫 (Base‘𝑠) = 𝒫 𝐵)
36		df-evls1 22209	. . . 4 ⊢ evalSub1 = (𝑠 ∈ V, 𝑟 ∈ 𝒫 (Base‘𝑠) ↦ ⦋(Base‘𝑠) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ ((1o evalSub 𝑠)‘𝑟)))
37	33, 35, 36	ovmpox 7545	. . 3 ⊢ ((𝑆 ∈ V ∧ 𝑅 ∈ 𝒫 𝐵 ∧ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)) ∈ V) → (𝑆 evalSub1 𝑅) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)))
38	3, 4, 9, 37	syl3anc 1373	. 2 ⊢ ((𝑆 ∈ 𝑉 ∧ 𝑅 ∈ 𝒫 𝐵) → (𝑆 evalSub1 𝑅) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)))
39	1, 38	eqtrid 2777	1 ⊢ ((𝑆 ∈ 𝑉 ∧ 𝑅 ∈ 𝒫 𝐵) → 𝑄 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (𝐸‘𝑅)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  Vcvv 3450  ⦋csb 3865  𝒫 cpw 4566  {csn 4592   ↦ cmpt 5191   × cxp 5639   ∘ ccom 5645  ‘cfv 6514  (class class class)co 7390  1_oc1o 8430   ↑_m cmap 8802  Basecbs 17186   evalSub ces 21986   evalSub₁ ces1 22207

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-ov 7393  df-oprab 7394  df-mpo 7395  df-evls1 22209

This theorem is referenced by:  evls1val  22214  evls1rhm  22216  evls1sca  22217  evl1fval1lem  22224