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

Theorem mpfind 19476
Description: Prove a property of polynomials by "structural" induction, under a simplified model of structure which loses the sum of products structure. (Contributed by Mario Carneiro, 19-Mar-2015.)
Hypotheses
Ref Expression
mpfind.cb 𝐵 = (Base‘𝑆)
mpfind.cp + = (+g𝑆)
mpfind.ct · = (.r𝑆)
mpfind.cq 𝑄 = ran ((𝐼 evalSub 𝑆)‘𝑅)
mpfind.ad ((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) → 𝜁)
mpfind.mu ((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) → 𝜎)
mpfind.wa (𝑥 = ((𝐵𝑚 𝐼) × {𝑓}) → (𝜓𝜒))
mpfind.wb (𝑥 = (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) → (𝜓𝜃))
mpfind.wc (𝑥 = 𝑓 → (𝜓𝜏))
mpfind.wd (𝑥 = 𝑔 → (𝜓𝜂))
mpfind.we (𝑥 = (𝑓𝑓 + 𝑔) → (𝜓𝜁))
mpfind.wf (𝑥 = (𝑓𝑓 · 𝑔) → (𝜓𝜎))
mpfind.wg (𝑥 = 𝐴 → (𝜓𝜌))
mpfind.co ((𝜑𝑓𝑅) → 𝜒)
mpfind.pr ((𝜑𝑓𝐼) → 𝜃)
mpfind.a (𝜑𝐴𝑄)
Assertion
Ref Expression
mpfind (𝜑𝜌)
Distinct variable groups:   𝜒,𝑥   𝜂,𝑥   𝜑,𝑓,𝑔   𝜓,𝑓,𝑔   𝜌,𝑥   𝜎,𝑥   𝜏,𝑥   𝜃,𝑥   𝜁,𝑥   𝑥,𝐴   𝐵,𝑓,𝑔,𝑥   𝑓,𝐼,𝑔,𝑥   + ,𝑓,𝑔,𝑥   𝑄,𝑓,𝑔   𝑅,𝑓,𝑔   𝑆,𝑓,𝑔   · ,𝑓,𝑔,𝑥
Allowed substitution hints:   𝜑(𝑥)   𝜓(𝑥)   𝜒(𝑓,𝑔)   𝜃(𝑓,𝑔)   𝜏(𝑓,𝑔)   𝜂(𝑓,𝑔)   𝜁(𝑓,𝑔)   𝜎(𝑓,𝑔)   𝜌(𝑓,𝑔)   𝐴(𝑓,𝑔)   𝑄(𝑥)   𝑅(𝑥)   𝑆(𝑥)

