Theorem evl1fval 22353

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 6935	. . . . 5 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) ∈ V)
3		id 22	. . . . . . . . 9 ⊢ (𝑏 = (Base‘𝑟) → 𝑏 = (Base‘𝑟))
4		fveq2 6920	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5		evl1fval.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝑅)
6	4, 5	eqtr4di 2798	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
7	3, 6	sylan9eqr 2802	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑏 = 𝐵)
8	7	oveq1d 7463	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m 1o) = (𝐵 ↑m 1o))
9	7, 8	oveq12d 7466	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑏 ↑m (𝑏 ↑m 1o)) = (𝐵 ↑m (𝐵 ↑m 1o)))
10	7	mpteq1d 5261	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})) = (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))
11	10	coeq2d 5887	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦}))) = (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦}))))
12	9, 11	mpteq12dv 5257	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) = (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))))
13		simpl 482	. . . . . . . 8 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → 𝑟 = 𝑅)
14	13	oveq2d 7464	. . . . . . 7 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (1o eval 𝑟) = (1o eval 𝑅))
15		evl1fval.q	. . . . . . 7 ⊢ 𝑄 = (1o eval 𝑅)
16	14, 15	eqtr4di 2798	. . . . . 6 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → (1o eval 𝑟) = 𝑄)
17	12, 16	coeq12d 5889	. . . . 5 ⊢ ((𝑟 = 𝑅 ∧ 𝑏 = (Base‘𝑟)) → ((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
18	2, 17	csbied 3959	. . . 4 ⊢ (𝑟 = 𝑅 → ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
19		df-evl1 22341	. . . 4 ⊢ eval1 = (𝑟 ∈ V ↦ ⦋(Base‘𝑟) / 𝑏⦌((𝑥 ∈ (𝑏 ↑m (𝑏 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝑏 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑟)))
20		ovex 7481	. . . . . 6 ⊢ (𝐵 ↑m (𝐵 ↑m 1o)) ∈ V
21	20	mptex 7260	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ V
22	15	ovexi 7482	. . . . 5 ⊢ 𝑄 ∈ V
23	21, 22	coex 7970	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) ∈ V
24	18, 19, 23	fvmpt 7029	. . 3 ⊢ (𝑅 ∈ V → (eval1‘𝑅) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
25	1, 24	eqtrid 2792	. 2 ⊢ (𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄))
26		fvprc 6912	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (eval1‘𝑅) = ∅)
27	1, 26	eqtrid 2792	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ∅)
28		co02 6291	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅) = ∅
29	27, 28	eqtr4di 2798	. . 3 ⊢ (¬ 𝑅 ∈ V → 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
30		df-evl 22122	. . . . . . 7 ⊢ eval = (𝑖 ∈ V, 𝑟 ∈ V ↦ ((𝑖 evalSub 𝑟)‘(Base‘𝑟)))
31	30	reldmmpo 7584	. . . . . 6 ⊢ Rel dom eval
32	31	ovprc2 7488	. . . . 5 ⊢ (¬ 𝑅 ∈ V → (1o eval 𝑅) = ∅)
33	15, 32	eqtrid 2792	. . . 4 ⊢ (¬ 𝑅 ∈ V → 𝑄 = ∅)
34	33	coeq2d 5887	. . 3 ⊢ (¬ 𝑅 ∈ V → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ 𝑄) = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ ∅))
35	29, 34	eqtr4d 2783	. 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 2108  Vcvv 3488  ⦋csb 3921  ∅c0 4352  {csn 4648   ↦ cmpt 5249   × cxp 5698   ∘ ccom 5704  ‘cfv 6573  (class class class)co 7448  1_oc1o 8515   ↑_m cmap 8884  Basecbs 17258   evalSub ces 22119   eval cevl 22120  eval₁ce1 22339

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-ov 7451  df-oprab 7452  df-mpo 7453  df-evl 22122  df-evl1 22341

This theorem is referenced by:  evl1val  22354  evl1fval1lem  22355  evl1rhm  22357  pf1rcl  22374