Theorem mpfind 19943

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.

Step	Hyp	Ref	Expression
1		mpfind.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑄)
2		mpfind.cq	. . . . 5 ⊢ 𝑄 = ran ((𝐼 evalSub 𝑆)‘𝑅)
3	1, 2	syl6eleq 2869	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
4	2	mpfrcl 19925	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑄 → (𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)))
5	1, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)))
6		eqid 2778	. . . . . . . 8 ⊢ ((𝐼 evalSub 𝑆)‘𝑅) = ((𝐼 evalSub 𝑆)‘𝑅)
7		eqid 2778	. . . . . . . 8 ⊢ (𝐼 mPoly (𝑆 ↾s 𝑅)) = (𝐼 mPoly (𝑆 ↾s 𝑅))
8		eqid 2778	. . . . . . . 8 ⊢ (𝑆 ↾s 𝑅) = (𝑆 ↾s 𝑅)
9		eqid 2778	. . . . . . . 8 ⊢ (𝑆 ↑s (𝐵 ↑𝑚 𝐼)) = (𝑆 ↑s (𝐵 ↑𝑚 𝐼))
10		mpfind.cb	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝑆)
11	6, 7, 8, 9, 10	evlsrhm 19928	. . . . . . 7 ⊢ ((𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
12		eqid 2778	. . . . . . . 8 ⊢ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
13		eqid 2778	. . . . . . . 8 ⊢ (Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))) = (Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))
14	12, 13	rhmf 19126	. . . . . . 7 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))⟶(Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
15	5, 11, 14	3syl 18	. . . . . 6 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))⟶(Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
16	15	ffnd 6294	. . . . 5 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
17		fvelrnb 6505	. . . . 5 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → (𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅) ↔ ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴))
18	16, 17	syl 17	. . . 4 ⊢ (𝜑 → (𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅) ↔ ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴))
19	3, 18	mpbid 224	. . 3 ⊢ (𝜑 → ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴)
20	15	ffund 6297	. . . . . 6 ⊢ (𝜑 → Fun ((𝐼 evalSub 𝑆)‘𝑅))
21		eqid 2778	. . . . . . 7 ⊢ (Base‘(𝑆 ↾s 𝑅)) = (Base‘(𝑆 ↾s 𝑅))
22		eqid 2778	. . . . . . 7 ⊢ (𝐼 mVar (𝑆 ↾s 𝑅)) = (𝐼 mVar (𝑆 ↾s 𝑅))
23		eqid 2778	. . . . . . 7 ⊢ (+g‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
24		eqid 2778	. . . . . . 7 ⊢ (.r‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
25		eqid 2778	. . . . . . 7 ⊢ (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
26	5	simp1d 1133	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 ∈ V)
27	5	simp2d 1134	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑆 ∈ CRing)
28	5	simp3d 1135	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ (SubRing‘𝑆))
29	8	subrgcrng 19187	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)) → (𝑆 ↾s 𝑅) ∈ CRing)
30	27, 28, 29	syl2anc 579	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑆 ↾s 𝑅) ∈ CRing)
31		crngring 18956	. . . . . . . . . . . . 13 ⊢ ((𝑆 ↾s 𝑅) ∈ CRing → (𝑆 ↾s 𝑅) ∈ Ring)
32	30, 31	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 ↾s 𝑅) ∈ Ring)
33	7	mplring 19860	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ V ∧ (𝑆 ↾s 𝑅) ∈ Ring) → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring)
34	26, 32, 33	syl2anc 579	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring)
35	34	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring)
36		simprl 761	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
37		elpreima 6602	. . . . . . . . . . . . . 14 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})))
38	16, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})))
39	38	adantr 474	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})))
40	36, 39	mpbid 224	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
41	40	simpld 490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
42		simprr 763	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
43		elpreima 6602	. . . . . . . . . . . . . 14 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → (𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))
44	16, 43	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))
45	44	adantr 474	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))
46	42, 45	mpbid 224	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
47	46	simpld 490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
48	12, 23	ringacl 18976	. . . . . . . . . 10 ⊢ (((𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
49	35, 41, 47, 48	syl3anc 1439	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
50		rhmghm 19125	. . . . . . . . . . . . . 14 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
51	5, 11, 50	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
52	51	adantr 474	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
53		eqid 2778	. . . . . . . . . . . . 13 ⊢ (+g‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))) = (+g‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))
54	12, 23, 53	ghmlin 18060	. . . . . . . . . . . 12 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
55	52, 41, 47, 54	syl3anc 1439	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
56	27	adantr 474	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑆 ∈ CRing)
57		ovexd 6958	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝐵 ↑𝑚 𝐼) ∈ V)
58	15	adantr 474	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))⟶(Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
59	58, 41	ffvelrnd 6626	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ (Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
60	58, 47	ffvelrnd 6626	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ (Base‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
61		mpfind.cp	. . . . . . . . . . . 12 ⊢ + = (+g‘𝑆)
62	9, 13, 56, 57, 59, 60, 61, 53	pwsplusgval 16547	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
63	55, 62	eqtrd 2814	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
64		simpl 476	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝜑)
65		fnfvelrn 6622	. . . . . . . . . . . . . 14 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
66	16, 41, 65	syl2an2r 675	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
67	66, 2	syl6eleqr 2870	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄)
68		fvimacnvi 6596	. . . . . . . . . . . . 13 ⊢ ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})
69	20, 36, 68	syl2an2r 675	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})
70	67, 69	jca 507	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
71		fnfvelrn 6622	. . . . . . . . . . . . . 14 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
72	16, 47, 71	syl2an2r 675	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
73	72, 2	syl6eleqr 2870	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄)
74		fvimacnvi 6596	. . . . . . . . . . . . 13 ⊢ ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})
75	20, 42, 74	syl2an2r 675	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})
76	73, 75	jca 507	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
77		fvex 6461	. . . . . . . . . . . 12 ⊢ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ V
78		fvex 6461	. . . . . . . . . . . 12 ⊢ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ V
79		eleq1 2847	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝑓 ∈ 𝑄 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄))
80		vex 3401	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑓 ∈ V
81		mpfind.wc	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑓 → (𝜓 ↔ 𝜏))
82	80, 81	elab 3558	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 ∈ {𝑥 ∣ 𝜓} ↔ 𝜏)
83		eleq1 2847	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝑓 ∈ {𝑥 ∣ 𝜓} ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
84	82, 83	syl5bbr 277	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝜏 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
85	79, 84	anbi12d 624	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → ((𝑓 ∈ 𝑄 ∧ 𝜏) ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})))
86		eleq1 2847	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝑔 ∈ 𝑄 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄))
87		vex 3401	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑔 ∈ V
88		mpfind.wd	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑔 → (𝜓 ↔ 𝜂))
89	87, 88	elab 3558	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 ∈ {𝑥 ∣ 𝜓} ↔ 𝜂)
90		eleq1 2847	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝑔 ∈ {𝑥 ∣ 𝜓} ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
91	89, 90	syl5bbr 277	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝜂 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
92	86, 91	anbi12d 624	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → ((𝑔 ∈ 𝑄 ∧ 𝜂) ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))
93	85, 92	bi2anan9 629	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂)) ↔ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))))
94	93	anbi2d 622	. . . . . . . . . . . . 13 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) ↔ (𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))))
95		ovex 6956	. . . . . . . . . . . . . . 15 ⊢ (𝑓 ∘𝑓 + 𝑔) ∈ V
96		mpfind.we	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑓 ∘𝑓 + 𝑔) → (𝜓 ↔ 𝜁))
97	95, 96	elab 3558	. . . . . . . . . . . . . 14 ⊢ ((𝑓 ∘𝑓 + 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ 𝜁)
98		oveq12 6933	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝑓 ∘𝑓 + 𝑔) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
99	98	eleq1d 2844	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝑓 ∘𝑓 + 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
100	97, 99	syl5bbr 277	. . . . . . . . . . . . 13 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝜁 ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
101	94, 100	imbi12d 336	. . . . . . . . . . . 12 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜁) ↔ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})))
102		mpfind.ad	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜁)
103	77, 78, 101, 102	vtocl2 3462	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
104	64, 70, 76, 103	syl12anc 827	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
105	63, 104	eqeltrd 2859	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})
106		elpreima 6602	. . . . . . . . . . 11 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
107	16, 106	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
108	107	adantr 474	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
109	49, 105, 108	mpbir2and 703	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
110	109	adantlr 705	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
111	12, 24	ringcl 18959	. . . . . . . . . 10 ⊢ (((𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
112	35, 41, 47, 111	syl3anc 1439	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
113		eqid 2778	. . . . . . . . . . . . . . 15 ⊢ (mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
114		eqid 2778	. . . . . . . . . . . . . . 15 ⊢ (mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))) = (mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))
115	113, 114	rhmmhm 19122	. . . . . . . . . . . . . 14 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑𝑚 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))))
116	5, 11, 115	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))))
117	116	adantr 474	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))))
118	113, 12	mgpbas 18893	. . . . . . . . . . . . 13 ⊢ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (Base‘(mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
119	113, 24	mgpplusg 18891	. . . . . . . . . . . . 13 ⊢ (.r‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (+g‘(mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
120		eqid 2778	. . . . . . . . . . . . . 14 ⊢ (.r‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))) = (.r‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))
121	114, 120	mgpplusg 18891	. . . . . . . . . . . . 13 ⊢ (.r‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))) = (+g‘(mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼))))
122	118, 119, 121	mhmlin 17739	. . . . . . . . . . . 12 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
123	117, 41, 47, 122	syl3anc 1439	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
124		mpfind.ct	. . . . . . . . . . . 12 ⊢ · = (.r‘𝑆)
125	9, 13, 56, 57, 59, 60, 124, 120	pwsmulrval 16548	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆 ↑s (𝐵 ↑𝑚 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
126	123, 125	eqtrd 2814	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
127		ovex 6956	. . . . . . . . . . . . . . 15 ⊢ (𝑓 ∘𝑓 · 𝑔) ∈ V
128		mpfind.wf	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑓 ∘𝑓 · 𝑔) → (𝜓 ↔ 𝜎))
129	127, 128	elab 3558	. . . . . . . . . . . . . 14 ⊢ ((𝑓 ∘𝑓 · 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ 𝜎)
130		oveq12 6933	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝑓 ∘𝑓 · 𝑔) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
131	130	eleq1d 2844	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝑓 ∘𝑓 · 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
132	129, 131	syl5bbr 277	. . . . . . . . . . . . 13 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝜎 ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
133	94, 132	imbi12d 336	. . . . . . . . . . . 12 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜎) ↔ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})))
134		mpfind.mu	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜎)
135	77, 78, 133, 134	vtocl2 3462	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
136	64, 70, 76, 135	syl12anc 827	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘𝑓 · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
137	126, 136	eqeltrd 2859	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})
138		elpreima 6602	. . . . . . . . . . 11 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
139	16, 138	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
140	139	adantr 474	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
141	112, 137, 140	mpbir2and 703	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
142	141	adantlr 705	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
143	7	mplassa 19862	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ V ∧ (𝑆 ↾s 𝑅) ∈ CRing) → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ AssAlg)
144	26, 30, 143	syl2anc 579	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ AssAlg)
145		eqid 2778	. . . . . . . . . . . . 13 ⊢ (Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
146	25, 145	asclrhm 19750	. . . . . . . . . . . 12 ⊢ ((𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ AssAlg → (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∈ ((Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))) RingHom (𝐼 mPoly (𝑆 ↾s 𝑅))))
147		eqid 2778	. . . . . . . . . . . . 13 ⊢ (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) = (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
148	147, 12	rhmf 19126	. . . . . . . . . . . 12 ⊢ ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∈ ((Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))) RingHom (𝐼 mPoly (𝑆 ↾s 𝑅))) → (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
149	144, 146, 148	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
150	149	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
151	7, 26, 30	mplsca 19853	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑆 ↾s 𝑅) = (Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
152	151	fveq2d 6452	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘(𝑆 ↾s 𝑅)) = (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))))
153	152	eleq2d 2845	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑖 ∈ (Base‘(𝑆 ↾s 𝑅)) ↔ 𝑖 ∈ (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))))
154	153	biimpa 470	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑖 ∈ (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))))
155	150, 154	ffvelrnd 6626	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
156	26	adantr 474	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝐼 ∈ V)
157	27	adantr 474	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑆 ∈ CRing)
158	28	adantr 474	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑅 ∈ (SubRing‘𝑆))
159	10	subrgss 19184	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ (SubRing‘𝑆) → 𝑅 ⊆ 𝐵)
160	8, 10	ressbas2 16338	. . . . . . . . . . . . . 14 ⊢ (𝑅 ⊆ 𝐵 → 𝑅 = (Base‘(𝑆 ↾s 𝑅)))
161	28, 159, 160	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 = (Base‘(𝑆 ↾s 𝑅)))
162	161	eleq2d 2845	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑖 ∈ 𝑅 ↔ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))))
163	162	biimpar 471	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑖 ∈ 𝑅)
164	6, 7, 8, 10, 25, 156, 157, 158, 163	evlssca 19929	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) = ((𝐵 ↑𝑚 𝐼) × {𝑖}))
165		mpfind.co	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑅) → 𝜒)
166	165	ralrimiva 3148	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑓 ∈ 𝑅 𝜒)
167		ovex 6956	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵 ↑𝑚 𝐼) ∈ V
168		snex 5142	. . . . . . . . . . . . . . . . 17 ⊢ {𝑓} ∈ V
169	167, 168	xpex 7242	. . . . . . . . . . . . . . . 16 ⊢ ((𝐵 ↑𝑚 𝐼) × {𝑓}) ∈ V
170		mpfind.wa	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ((𝐵 ↑𝑚 𝐼) × {𝑓}) → (𝜓 ↔ 𝜒))
171	169, 170	elab 3558	. . . . . . . . . . . . . . 15 ⊢ (((𝐵 ↑𝑚 𝐼) × {𝑓}) ∈ {𝑥 ∣ 𝜓} ↔ 𝜒)
172		sneq 4408	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = 𝑖 → {𝑓} = {𝑖})
173	172	xpeq2d 5387	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑖 → ((𝐵 ↑𝑚 𝐼) × {𝑓}) = ((𝐵 ↑𝑚 𝐼) × {𝑖}))
174	173	eleq1d 2844	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑖 → (((𝐵 ↑𝑚 𝐼) × {𝑓}) ∈ {𝑥 ∣ 𝜓} ↔ ((𝐵 ↑𝑚 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓}))
175	171, 174	syl5bbr 277	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑖 → (𝜒 ↔ ((𝐵 ↑𝑚 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓}))
176	175	cbvralv 3367	. . . . . . . . . . . . 13 ⊢ (∀𝑓 ∈ 𝑅 𝜒 ↔ ∀𝑖 ∈ 𝑅 ((𝐵 ↑𝑚 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
177	166, 176	sylib 210	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑖 ∈ 𝑅 ((𝐵 ↑𝑚 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
178	177	r19.21bi 3114	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝑅) → ((𝐵 ↑𝑚 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
179	163, 178	syldan 585	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((𝐵 ↑𝑚 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
180	164, 179	eqeltrd 2859	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) ∈ {𝑥 ∣ 𝜓})
181		elpreima 6602	. . . . . . . . . . 11 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
182	16, 181	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
183	182	adantr 474	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
184	155, 180, 183	mpbir2and 703	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
185	184	adantlr 705	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
186	26	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝐼 ∈ V)
187	32	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (𝑆 ↾s 𝑅) ∈ Ring)
188		simpr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝑖 ∈ 𝐼)
189	7, 22, 12, 186, 187, 188	mvrcl 19857	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → ((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
190	27	adantr 474	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝑆 ∈ CRing)
191	28	adantr 474	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝑅 ∈ (SubRing‘𝑆))
192	6, 22, 8, 10, 186, 190, 191, 188	evlsvar 19930	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) = (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑖)))
193		mpfind.pr	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐼) → 𝜃)
194	167	mptex 6760	. . . . . . . . . . . . . . 15 ⊢ (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) ∈ V
195		mpfind.wb	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) → (𝜓 ↔ 𝜃))
196	194, 195	elab 3558	. . . . . . . . . . . . . 14 ⊢ ((𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓} ↔ 𝜃)
197	193, 196	sylibr 226	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐼) → (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓})
198	197	ralrimiva 3148	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑓 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓})
199		fveq2 6448	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑖 → (𝑔‘𝑓) = (𝑔‘𝑖))
200	199	mpteq2dv 4982	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑖 → (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) = (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑖)))
201	200	eleq1d 2844	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑖 → ((𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓} ↔ (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓}))
202	201	cbvralv 3367	. . . . . . . . . . . 12 ⊢ (∀𝑓 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓} ↔ ∀𝑖 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓})
203	198, 202	sylib 210	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑖 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓})
204	203	r19.21bi 3114	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (𝑔 ∈ (𝐵 ↑𝑚 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓})
205	192, 204	eqeltrd 2859	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) ∈ {𝑥 ∣ 𝜓})
206		elpreima 6602	. . . . . . . . . . 11 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) → (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
207	16, 206	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
208	207	adantr 474	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
209	189, 205, 208	mpbir2and 703	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → ((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
210	209	adantlr 705	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ 𝑖 ∈ 𝐼) → ((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
211		simpr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
212	26	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → 𝐼 ∈ V)
213	30	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (𝑆 ↾s 𝑅) ∈ CRing)
214	21, 22, 7, 23, 24, 25, 12, 110, 142, 185, 210, 211, 212, 213	mplind 19909	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → 𝑦 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
215		fvimacnvi 6596	. . . . . 6 ⊢ ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑦 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥 ∣ 𝜓})
216	20, 214, 215	syl2an2r 675	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥 ∣ 𝜓})
217		eleq1 2847	. . . . 5 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥 ∣ 𝜓} ↔ 𝐴 ∈ {𝑥 ∣ 𝜓}))
218	216, 217	syl5ibcom 237	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → 𝐴 ∈ {𝑥 ∣ 𝜓}))
219	218	rexlimdva 3213	. . 3 ⊢ (𝜑 → (∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → 𝐴 ∈ {𝑥 ∣ 𝜓}))
220	19, 219	mpd 15	. 2 ⊢ (𝜑 → 𝐴 ∈ {𝑥 ∣ 𝜓})
221		mpfind.wg	. . . 4 ⊢ (𝑥 = 𝐴 → (𝜓 ↔ 𝜌))
222	221	elabg 3556	. . 3 ⊢ (𝐴 ∈ 𝑄 → (𝐴 ∈ {𝑥 ∣ 𝜓} ↔ 𝜌))
223	1, 222	syl 17	. 2 ⊢ (𝜑 → (𝐴 ∈ {𝑥 ∣ 𝜓} ↔ 𝜌))
224	220, 223	mpbid 224	1 ⊢ (𝜑 → 𝜌)

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 386   ∧ w3a 1071   = wceq 1601   ∈ wcel 2107  {cab 2763  ∀wral 3090  ∃wrex 3091  Vcvv 3398   ⊆ wss 3792  {csn 4398   ↦ cmpt 4967   × cxp 5355  ^◡ccnv 5356  ran crn 5358   “ cima 5360  Fun wfun 6131   Fn wfn 6132  ⟶wf 6133  ‘cfv 6137  (class class class)co 6924   ∘_𝑓 cof 7174   ↑_𝑚 cmap 8142  Basecbs 16266   ↾_s cress 16267  +_gcplusg 16349  ._rcmulr 16350  Scalarcsca 16352   ↑_s cpws 16504   MndHom cmhm 17730   GrpHom cghm 18052  mulGrpcmgp 18887  Ringcrg 18945  CRingccrg 18946   RingHom crh 19112  SubRingcsubrg 19179  AssAlgcasa 19717  algSccascl 19719   mVar cmvr 19760   mPoly cmpl 19761   evalSub ces 19911

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-rep 5008  ax-sep 5019  ax-nul 5027  ax-pow 5079  ax-pr 5140  ax-un 7228  ax-inf2 8837  ax-cnex 10330  ax-resscn 10331  ax-1cn 10332  ax-icn 10333  ax-addcl 10334  ax-addrcl 10335  ax-mulcl 10336  ax-mulrcl 10337  ax-mulcom 10338  ax-addass 10339  ax-mulass 10340  ax-distr 10341  ax-i2m1 10342  ax-1ne0 10343  ax-1rid 10344  ax-rnegex 10345  ax-rrecex 10346  ax-cnre 10347  ax-pre-lttri 10348  ax-pre-lttrn 10349  ax-pre-ltadd 10350  ax-pre-mulgt0 10351

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-pss 3808  df-nul 4142  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-tp 4403  df-op 4405  df-uni 4674  df-int 4713  df-iun 4757  df-iin 4758  df-br 4889  df-opab 4951  df-mpt 4968  df-tr 4990  df-id 5263  df-eprel 5268  df-po 5276  df-so 5277  df-fr 5316  df-se 5317  df-we 5318  df-xp 5363  df-rel 5364  df-cnv 5365  df-co 5366  df-dm 5367  df-rn 5368  df-res 5369  df-ima 5370  df-pred 5935  df-ord 5981  df-on 5982  df-lim 5983  df-suc 5984  df-iota 6101  df-fun 6139  df-fn 6140  df-f 6141  df-f1 6142  df-fo 6143  df-f1o 6144  df-fv 6145  df-isom 6146  df-riota 6885  df-ov 6927  df-oprab 6928  df-mpt2 6929  df-of 7176  df-ofr 7177  df-om 7346  df-1st 7447  df-2nd 7448  df-supp 7579  df-wrecs 7691  df-recs 7753  df-rdg 7791  df-1o 7845  df-2o 7846  df-oadd 7849  df-er 8028  df-map 8144  df-pm 8145  df-ixp 8197  df-en 8244  df-dom 8245  df-sdom 8246  df-fin 8247  df-fsupp 8566  df-sup 8638  df-oi 8706  df-card 9100  df-pnf 10415  df-mnf 10416  df-xr 10417  df-ltxr 10418  df-le 10419  df-sub 10610  df-neg 10611  df-nn 11380  df-2 11443  df-3 11444  df-4 11445  df-5 11446  df-6 11447  df-7 11448  df-8 11449  df-9 11450  df-n0 11648  df-z 11734  df-dec 11851  df-uz 11998  df-fz 12649  df-fzo 12790  df-seq 13125  df-hash 13442  df-struct 16268  df-ndx 16269  df-slot 16270  df-base 16272  df-sets 16273  df-ress 16274  df-plusg 16362  df-mulr 16363  df-sca 16365  df-vsca 16366  df-ip 16367  df-tset 16368  df-ple 16369  df-ds 16371  df-hom 16373  df-cco 16374  df-0g 16499  df-gsum 16500  df-prds 16505  df-pws 16507  df-mre 16643  df-mrc 16644  df-acs 16646  df-mgm 17639  df-sgrp 17681  df-mnd 17692  df-mhm 17732  df-submnd 17733  df-grp 17823  df-minusg 17824  df-sbg 17825  df-mulg 17939  df-subg 17986  df-ghm 18053  df-cntz 18144  df-cmn 18592  df-abl 18593  df-mgp 18888  df-ur 18900  df-srg 18904  df-ring 18947  df-cring 18948  df-rnghom 19115  df-subrg 19181  df-lmod 19268  df-lss 19336  df-lsp 19378  df-assa 19720  df-asp 19721  df-ascl 19722  df-psr 19764  df-mvr 19765  df-mpl 19766  df-evls 19913

This theorem is referenced by:  pf1ind  20126  mzpmfp  38284