Theorem evl1fval 22626

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 6892	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V)
3		id 23	. . . . . . . . 9 ⊢ (𝑏 = (Base‘𝑟) → 𝑏 = (Base‘𝑟))
4		fveq2 6877	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5		evl1fval.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝑅)
6	4, 5	eqtr4di 2814	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
7	3, 6	sylan9eqr 2818	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑏 = 𝐵)
8	7	oveq1d 7427	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m 1o) = (𝐵 ↑m 1o))
9	7, 8	oveq12d 7430	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m (𝑏 ↑m 1o)) = (𝐵 ↑m (𝐵 ↑m 1o)))
10	7	mpteq1d 5195	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})) = (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))
11	10	coeq2d 5840	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦}))) = (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦}))))
12	9, 11	mpteq12dv 5192	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) = (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))))
13		simpl 488	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑟 = 𝑅)
14	13	oveq2d 7428	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (1o eval 𝑟) = (1o eval 𝑅))
15		evl1fval.q	. . . . . . 7 ⊢ 𝑄 = (1o eval 𝑅)
16	14, 15	eqtr4di 2814	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (1o eval 𝑟) = 𝑄)
17	12, 16	coeq12d 5842	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → ((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
18	2, 17	csbied 3883	. . . 4 ⊢ (𝑟 = 𝑅 → ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
19		df-evl1 22614	. . . 4 ⊢ eval1 = (𝑟 ∈ V ↦ ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)))
20		ovex 7445	. . . . . 6 ⊢ (𝐵 ↑m (𝐵 ↑m 1o)) ∈ V
21	20	mptex 7221	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ V
22	15	ovexi 7446	. . . . 5 ⊢ 𝑄 ∈ V
23	21, 22	coex 7931	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) ∈ V
24	18, 19, 23	fvmpt 6985	. . 3 ⊢ (𝑅 ∈ V → (eval1‘𝑅) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
25	1, 24	eqtrid 2808	. 2 ⊢ (𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
26		fvprc 6869	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (eval1‘𝑅) = ∅)
27	1, 26	eqtrid 2808	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ∅)
28		co02 6255	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅) = ∅
29	27, 28	eqtr4di 2814	. . 3 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
30		df-evl 22364	. . . . . . 7 ⊢ eval = (𝑖 ∈ V, 𝑟 ∈ V ↦ ((𝑖 evalSub 𝑟)‘(Base‘𝑟)))
31	30	reldmmpo 7546	. . . . . 6 ⊢ Rel dom eval
32	31	ovprc2 7452	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (1o eval 𝑅) = ∅)
33	15, 32	eqtrid 2808	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑄 = ∅)
34	33	coeq2d 5840	. . 3 ⊢ (¬ 𝑅 ∈ V → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
35	29, 34	eqtr4d 2799	. 2 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
36	25, 35	pm2.61i 184	1 ⊢ 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄)

This proof depends on syntax axioms:  ¬ wn 3   ∧ wa 401   = wceq 1570   ∈ wcel 2145  Vcvv 3451  ⦋csb 3847  ∅c0 4279  {csn 4584   ↦ cmpt 5186   × cxp 5649   ∘ ccom 5655  ‘cfv 6531  (class class class)co 7412  1_oc1o 8453   ↑_m cmap 8831  Basecbs 17367   evalSub ces 22361   eval cevl 22362  eval₁ce1 22612

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-ov 7415  df-oprab 7416  df-mpo 7417  df-evl 22364  df-evl1 22614

This theorem is used by:  evl1val  22627  evl1fval1lem  22628  evl1rhm  22630  pf1rcl  22647