MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  selvffval Structured version   Visualization version   GIF version

Theorem selvffval 20305
Description: Value of the "variable selection" function. (Contributed by SN, 4-Nov-2023.)
Hypotheses
Ref Expression
selvffval.i (𝜑𝐼𝑉)
selvffval.r (𝜑𝑅𝑊)
Assertion
Ref Expression
selvffval (𝜑 → (𝐼 selectVars 𝑅) = (𝑗 ∈ 𝒫 𝐼 ↦ (𝑓 ∈ (Base‘(𝐼 mPoly 𝑅)) ↦ ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))))
Distinct variable groups:   𝑗,𝐼,𝑓,𝑢,𝑡,𝑐,𝑑,𝑥   𝑅,𝑗,𝑓,𝑢,𝑡,𝑐,𝑑,𝑥
Allowed substitution hints:   𝜑(𝑥,𝑢,𝑡,𝑓,𝑗,𝑐,𝑑)   𝑉(𝑥,𝑢,𝑡,𝑓,𝑗,𝑐,𝑑)   𝑊(𝑥,𝑢,𝑡,𝑓,𝑗,𝑐,𝑑)

Proof of Theorem selvffval
Dummy variables 𝑖 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-selv 20301 . . 3 selectVars = (𝑖 ∈ V, 𝑟 ∈ V ↦ (𝑗 ∈ 𝒫 𝑖 ↦ (𝑓 ∈ (Base‘(𝑖 mPoly 𝑟)) ↦ ((𝑖𝑗) mPoly 𝑟) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))))))
21a1i 11 . 2 (𝜑 → selectVars = (𝑖 ∈ V, 𝑟 ∈ V ↦ (𝑗 ∈ 𝒫 𝑖 ↦ (𝑓 ∈ (Base‘(𝑖 mPoly 𝑟)) ↦ ((𝑖𝑗) mPoly 𝑟) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥)))))))))
3 pweq 4528 . . . . 5 (𝑖 = 𝐼 → 𝒫 𝑖 = 𝒫 𝐼)
43adantr 484 . . . 4 ((𝑖 = 𝐼𝑟 = 𝑅) → 𝒫 𝑖 = 𝒫 𝐼)
5 oveq12 7139 . . . . . 6 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑖 mPoly 𝑟) = (𝐼 mPoly 𝑅))
65fveq2d 6647 . . . . 5 ((𝑖 = 𝐼𝑟 = 𝑅) → (Base‘(𝑖 mPoly 𝑟)) = (Base‘(𝐼 mPoly 𝑅)))
7 difeq1 4068 . . . . . . . 8 (𝑖 = 𝐼 → (𝑖𝑗) = (𝐼𝑗))
87adantr 484 . . . . . . 7 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑖𝑗) = (𝐼𝑗))
9 simpr 488 . . . . . . 7 ((𝑖 = 𝐼𝑟 = 𝑅) → 𝑟 = 𝑅)
108, 9oveq12d 7148 . . . . . 6 ((𝑖 = 𝐼𝑟 = 𝑅) → ((𝑖𝑗) mPoly 𝑟) = ((𝐼𝑗) mPoly 𝑅))
11 oveq1 7137 . . . . . . . . . . . . 13 (𝑖 = 𝐼 → (𝑖 evalSub 𝑡) = (𝐼 evalSub 𝑡))
1211adantr 484 . . . . . . . . . . . 12 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑖 evalSub 𝑡) = (𝐼 evalSub 𝑡))
1312fveq1d 6645 . . . . . . . . . . 11 ((𝑖 = 𝐼𝑟 = 𝑅) → ((𝑖 evalSub 𝑡)‘ran 𝑑) = ((𝐼 evalSub 𝑡)‘ran 𝑑))
1413fveq1d 6645 . . . . . . . . . 10 ((𝑖 = 𝐼𝑟 = 𝑅) → (((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓)) = (((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓)))
15 simpl 486 . . . . . . . . . . 11 ((𝑖 = 𝐼𝑟 = 𝑅) → 𝑖 = 𝐼)
168, 9oveq12d 7148 . . . . . . . . . . . . . 14 ((𝑖 = 𝐼𝑟 = 𝑅) → ((𝑖𝑗) mVar 𝑟) = ((𝐼𝑗) mVar 𝑅))
1716fveq1d 6645 . . . . . . . . . . . . 13 ((𝑖 = 𝐼𝑟 = 𝑅) → (((𝑖𝑗) mVar 𝑟)‘𝑥) = (((𝐼𝑗) mVar 𝑅)‘𝑥))
1817fveq2d 6647 . . . . . . . . . . . 12 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥)) = (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥)))
1918ifeq2d 4459 . . . . . . . . . . 11 ((𝑖 = 𝐼𝑟 = 𝑅) → if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))) = if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))
2015, 19mpteq12dv 5124 . . . . . . . . . 10 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥)))) = (𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥)))))
2114, 20fveq12d 6650 . . . . . . . . 9 ((𝑖 = 𝐼𝑟 = 𝑅) → ((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))) = ((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))
2221csbeq2dv 3864 . . . . . . . 8 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))) = (𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))
2322csbeq2dv 3864 . . . . . . 7 ((𝑖 = 𝐼𝑟 = 𝑅) → (algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))) = (algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))
2423csbeq2dv 3864 . . . . . 6 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))) = (𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))
2510, 24csbeq12dv 3866 . . . . 5 ((𝑖 = 𝐼𝑟 = 𝑅) → ((𝑖𝑗) mPoly 𝑟) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))) = ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))
266, 25mpteq12dv 5124 . . . 4 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑓 ∈ (Base‘(𝑖 mPoly 𝑟)) ↦ ((𝑖𝑗) mPoly 𝑟) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥)))))) = (𝑓 ∈ (Base‘(𝐼 mPoly 𝑅)) ↦ ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥)))))))
274, 26mpteq12dv 5124 . . 3 ((𝑖 = 𝐼𝑟 = 𝑅) → (𝑗 ∈ 𝒫 𝑖 ↦ (𝑓 ∈ (Base‘(𝑖 mPoly 𝑟)) ↦ ((𝑖𝑗) mPoly 𝑟) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))))) = (𝑗 ∈ 𝒫 𝐼 ↦ (𝑓 ∈ (Base‘(𝐼 mPoly 𝑅)) ↦ ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))))
2827adantl 485 . 2 ((𝜑 ∧ (𝑖 = 𝐼𝑟 = 𝑅)) → (𝑗 ∈ 𝒫 𝑖 ↦ (𝑓 ∈ (Base‘(𝑖 mPoly 𝑟)) ↦ ((𝑖𝑗) mPoly 𝑟) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝑖 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝑖 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝑖𝑗) mVar 𝑟)‘𝑥))))))) = (𝑗 ∈ 𝒫 𝐼 ↦ (𝑓 ∈ (Base‘(𝐼 mPoly 𝑅)) ↦ ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))))
29 selvffval.i . . 3 (𝜑𝐼𝑉)
3029elexd 3491 . 2 (𝜑𝐼 ∈ V)
31 selvffval.r . . 3 (𝜑𝑅𝑊)
3231elexd 3491 . 2 (𝜑𝑅 ∈ V)
3329pwexd 5253 . . 3 (𝜑 → 𝒫 𝐼 ∈ V)
3433mptexd 6960 . 2 (𝜑 → (𝑗 ∈ 𝒫 𝐼 ↦ (𝑓 ∈ (Base‘(𝐼 mPoly 𝑅)) ↦ ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))) ∈ V)
352, 28, 30, 32, 34ovmpod 7276 1 (𝜑 → (𝐼 selectVars 𝑅) = (𝑗 ∈ 𝒫 𝐼 ↦ (𝑓 ∈ (Base‘(𝐼 mPoly 𝑅)) ↦ ((𝐼𝑗) mPoly 𝑅) / 𝑢(𝑗 mPoly 𝑢) / 𝑡(algSc‘𝑡) / 𝑐(𝑐 ∘ (algSc‘𝑢)) / 𝑑((((𝐼 evalSub 𝑡)‘ran 𝑑)‘(𝑑𝑓))‘(𝑥𝐼 ↦ if(𝑥𝑗, ((𝑗 mVar 𝑢)‘𝑥), (𝑐‘(((𝐼𝑗) mVar 𝑅)‘𝑥))))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 399   = wceq 1538  wcel 2115  Vcvv 3471  csb 3857  cdif 3907  ifcif 4440  𝒫 cpw 4512  cmpt 5119  ran crn 5529  ccom 5532  cfv 6328  (class class class)co 7130  cmpo 7132  Basecbs 16462  algSccascl 20060   mVar cmvr 20108   mPoly cmpl 20109   evalSub ces 20260   selectVars cslv 20297
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2178  ax-ext 2793  ax-rep 5163  ax-sep 5176  ax-nul 5183  ax-pow 5239  ax-pr 5303
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2071  df-mo 2623  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2892  df-nfc 2960  df-ne 3008  df-ral 3131  df-rex 3132  df-reu 3133  df-rab 3135  df-v 3473  df-sbc 3750  df-csb 3858  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4267  df-if 4441  df-pw 4514  df-sn 4541  df-pr 4543  df-op 4547  df-uni 4812  df-iun 4894  df-br 5040  df-opab 5102  df-mpt 5120  df-id 5433  df-xp 5534  df-rel 5535  df-cnv 5536  df-co 5537  df-dm 5538  df-rn 5539  df-res 5540  df-ima 5541  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-ov 7133  df-oprab 7134  df-mpo 7135  df-selv 20301
This theorem is referenced by:  selvfval  20306
  Copyright terms: Public domain W3C validator