Theorem evl1fval 22321

Description: Value of the simple/same ring evaluation map. (Contributed by Mario Carneiro, 12-Jun-2015.)

Hypotheses

Ref	Expression
evl1fval.o	⊢ 𝑂 = (eval1‘𝑅)
evl1fval.q	⊢ 𝑄 = (1o eval 𝑅)
evl1fval.b	⊢ 𝐵 = (Base‘𝑅)

Assertion

Ref	Expression
evl1fval	⊢ 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄)

Distinct variable groups:   𝑥,𝑦,𝐵   𝑥,𝑄   𝑥,𝑅

Allowed substitution hints:   𝑄(𝑦)   𝑅(𝑦)   𝑂(𝑥,𝑦)

Proof of Theorem evl1fval

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

Step	Hyp	Ref	Expression
1		evl1fval.o	. . 3 ⊢ 𝑂 = (eval1‘𝑅)
2		fvexd 6849	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V)
3		id 22	. . . . . . . . 9 ⊢ (𝑏 = (Base‘𝑟) → 𝑏 = (Base‘𝑟))
4		fveq2 6834	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5		evl1fval.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝑅)
6	4, 5	eqtr4di 2793	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
7	3, 6	sylan9eqr 2797	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑏 = 𝐵)
8	7	oveq1d 7378	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m 1o) = (𝐵 ↑m 1o))
9	7, 8	oveq12d 7381	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m (𝑏 ↑m 1o)) = (𝐵 ↑m (𝐵 ↑m 1o)))
10	7	mpteq1d 5169	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})) = (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))
11	10	coeq2d 5811	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦}))) = (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦}))))
12	9, 11	mpteq12dv 5166	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) = (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))))
13		simpl 483	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑟 = 𝑅)
14	13	oveq2d 7379	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (1o eval 𝑟) = (1o eval 𝑅))
15		evl1fval.q	. . . . . . 7 ⊢ 𝑄 = (1o eval 𝑅)
16	14, 15	eqtr4di 2793	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (1o eval 𝑟) = 𝑄)
17	12, 16	coeq12d 5813	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → ((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
18	2, 17	csbied 3874	. . . 4 ⊢ (𝑟 = 𝑅 → ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
19		df-evl1 22309	. . . 4 ⊢ eval1 = (𝑟 ∈ V ↦ ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)))
20		ovex 7396	. . . . . 6 ⊢ (𝐵 ↑m (𝐵 ↑m 1o)) ∈ V
21	20	mptex 7174	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ V
22	15	ovexi 7397	. . . . 5 ⊢ 𝑄 ∈ V
23	21, 22	coex 7877	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) ∈ V
24	18, 19, 23	fvmpt 6942	. . 3 ⊢ (𝑅 ∈ V → (eval1‘𝑅) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
25	1, 24	eqtrid 2787	. 2 ⊢ (𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
26		fvprc 6826	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (eval1‘𝑅) = ∅)
27	1, 26	eqtrid 2787	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ∅)
28		co02 6219	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅) = ∅
29	27, 28	eqtr4di 2793	. . 3 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
30		df-evl 22058	. . . . . . 7 ⊢ eval = (𝑖 ∈ V, 𝑟 ∈ V ↦ ((𝑖 evalSub 𝑟)‘(Base‘𝑟)))
31	30	reldmmpo 7497	. . . . . 6 ⊢ Rel dom eval
32	31	ovprc2 7403	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (1o eval 𝑅) = ∅)
33	15, 32	eqtrid 2787	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑄 = ∅)
34	33	coeq2d 5811	. . 3 ⊢ (¬ 𝑅 ∈ V → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
35	29, 34	eqtr4d 2778	. 2 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
36	25, 35	pm2.61i 183	1 ⊢ 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄)

Syntax hints:  ¬ wn 3   ∧ wa 396   = wceq 1547   ∈ wcel 2119  Vcvv 3432  ⦋csb 3838  ∅c0 4268  {csn 4562   ↦ cmpt 5160   × cxp 5623   ∘ ccom 5629  ‘cfv 6492  (class class class)co 7363  1_oc1o 8395   ↑_m cmap 8770  Basecbs 17177   evalSub ces 22055   eval cevl 22056  eval₁ce1 22307

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-ov 7366  df-oprab 7367  df-mpo 7368  df-evl 22058  df-evl1 22309

This theorem is referenced by:  evl1val  22322  evl1fval1lem  22323  evl1rhm  22325  pf1rcl  22342