Proof of Theorem mpfind
Dummy variables 𝑖 𝑗 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mpfind.a . . . . 5 (𝜑𝐴𝑄)
2 mpfind.cq . . . . 5 𝑄 = ran ((𝐼 evalSub 𝑆)‘𝑅)
31, 2syl6eleq 2708 . . . 4 (𝜑𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
42mpfrcl 19458 . . . . . . . . 9 (𝐴𝑄 → (𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)))
51, 4syl 17 . . . . . . . 8 (𝜑 → (𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)))
6 eqid 2621 . . . . . . . . 9 ((𝐼 evalSub 𝑆)‘𝑅) = ((𝐼 evalSub 𝑆)‘𝑅)
7 eqid 2621 . . . . . . . . 9 (𝐼 mPoly (𝑆s 𝑅)) = (𝐼 mPoly (𝑆s 𝑅))
8 eqid 2621 . . . . . . . . 9 (𝑆s 𝑅) = (𝑆s 𝑅)
9 eqid 2621 . . . . . . . . 9 (𝑆s (𝐵𝑚 𝐼)) = (𝑆s (𝐵𝑚 𝐼))
10 mpfind.cb . . . . . . . . 9 𝐵 = (Base‘𝑆)
116, 7, 8, 9, 10evlsrhm 19461 . . . . . . . 8 ((𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) RingHom (𝑆s (𝐵𝑚 𝐼))))
125, 11syl 17 . . . . . . 7 (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) RingHom (𝑆s (𝐵𝑚 𝐼))))
13 eqid 2621 . . . . . . . 8 (Base‘(𝐼 mPoly (𝑆s 𝑅))) = (Base‘(𝐼 mPoly (𝑆s 𝑅)))
14 eqid 2621 . . . . . . . 8 (Base‘(𝑆s (𝐵𝑚 𝐼))) = (Base‘(𝑆s (𝐵𝑚 𝐼)))
1513, 14rhmf 18666 . . . . . . 7 (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) RingHom (𝑆s (𝐵𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆s 𝑅)))⟶(Base‘(𝑆s (𝐵𝑚 𝐼))))
1612, 15syl 17 . . . . . 6 (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆s 𝑅)))⟶(Base‘(𝑆s (𝐵𝑚 𝐼))))
17 ffn 6012 . . . . . 6 (((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆s 𝑅)))⟶(Base‘(𝑆s (𝐵𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))))
1816, 17syl 17 . . . . 5 (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))))
19 fvelrnb 6210 . . . . 5 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → (𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅) ↔ ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴))
2018, 19syl 17 . . . 4 (𝜑 → (𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅) ↔ ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴))
213, 20mpbid 222 . . 3 (𝜑 → ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴)
22 ffun 6015 . . . . . . . 8 (((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆s 𝑅)))⟶(Base‘(𝑆s (𝐵𝑚 𝐼))) → Fun ((𝐼 evalSub 𝑆)‘𝑅))
2316, 22syl 17 . . . . . . 7 (𝜑 → Fun ((𝐼 evalSub 𝑆)‘𝑅))
2423adantr 481 . . . . . 6 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → Fun ((𝐼 evalSub 𝑆)‘𝑅))
25 eqid 2621 . . . . . . 7 (Base‘(𝑆s 𝑅)) = (Base‘(𝑆s 𝑅))
26 eqid 2621 . . . . . . 7 (𝐼 mVar (𝑆s 𝑅)) = (𝐼 mVar (𝑆s 𝑅))
27 eqid 2621 . . . . . . 7 (+g‘(𝐼 mPoly (𝑆s 𝑅))) = (+g‘(𝐼 mPoly (𝑆s 𝑅)))
28 eqid 2621 . . . . . . 7 (.r‘(𝐼 mPoly (𝑆s 𝑅))) = (.r‘(𝐼 mPoly (𝑆s 𝑅)))
29 eqid 2621 . . . . . . 7 (algSc‘(𝐼 mPoly (𝑆s 𝑅))) = (algSc‘(𝐼 mPoly (𝑆s 𝑅)))
305simp1d 1071 . . . . . . . . . . . 12 (𝜑𝐼 ∈ V)
315simp2d 1072 . . . . . . . . . . . . . 14 (𝜑𝑆 ∈ CRing)
325simp3d 1073 . . . . . . . . . . . . . 14 (𝜑𝑅 ∈ (SubRing‘𝑆))
338subrgcrng 18724 . . . . . . . . . . . . . 14 ((𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)) → (𝑆s 𝑅) ∈ CRing)
3431, 32, 33syl2anc 692 . . . . . . . . . . . . 13 (𝜑 → (𝑆s 𝑅) ∈ CRing)
35 crngring 18498 . . . . . . . . . . . . 13 ((𝑆s 𝑅) ∈ CRing → (𝑆s 𝑅) ∈ Ring)
3634, 35syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑆s 𝑅) ∈ Ring)
377mplring 19392 . . . . . . . . . . . 12 ((𝐼 ∈ V ∧ (𝑆s 𝑅) ∈ Ring) → (𝐼 mPoly (𝑆s 𝑅)) ∈ Ring)
3830, 36, 37syl2anc 692 . . . . . . . . . . 11 (𝜑 → (𝐼 mPoly (𝑆s 𝑅)) ∈ Ring)
3938adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝐼 mPoly (𝑆s 𝑅)) ∈ Ring)
40 simprl 793 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → 𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
41 elpreima 6303 . . . . . . . . . . . . . 14 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓})))
4218, 41syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓})))
4342adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓})))
4440, 43mpbid 222 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}))
4544simpld 475 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
46 simprr 795 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
47 elpreima 6303 . . . . . . . . . . . . . 14 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → (𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})))
4818, 47syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})))
4948adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})))
5046, 49mpbid 222 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))
5150simpld 475 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
5213, 27ringacl 18518 . . . . . . . . . 10 (((𝐼 mPoly (𝑆s 𝑅)) ∈ Ring ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
5339, 45, 51, 52syl3anc 1323 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
54 rhmghm 18665 . . . . . . . . . . . . . 14 (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) RingHom (𝑆s (𝐵𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) GrpHom (𝑆s (𝐵𝑚 𝐼))))
5512, 54syl 17 . . . . . . . . . . . . 13 (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) GrpHom (𝑆s (𝐵𝑚 𝐼))))
5655adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) GrpHom (𝑆s (𝐵𝑚 𝐼))))
57 eqid 2621 . . . . . . . . . . . . 13 (+g‘(𝑆s (𝐵𝑚 𝐼))) = (+g‘(𝑆s (𝐵𝑚 𝐼)))
5813, 27, 57ghmlin 17605 . . . . . . . . . . . 12 ((((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) GrpHom (𝑆s (𝐵𝑚 𝐼))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆s (𝐵𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
5956, 45, 51, 58syl3anc 1323 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆s (𝐵𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
6031adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → 𝑆 ∈ CRing)
61 ovexd 6645 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝐵𝑚 𝐼) ∈ V)
6216adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆s 𝑅)))⟶(Base‘(𝑆s (𝐵𝑚 𝐼))))
6362, 45ffvelrnd 6326 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ (Base‘(𝑆s (𝐵𝑚 𝐼))))
6462, 51ffvelrnd 6326 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ (Base‘(𝑆s (𝐵𝑚 𝐼))))
65 mpfind.cp . . . . . . . . . . . 12 + = (+g𝑆)
669, 14, 60, 61, 63, 64, 65, 57pwsplusgval 16090 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆s (𝐵𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
6759, 66eqtrd 2655 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
68 simpl 473 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → 𝜑)
6918adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))))
70 fnfvelrn 6322 . . . . . . . . . . . . . 14 ((((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
7169, 45, 70syl2anc 692 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
7271, 2syl6eleqr 2709 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄)
7323adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → Fun ((𝐼 evalSub 𝑆)‘𝑅))
74 fvimacnvi 6297 . . . . . . . . . . . . 13 ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓})
7573, 40, 74syl2anc 692 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓})
7672, 75jca 554 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}))
77 fnfvelrn 6322 . . . . . . . . . . . . . 14 ((((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
7869, 51, 77syl2anc 692 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
7978, 2syl6eleqr 2709 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄)
80 fvimacnvi 6297 . . . . . . . . . . . . 13 ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})
8173, 46, 80syl2anc 692 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})
8279, 81jca 554 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))
83 fvex 6168 . . . . . . . . . . . 12 (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ V
84 fvex 6168 . . . . . . . . . . . 12 (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ V
85 eleq1 2686 . . . . . . . . . . . . . . . 16 (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝑓𝑄 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄))
86 vex 3193 . . . . . . . . . . . . . . . . . 18 𝑓 ∈ V
87 mpfind.wc . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑓 → (𝜓𝜏))
8886, 87elab 3338 . . . . . . . . . . . . . . . . 17 (𝑓 ∈ {𝑥𝜓} ↔ 𝜏)
89 eleq1 2686 . . . . . . . . . . . . . . . . 17 (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝑓 ∈ {𝑥𝜓} ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}))
9088, 89syl5bbr 274 . . . . . . . . . . . . . . . 16 (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝜏 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}))
9185, 90anbi12d 746 . . . . . . . . . . . . . . 15 (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → ((𝑓𝑄𝜏) ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓})))
92 eleq1 2686 . . . . . . . . . . . . . . . 16 (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝑔𝑄 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄))
93 vex 3193 . . . . . . . . . . . . . . . . . 18 𝑔 ∈ V
94 mpfind.wd . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑔 → (𝜓𝜂))
9593, 94elab 3338 . . . . . . . . . . . . . . . . 17 (𝑔 ∈ {𝑥𝜓} ↔ 𝜂)
96 eleq1 2686 . . . . . . . . . . . . . . . . 17 (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝑔 ∈ {𝑥𝜓} ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))
9795, 96syl5bbr 274 . . . . . . . . . . . . . . . 16 (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝜂 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))
9892, 97anbi12d 746 . . . . . . . . . . . . . . 15 (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → ((𝑔𝑄𝜂) ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})))
9991, 98bi2anan9 916 . . . . . . . . . . . . . 14 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂)) ↔ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))))
10099anbi2d 739 . . . . . . . . . . . . 13 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) ↔ (𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓})))))
101 ovex 6643 . . . . . . . . . . . . . . 15 (𝑓𝑓 + 𝑔) ∈ V
102 mpfind.we . . . . . . . . . . . . . . 15 (𝑥 = (𝑓𝑓 + 𝑔) → (𝜓𝜁))
103101, 102elab 3338 . . . . . . . . . . . . . 14 ((𝑓𝑓 + 𝑔) ∈ {𝑥𝜓} ↔ 𝜁)
104 oveq12 6624 . . . . . . . . . . . . . . 15 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝑓𝑓 + 𝑔) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
105104eleq1d 2683 . . . . . . . . . . . . . 14 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝑓𝑓 + 𝑔) ∈ {𝑥𝜓} ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓}))
106103, 105syl5bbr 274 . . . . . . . . . . . . 13 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝜁 ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓}))
107100, 106imbi12d 334 . . . . . . . . . . . 12 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) → 𝜁) ↔ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓})))
108 mpfind.ad . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) → 𝜁)
10983, 84, 107, 108vtocl2 3251 . . . . . . . . . . 11 ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓})
11068, 76, 82, 109syl12anc 1321 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓})
11167, 110eqeltrd 2698 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})
112 elpreima 6303 . . . . . . . . . . 11 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → ((𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})))
11318, 112syl 17 . . . . . . . . . 10 (𝜑 → ((𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})))
114113adantr 481 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})))
11553, 111, 114mpbir2and 956 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
116115adantlr 750 . . . . . . 7 (((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
11713, 28ringcl 18501 . . . . . . . . . 10 (((𝐼 mPoly (𝑆s 𝑅)) ∈ Ring ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
11839, 45, 51, 117syl3anc 1323 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
119 eqid 2621 . . . . . . . . . . . . . . 15 (mulGrp‘(𝐼 mPoly (𝑆s 𝑅))) = (mulGrp‘(𝐼 mPoly (𝑆s 𝑅)))
120 eqid 2621 . . . . . . . . . . . . . . 15 (mulGrp‘(𝑆s (𝐵𝑚 𝐼))) = (mulGrp‘(𝑆s (𝐵𝑚 𝐼)))
121119, 120rhmmhm 18662 . . . . . . . . . . . . . 14 (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆s 𝑅)) RingHom (𝑆s (𝐵𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆s 𝑅))) MndHom (mulGrp‘(𝑆s (𝐵𝑚 𝐼)))))
12212, 121syl 17 . . . . . . . . . . . . 13 (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆s 𝑅))) MndHom (mulGrp‘(𝑆s (𝐵𝑚 𝐼)))))
123122adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆s 𝑅))) MndHom (mulGrp‘(𝑆s (𝐵𝑚 𝐼)))))
124119, 13mgpbas 18435 . . . . . . . . . . . . 13 (Base‘(𝐼 mPoly (𝑆s 𝑅))) = (Base‘(mulGrp‘(𝐼 mPoly (𝑆s 𝑅))))
125119, 28mgpplusg 18433 . . . . . . . . . . . . 13 (.r‘(𝐼 mPoly (𝑆s 𝑅))) = (+g‘(mulGrp‘(𝐼 mPoly (𝑆s 𝑅))))
126 eqid 2621 . . . . . . . . . . . . . 14 (.r‘(𝑆s (𝐵𝑚 𝐼))) = (.r‘(𝑆s (𝐵𝑚 𝐼)))
127120, 126mgpplusg 18433 . . . . . . . . . . . . 13 (.r‘(𝑆s (𝐵𝑚 𝐼))) = (+g‘(mulGrp‘(𝑆s (𝐵𝑚 𝐼))))
128124, 125, 127mhmlin 17282 . . . . . . . . . . . 12 ((((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆s 𝑅))) MndHom (mulGrp‘(𝑆s (𝐵𝑚 𝐼)))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆s (𝐵𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
129123, 45, 51, 128syl3anc 1323 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆s (𝐵𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
130 mpfind.ct . . . . . . . . . . . 12 · = (.r𝑆)
1319, 14, 60, 61, 63, 64, 130, 126pwsmulrval 16091 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆s (𝐵𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
132129, 131eqtrd 2655 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
133 ovex 6643 . . . . . . . . . . . . . . 15 (𝑓𝑓 · 𝑔) ∈ V
134 mpfind.wf . . . . . . . . . . . . . . 15 (𝑥 = (𝑓𝑓 · 𝑔) → (𝜓𝜎))
135133, 134elab 3338 . . . . . . . . . . . . . 14 ((𝑓𝑓 · 𝑔) ∈ {𝑥𝜓} ↔ 𝜎)
136 oveq12 6624 . . . . . . . . . . . . . . 15 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝑓𝑓 · 𝑔) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
137136eleq1d 2683 . . . . . . . . . . . . . 14 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝑓𝑓 · 𝑔) ∈ {𝑥𝜓} ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓}))
138135, 137syl5bbr 274 . . . . . . . . . . . . 13 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝜎 ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓}))
139100, 138imbi12d 334 . . . . . . . . . . . 12 ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) → 𝜎) ↔ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓})))
140 mpfind.mu . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑓𝑄𝜏) ∧ (𝑔𝑄𝜂))) → 𝜎)
14183, 84, 139, 140vtocl2 3251 . . . . . . . . . . 11 ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓})
14268, 76, 82, 141syl12anc 1321 . . . . . . . . . 10 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥𝜓})
143132, 142eqeltrd 2698 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})
144 elpreima 6303 . . . . . . . . . . 11 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → ((𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})))
14518, 144syl 17 . . . . . . . . . 10 (𝜑 → ((𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})))
146145adantr 481 . . . . . . . . 9 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → ((𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗)) ∈ {𝑥𝜓})))
147118, 143, 146mpbir2and 956 . . . . . . . 8 ((𝜑 ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
148147adantlr 750 . . . . . . 7 (((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) ∧ (𝑖 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ∧ 𝑗 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆s 𝑅)))𝑗) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
1497mplassa 19394 . . . . . . . . . . . . . 14 ((𝐼 ∈ V ∧ (𝑆s 𝑅) ∈ CRing) → (𝐼 mPoly (𝑆s 𝑅)) ∈ AssAlg)
15030, 34, 149syl2anc 692 . . . . . . . . . . . . 13 (𝜑 → (𝐼 mPoly (𝑆s 𝑅)) ∈ AssAlg)
151 eqid 2621 . . . . . . . . . . . . . 14 (Scalar‘(𝐼 mPoly (𝑆s 𝑅))) = (Scalar‘(𝐼 mPoly (𝑆s 𝑅)))
15229, 151asclrhm 19282 . . . . . . . . . . . . 13 ((𝐼 mPoly (𝑆s 𝑅)) ∈ AssAlg → (algSc‘(𝐼 mPoly (𝑆s 𝑅))) ∈ ((Scalar‘(𝐼 mPoly (𝑆s 𝑅))) RingHom (𝐼 mPoly (𝑆s 𝑅))))
153150, 152syl 17 . . . . . . . . . . . 12 (𝜑 → (algSc‘(𝐼 mPoly (𝑆s 𝑅))) ∈ ((Scalar‘(𝐼 mPoly (𝑆s 𝑅))) RingHom (𝐼 mPoly (𝑆s 𝑅))))
154 eqid 2621 . . . . . . . . . . . . 13 (Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅)))) = (Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅))))
155154, 13rhmf 18666 . . . . . . . . . . . 12 ((algSc‘(𝐼 mPoly (𝑆s 𝑅))) ∈ ((Scalar‘(𝐼 mPoly (𝑆s 𝑅))) RingHom (𝐼 mPoly (𝑆s 𝑅))) → (algSc‘(𝐼 mPoly (𝑆s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆s 𝑅))))
156153, 155syl 17 . . . . . . . . . . 11 (𝜑 → (algSc‘(𝐼 mPoly (𝑆s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆s 𝑅))))
157156adantr 481 . . . . . . . . . 10 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → (algSc‘(𝐼 mPoly (𝑆s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆s 𝑅))))
1587, 30, 34mplsca 19385 . . . . . . . . . . . . 13 (𝜑 → (𝑆s 𝑅) = (Scalar‘(𝐼 mPoly (𝑆s 𝑅))))
159158fveq2d 6162 . . . . . . . . . . . 12 (𝜑 → (Base‘(𝑆s 𝑅)) = (Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅)))))
160159eleq2d 2684 . . . . . . . . . . 11 (𝜑 → (𝑖 ∈ (Base‘(𝑆s 𝑅)) ↔ 𝑖 ∈ (Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅))))))
161160biimpa 501 . . . . . . . . . 10 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → 𝑖 ∈ (Base‘(Scalar‘(𝐼 mPoly (𝑆s 𝑅)))))
162157, 161ffvelrnd 6326 . . . . . . . . 9 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
16330adantr 481 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → 𝐼 ∈ V)
16431adantr 481 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → 𝑆 ∈ CRing)
16532adantr 481 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → 𝑅 ∈ (SubRing‘𝑆))
16610subrgss 18721 . . . . . . . . . . . . . . 15 (𝑅 ∈ (SubRing‘𝑆) → 𝑅𝐵)
16732, 166syl 17 . . . . . . . . . . . . . 14 (𝜑𝑅𝐵)
1688, 10ressbas2 15871 . . . . . . . . . . . . . 14 (𝑅𝐵𝑅 = (Base‘(𝑆s 𝑅)))
169167, 168syl 17 . . . . . . . . . . . . 13 (𝜑𝑅 = (Base‘(𝑆s 𝑅)))
170169eleq2d 2684 . . . . . . . . . . . 12 (𝜑 → (𝑖𝑅𝑖 ∈ (Base‘(𝑆s 𝑅))))
171170biimpar 502 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → 𝑖𝑅)
1726, 7, 8, 10, 29, 163, 164, 165, 171evlssca 19462 . . . . . . . . . 10 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖)) = ((𝐵𝑚 𝐼) × {𝑖}))
173 mpfind.co . . . . . . . . . . . . . 14 ((𝜑𝑓𝑅) → 𝜒)
174173ralrimiva 2962 . . . . . . . . . . . . 13 (𝜑 → ∀𝑓𝑅 𝜒)
175 ovex 6643 . . . . . . . . . . . . . . . . 17 (𝐵𝑚 𝐼) ∈ V
176 snex 4879 . . . . . . . . . . . . . . . . 17 {𝑓} ∈ V
177175, 176xpex 6927 . . . . . . . . . . . . . . . 16 ((𝐵𝑚 𝐼) × {𝑓}) ∈ V
178 mpfind.wa . . . . . . . . . . . . . . . 16 (𝑥 = ((𝐵𝑚 𝐼) × {𝑓}) → (𝜓𝜒))
179177, 178elab 3338 . . . . . . . . . . . . . . 15 (((𝐵𝑚 𝐼) × {𝑓}) ∈ {𝑥𝜓} ↔ 𝜒)
180 sneq 4165 . . . . . . . . . . . . . . . . 17 (𝑓 = 𝑖 → {𝑓} = {𝑖})
181180xpeq2d 5109 . . . . . . . . . . . . . . . 16 (𝑓 = 𝑖 → ((𝐵𝑚 𝐼) × {𝑓}) = ((𝐵𝑚 𝐼) × {𝑖}))
182181eleq1d 2683 . . . . . . . . . . . . . . 15 (𝑓 = 𝑖 → (((𝐵𝑚 𝐼) × {𝑓}) ∈ {𝑥𝜓} ↔ ((𝐵𝑚 𝐼) × {𝑖}) ∈ {𝑥𝜓}))
183179, 182syl5bbr 274 . . . . . . . . . . . . . 14 (𝑓 = 𝑖 → (𝜒 ↔ ((𝐵𝑚 𝐼) × {𝑖}) ∈ {𝑥𝜓}))
184183cbvralv 3163 . . . . . . . . . . . . 13 (∀𝑓𝑅 𝜒 ↔ ∀𝑖𝑅 ((𝐵𝑚 𝐼) × {𝑖}) ∈ {𝑥𝜓})
185174, 184sylib 208 . . . . . . . . . . . 12 (𝜑 → ∀𝑖𝑅 ((𝐵𝑚 𝐼) × {𝑖}) ∈ {𝑥𝜓})
186185r19.21bi 2928 . . . . . . . . . . 11 ((𝜑𝑖𝑅) → ((𝐵𝑚 𝐼) × {𝑖}) ∈ {𝑥𝜓})
187171, 186syldan 487 . . . . . . . . . 10 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → ((𝐵𝑚 𝐼) × {𝑖}) ∈ {𝑥𝜓})
188172, 187eqeltrd 2698 . . . . . . . . 9 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖)) ∈ {𝑥𝜓})
189 elpreima 6303 . . . . . . . . . . 11 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → (((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖)) ∈ {𝑥𝜓})))
19018, 189syl 17 . . . . . . . . . 10 (𝜑 → (((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖)) ∈ {𝑥𝜓})))
191190adantr 481 . . . . . . . . 9 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → (((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖)) ∈ {𝑥𝜓})))
192162, 188, 191mpbir2and 956 . . . . . . . 8 ((𝜑𝑖 ∈ (Base‘(𝑆s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
193192adantlr 750 . . . . . . 7 (((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) ∧ 𝑖 ∈ (Base‘(𝑆s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆s 𝑅)))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
19430adantr 481 . . . . . . . . . 10 ((𝜑𝑖𝐼) → 𝐼 ∈ V)
19536adantr 481 . . . . . . . . . 10 ((𝜑𝑖𝐼) → (𝑆s 𝑅) ∈ Ring)
196 simpr 477 . . . . . . . . . 10 ((𝜑𝑖𝐼) → 𝑖𝐼)
1977, 26, 13, 194, 195, 196mvrcl 19389 . . . . . . . . 9 ((𝜑𝑖𝐼) → ((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
19831adantr 481 . . . . . . . . . . 11 ((𝜑𝑖𝐼) → 𝑆 ∈ CRing)
19932adantr 481 . . . . . . . . . . 11 ((𝜑𝑖𝐼) → 𝑅 ∈ (SubRing‘𝑆))
2006, 26, 8, 10, 194, 198, 199, 196evlsvar 19463 . . . . . . . . . 10 ((𝜑𝑖𝐼) → (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆s 𝑅))‘𝑖)) = (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑖)))
201 mpfind.pr . . . . . . . . . . . . . 14 ((𝜑𝑓𝐼) → 𝜃)
202175mptex 6451 . . . . . . . . . . . . . . 15 (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) ∈ V
203 mpfind.wb . . . . . . . . . . . . . . 15 (𝑥 = (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) → (𝜓𝜃))
204202, 203elab 3338 . . . . . . . . . . . . . 14 ((𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) ∈ {𝑥𝜓} ↔ 𝜃)
205201, 204sylibr 224 . . . . . . . . . . . . 13 ((𝜑𝑓𝐼) → (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) ∈ {𝑥𝜓})
206205ralrimiva 2962 . . . . . . . . . . . 12 (𝜑 → ∀𝑓𝐼 (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) ∈ {𝑥𝜓})
207 fveq2 6158 . . . . . . . . . . . . . . 15 (𝑓 = 𝑖 → (𝑔𝑓) = (𝑔𝑖))
208207mpteq2dv 4715 . . . . . . . . . . . . . 14 (𝑓 = 𝑖 → (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) = (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑖)))
209208eleq1d 2683 . . . . . . . . . . . . 13 (𝑓 = 𝑖 → ((𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) ∈ {𝑥𝜓} ↔ (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑖)) ∈ {𝑥𝜓}))
210209cbvralv 3163 . . . . . . . . . . . 12 (∀𝑓𝐼 (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑓)) ∈ {𝑥𝜓} ↔ ∀𝑖𝐼 (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑖)) ∈ {𝑥𝜓})
211206, 210sylib 208 . . . . . . . . . . 11 (𝜑 → ∀𝑖𝐼 (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑖)) ∈ {𝑥𝜓})
212211r19.21bi 2928 . . . . . . . . . 10 ((𝜑𝑖𝐼) → (𝑔 ∈ (𝐵𝑚 𝐼) ↦ (𝑔𝑖)) ∈ {𝑥𝜓})
213200, 212eqeltrd 2698 . . . . . . . . 9 ((𝜑𝑖𝐼) → (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆s 𝑅))‘𝑖)) ∈ {𝑥𝜓})
214 elpreima 6303 . . . . . . . . . . 11 (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆s 𝑅))) → (((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆s 𝑅))‘𝑖)) ∈ {𝑥𝜓})))
21518, 214syl 17 . . . . . . . . . 10 (𝜑 → (((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆s 𝑅))‘𝑖)) ∈ {𝑥𝜓})))
216215adantr 481 . . . . . . . . 9 ((𝜑𝑖𝐼) → (((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}) ↔ (((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆s 𝑅))‘𝑖)) ∈ {𝑥𝜓})))
217197, 213, 216mpbir2and 956 . . . . . . . 8 ((𝜑𝑖𝐼) → ((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
218217adantlr 750 . . . . . . 7 (((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) ∧ 𝑖𝐼) → ((𝐼 mVar (𝑆s 𝑅))‘𝑖) ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
219 simpr 477 . . . . . . 7 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅))))
22030adantr 481 . . . . . . 7 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → 𝐼 ∈ V)
22134adantr 481 . . . . . . 7 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (𝑆s 𝑅) ∈ CRing)
22225, 26, 7, 27, 28, 29, 13, 116, 148, 193, 218, 219, 220, 221mplind 19442 . . . . . 6 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → 𝑦 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓}))
223 fvimacnvi 6297 . . . . . 6 ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑦 ∈ (((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥𝜓})
22424, 222, 223syl2anc 692 . . . . 5 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥𝜓})
225 eleq1 2686 . . . . 5 ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥𝜓} ↔ 𝐴 ∈ {𝑥𝜓}))
226224, 225syl5ibcom 235 . . . 4 ((𝜑𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴𝐴 ∈ {𝑥𝜓}))
227226rexlimdva 3026 . . 3 (𝜑 → (∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴𝐴 ∈ {𝑥𝜓}))
22821, 227mpd 15 . 2 (𝜑𝐴 ∈ {𝑥𝜓})
229 mpfind.wg . . . 4 (𝑥 = 𝐴 → (𝜓𝜌))
230229elabg 3339 . . 3 (𝐴𝑄 → (𝐴 ∈ {𝑥𝜓} ↔ 𝜌))
2311, 230syl 17 . 2 (𝜑 → (𝐴 ∈ {𝑥𝜓} ↔ 𝜌))
232228, 231mpbid 222 1 (𝜑𝜌)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1036   = wceq 1480  wcel 1987  {cab 2607  wral 2908  wrex 2909  Vcvv 3190  wss 3560  {csn 4155  cmpt 4683   × cxp 5082  ccnv 5083  ran crn 5085  cima 5087  Fun wfun 5851   Fn wfn 5852  wf 5853  cfv 5857  (class class class)co 6615  𝑓 cof 6860  𝑚 cmap 7817  Basecbs 15800  s cress 15801  +gcplusg 15881  .rcmulr 15882  Scalarcsca 15884  s cpws 16047   MndHom cmhm 17273   GrpHom cghm 17597  mulGrpcmgp 18429  Ringcrg 18487  CRingccrg 18488   RingHom crh 18652  SubRingcsubrg 18716  AssAlgcasa 19249  algSccascl 19251   mVar cmvr 19292   mPoly cmpl 19293   evalSub ces 19444
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4741  ax-sep 4751  ax-nul 4759  ax-pow 4813  ax-pr 4877  ax-un 6914  ax-inf2 8498  ax-cnex 9952  ax-resscn 9953  ax-1cn 9954  ax-icn 9955  ax-addcl 9956  ax-addrcl 9957  ax-mulcl 9958  ax-mulrcl 9959  ax-mulcom 9960  ax-addass 9961  ax-mulass 9962  ax-distr 9963  ax-i2m1 9964  ax-1ne0 9965  ax-1rid 9966  ax-rnegex 9967  ax-rrecex 9968  ax-cnre 9969  ax-pre-lttri 9970  ax-pre-lttrn 9971  ax-pre-ltadd 9972  ax-pre-mulgt0 9973
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2913  df-rex 2914  df-reu 2915  df-rmo 2916  df-rab 2917  df-v 3192  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3898  df-if 4065  df-pw 4138  df-sn 4156  df-pr 4158  df-tp 4160  df-op 4162  df-uni 4410  df-int 4448  df-iun 4494  df-iin 4495  df-br 4624  df-opab 4684  df-mpt 4685  df-tr 4723  df-eprel 4995  df-id 4999  df-po 5005  df-so 5006  df-fr 5043  df-se 5044  df-we 5045  df-xp 5090  df-rel 5091  df-cnv 5092  df-co 5093  df-dm 5094  df-rn 5095  df-res 5096  df-ima 5097  df-pred 5649  df-ord 5695  df-on 5696  df-lim 5697  df-suc 5698  df-iota 5820  df-fun 5859  df-fn 5860  df-f 5861  df-f1 5862  df-fo 5863  df-f1o 5864  df-fv 5865  df-isom 5866  df-riota 6576  df-ov 6618  df-oprab 6619  df-mpt2 6620  df-of 6862  df-ofr 6863  df-om 7028  df-1st 7128  df-2nd 7129  df-supp 7256  df-wrecs 7367  df-recs 7428  df-rdg 7466  df-1o 7520  df-2o 7521  df-oadd 7524  df-er 7702  df-map 7819  df-pm 7820  df-ixp 7869  df-en 7916  df-dom 7917  df-sdom 7918  df-fin 7919  df-fsupp 8236  df-sup 8308  df-oi 8375  df-card 8725  df-pnf 10036  df-mnf 10037  df-xr 10038  df-ltxr 10039  df-le 10040  df-sub 10228  df-neg 10229  df-nn 10981  df-2 11039  df-3 11040  df-4 11041  df-5 11042  df-6 11043  df-7 11044  df-8 11045  df-9 11046  df-n0 11253  df-z 11338  df-dec 11454  df-uz 11648  df-fz 12285  df-fzo 12423  df-seq 12758  df-hash 13074  df-struct 15802  df-ndx 15803  df-slot 15804  df-base 15805  df-sets 15806  df-ress 15807  df-plusg 15894  df-mulr 15895  df-sca 15897  df-vsca 15898  df-ip 15899  df-tset 15900  df-ple 15901  df-ds 15904  df-hom 15906  df-cco 15907  df-0g 16042  df-gsum 16043  df-prds 16048  df-pws 16050  df-mre 16186  df-mrc 16187  df-acs 16189  df-mgm 17182  df-sgrp 17224  df-mnd 17235  df-mhm 17275  df-submnd 17276  df-grp 17365  df-minusg 17366  df-sbg 17367  df-mulg 17481  df-subg 17531  df-ghm 17598  df-cntz 17690  df-cmn 18135  df-abl 18136  df-mgp 18430  df-ur 18442  df-srg 18446  df-ring 18489  df-cring 18490  df-rnghom 18655  df-subrg 18718  df-lmod 18805  df-lss 18873  df-lsp 18912  df-assa 19252  df-asp 19253  df-ascl 19254  df-psr 19296  df-mvr 19297  df-mpl 19298  df-evls 19446
This theorem is referenced by:  pf1ind  19659  mzpmfp  36829
  Copyright terms: Public domain W3C validator