Theorem evl1fval 22348

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 6922	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V)
3		id 22	. . . . . . . . 9 ⊢ (𝑏 = (Base‘𝑟) → 𝑏 = (Base‘𝑟))
4		fveq2 6907	. . . . . . . . . 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 7446	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m 1o) = (𝐵 ↑m 1o))
9	7, 8	oveq12d 7449	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m (𝑏 ↑m 1o)) = (𝐵 ↑m (𝐵 ↑m 1o)))
10	7	mpteq1d 5243	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})) = (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))
11	10	coeq2d 5876	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦}))) = (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦}))))
12	9, 11	mpteq12dv 5239	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) = (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))))
13		simpl 482	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑟 = 𝑅)
14	13	oveq2d 7447	. . . . . . 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 5878	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → ((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
18	2, 17	csbied 3946	. . . 4 ⊢ (𝑟 = 𝑅 → ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
19		df-evl1 22336	. . . 4 ⊢ eval1 = (𝑟 ∈ V ↦ ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)))
20		ovex 7464	. . . . . 6 ⊢ (𝐵 ↑m (𝐵 ↑m 1o)) ∈ V
21	20	mptex 7243	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ V
22	15	ovexi 7465	. . . . 5 ⊢ 𝑄 ∈ V
23	21, 22	coex 7953	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) ∈ V
24	18, 19, 23	fvmpt 7016	. . 3 ⊢ (𝑅 ∈ V → (eval1‘𝑅) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
25	1, 24	eqtrid 2787	. 2 ⊢ (𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
26		fvprc 6899	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (eval1‘𝑅) = ∅)
27	1, 26	eqtrid 2787	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ∅)
28		co02 6282	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅) = ∅
29	27, 28	eqtr4di 2793	. . 3 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
30		df-evl 22117	. . . . . . 7 ⊢ eval = (𝑖 ∈ V, 𝑟 ∈ V ↦ ((𝑖 evalSub 𝑟)‘(Base‘𝑟)))
31	30	reldmmpo 7567	. . . . . 6 ⊢ Rel dom eval
32	31	ovprc2 7471	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (1o eval 𝑅) = ∅)
33	15, 32	eqtrid 2787	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑄 = ∅)
34	33	coeq2d 5876	. . 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 182	1 ⊢ 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄)

Syntax hints:  ¬ wn 3   ∧ wa 395   = wceq 1537   ∈ wcel 2106  Vcvv 3478  ⦋csb 3908  ∅c0 4339  {csn 4631   ↦ cmpt 5231   × cxp 5687   ∘ ccom 5693  ‘cfv 6563  (class class class)co 7431  1_oc1o 8498   ↑_m cmap 8865  Basecbs 17245   evalSub ces 22114   eval cevl 22115  eval₁ce1 22334

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-ov 7434  df-oprab 7435  df-mpo 7436  df-evl 22117  df-evl1 22336

This theorem is referenced by:  evl1val  22349  evl1fval1lem  22350  evl1rhm  22352  pf1rcl  22369