Theorem mpfind 20322

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	⊢ (𝑥 = ((𝐵 ↑m 𝐼) × {𝑓}) → (𝜓 ↔ 𝜒))
mpfind.wb	⊢ (𝑥 = (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) → (𝜓 ↔ 𝜃))
mpfind.wc	⊢ (𝑥 = 𝑓 → (𝜓 ↔ 𝜏))
mpfind.wd	⊢ (𝑥 = 𝑔 → (𝜓 ↔ 𝜂))
mpfind.we	⊢ (𝑥 = (𝑓 ∘f + 𝑔) → (𝜓 ↔ 𝜁))
mpfind.wf	⊢ (𝑥 = (𝑓 ∘f · 𝑔) → (𝜓 ↔ 𝜎))
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	eleqtrdi 2925	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
4	2	mpfrcl 20300	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑄 → (𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)))
5	1, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)))
6		eqid 2823	. . . . . . . 8 ⊢ ((𝐼 evalSub 𝑆)‘𝑅) = ((𝐼 evalSub 𝑆)‘𝑅)
7		eqid 2823	. . . . . . . 8 ⊢ (𝐼 mPoly (𝑆 ↾s 𝑅)) = (𝐼 mPoly (𝑆 ↾s 𝑅))
8		eqid 2823	. . . . . . . 8 ⊢ (𝑆 ↾s 𝑅) = (𝑆 ↾s 𝑅)
9		eqid 2823	. . . . . . . 8 ⊢ (𝑆 ↑s (𝐵 ↑m 𝐼)) = (𝑆 ↑s (𝐵 ↑m 𝐼))
10		mpfind.cb	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝑆)
11	6, 7, 8, 9, 10	evlsrhm 20303	. . . . . . 7 ⊢ ((𝐼 ∈ V ∧ 𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑m 𝐼))))
12		eqid 2823	. . . . . . . 8 ⊢ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
13		eqid 2823	. . . . . . . 8 ⊢ (Base‘(𝑆 ↑s (𝐵 ↑m 𝐼))) = (Base‘(𝑆 ↑s (𝐵 ↑m 𝐼)))
14	12, 13	rhmf 19480	. . . . . . 7 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑m 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))⟶(Base‘(𝑆 ↑s (𝐵 ↑m 𝐼))))
15	5, 11, 14	3syl 18	. . . . . 6 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))⟶(Base‘(𝑆 ↑s (𝐵 ↑m 𝐼))))
16	15	ffnd 6517	. . . . 5 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
17		fvelrnb 6728	. . . . 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 234	. . 3 ⊢ (𝜑 → ∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴)
20	15	ffund 6520	. . . . . 6 ⊢ (𝜑 → Fun ((𝐼 evalSub 𝑆)‘𝑅))
21		eqid 2823	. . . . . . 7 ⊢ (Base‘(𝑆 ↾s 𝑅)) = (Base‘(𝑆 ↾s 𝑅))
22		eqid 2823	. . . . . . 7 ⊢ (𝐼 mVar (𝑆 ↾s 𝑅)) = (𝐼 mVar (𝑆 ↾s 𝑅))
23		eqid 2823	. . . . . . 7 ⊢ (+g‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
24		eqid 2823	. . . . . . 7 ⊢ (.r‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
25		eqid 2823	. . . . . . 7 ⊢ (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
26	5	simp1d 1138	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 ∈ V)
27	5	simp2d 1139	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑆 ∈ CRing)
28	5	simp3d 1140	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ (SubRing‘𝑆))
29	8	subrgcrng 19541	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ CRing ∧ 𝑅 ∈ (SubRing‘𝑆)) → (𝑆 ↾s 𝑅) ∈ CRing)
30	27, 28, 29	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑆 ↾s 𝑅) ∈ CRing)
31		crngring 19310	. . . . . . . . . . . . 13 ⊢ ((𝑆 ↾s 𝑅) ∈ CRing → (𝑆 ↾s 𝑅) ∈ Ring)
32	30, 31	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑆 ↾s 𝑅) ∈ Ring)
33	7	mplring 20234	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ V ∧ (𝑆 ↾s 𝑅) ∈ Ring) → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring)
34	26, 32, 33	syl2anc 586	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring)
35	34	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring)
36		simprl 769	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
37		elpreima 6830	. . . . . . . . . . . . . 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 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})))
40	36, 39	mpbid 234	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
41	40	simpld 497	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
42		simprr 771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
43		elpreima 6830	. . . . . . . . . . . . . 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 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))
46	42, 45	mpbid 234	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
47	46	simpld 497	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
48	12, 23	ringacl 19330	. . . . . . . . . 10 ⊢ (((𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
49	35, 41, 47, 48	syl3anc 1367	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
50		rhmghm 19479	. . . . . . . . . . . . . 14 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑m 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑m 𝐼))))
51	5, 11, 50	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑m 𝐼))))
52	51	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑m 𝐼))))
53		eqid 2823	. . . . . . . . . . . . 13 ⊢ (+g‘(𝑆 ↑s (𝐵 ↑m 𝐼))) = (+g‘(𝑆 ↑s (𝐵 ↑m 𝐼)))
54	12, 23, 53	ghmlin 18365	. . . . . . . . . . . 12 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) GrpHom (𝑆 ↑s (𝐵 ↑m 𝐼))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆 ↑s (𝐵 ↑m 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
55	52, 41, 47, 54	syl3anc 1367	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆 ↑s (𝐵 ↑m 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
56	27	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝑆 ∈ CRing)
57		ovexd 7193	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝐵 ↑m 𝐼) ∈ V)
58	15	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅):(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))⟶(Base‘(𝑆 ↑s (𝐵 ↑m 𝐼))))
59	58, 41	ffvelrnd 6854	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ (Base‘(𝑆 ↑s (𝐵 ↑m 𝐼))))
60	58, 47	ffvelrnd 6854	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ (Base‘(𝑆 ↑s (𝐵 ↑m 𝐼))))
61		mpfind.cp	. . . . . . . . . . . 12 ⊢ + = (+g‘𝑆)
62	9, 13, 56, 57, 59, 60, 61, 53	pwsplusgval 16765	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(+g‘(𝑆 ↑s (𝐵 ↑m 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
63	55, 62	eqtrd 2858	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
64		simpl 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → 𝜑)
65		fnfvelrn 6850	. . . . . . . . . . . . . 14 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
66	16, 41, 65	syl2an2r 683	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
67	66, 2	eleqtrrdi 2926	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄)
68		fvimacnvi 6824	. . . . . . . . . . . . 13 ⊢ ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})
69	20, 36, 68	syl2an2r 683	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})
70	67, 69	jca 514	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
71		fnfvelrn 6850	. . . . . . . . . . . . . 14 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) Fn (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
72	16, 47, 71	syl2an2r 683	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ ran ((𝐼 evalSub 𝑆)‘𝑅))
73	72, 2	eleqtrrdi 2926	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄)
74		fvimacnvi 6824	. . . . . . . . . . . . 13 ⊢ ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})
75	20, 42, 74	syl2an2r 683	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})
76	73, 75	jca 514	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
77		fvex 6685	. . . . . . . . . . . 12 ⊢ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ V
78		fvex 6685	. . . . . . . . . . . 12 ⊢ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ V
79		eleq1 2902	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝑓 ∈ 𝑄 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄))
80		vex 3499	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑓 ∈ V
81		mpfind.wc	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑓 → (𝜓 ↔ 𝜏))
82	80, 81	elab 3669	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 ∈ {𝑥 ∣ 𝜓} ↔ 𝜏)
83		eleq1 2902	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝑓 ∈ {𝑥 ∣ 𝜓} ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
84	82, 83	syl5bbr 287	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → (𝜏 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}))
85	79, 84	anbi12d 632	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) → ((𝑓 ∈ 𝑄 ∧ 𝜏) ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓})))
86		eleq1 2902	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝑔 ∈ 𝑄 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄))
87		vex 3499	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑔 ∈ V
88		mpfind.wd	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑔 → (𝜓 ↔ 𝜂))
89	87, 88	elab 3669	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 ∈ {𝑥 ∣ 𝜓} ↔ 𝜂)
90		eleq1 2902	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝑔 ∈ {𝑥 ∣ 𝜓} ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
91	89, 90	syl5bbr 287	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → (𝜂 ↔ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))
92	86, 91	anbi12d 632	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) → ((𝑔 ∈ 𝑄 ∧ 𝜂) ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))
93	85, 92	bi2anan9 637	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂)) ↔ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))))
94	93	anbi2d 630	. . . . . . . . . . . . 13 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) ↔ (𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓})))))
95		ovex 7191	. . . . . . . . . . . . . . 15 ⊢ (𝑓 ∘f + 𝑔) ∈ V
96		mpfind.we	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑓 ∘f + 𝑔) → (𝜓 ↔ 𝜁))
97	95, 96	elab 3669	. . . . . . . . . . . . . 14 ⊢ ((𝑓 ∘f + 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ 𝜁)
98		oveq12 7167	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝑓 ∘f + 𝑔) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
99	98	eleq1d 2899	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝑓 ∘f + 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
100	97, 99	syl5bbr 287	. . . . . . . . . . . . 13 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝜁 ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
101	94, 100	imbi12d 347	. . . . . . . . . . . 12 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜁) ↔ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})))
102		mpfind.ad	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜁)
103	77, 78, 101, 102	vtocl2 3563	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
104	64, 70, 76, 103	syl12anc 834	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f + (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
105	63, 104	eqeltrd 2915	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})
106		elpreima 6830	. . . . . . . . . . 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 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
109	49, 105, 108	mpbir2and 711	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
110	109	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(+g‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
111	12, 24	ringcl 19313	. . . . . . . . . 10 ⊢ (((𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ Ring ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
112	35, 41, 47, 111	syl3anc 1367	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
113		eqid 2823	. . . . . . . . . . . . . . 15 ⊢ (mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
114		eqid 2823	. . . . . . . . . . . . . . 15 ⊢ (mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼))) = (mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼)))
115	113, 114	rhmmhm 19476	. . . . . . . . . . . . . 14 ⊢ (((𝐼 evalSub 𝑆)‘𝑅) ∈ ((𝐼 mPoly (𝑆 ↾s 𝑅)) RingHom (𝑆 ↑s (𝐵 ↑m 𝐼))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼)))))
116	5, 11, 115	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼)))))
117	116	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼)))))
118	113, 12	mgpbas 19247	. . . . . . . . . . . . 13 ⊢ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (Base‘(mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
119	113, 24	mgpplusg 19245	. . . . . . . . . . . . 13 ⊢ (.r‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (+g‘(mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
120		eqid 2823	. . . . . . . . . . . . . 14 ⊢ (.r‘(𝑆 ↑s (𝐵 ↑m 𝐼))) = (.r‘(𝑆 ↑s (𝐵 ↑m 𝐼)))
121	114, 120	mgpplusg 19245	. . . . . . . . . . . . 13 ⊢ (.r‘(𝑆 ↑s (𝐵 ↑m 𝐼))) = (+g‘(mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼))))
122	118, 119, 121	mhmlin 17965	. . . . . . . . . . . 12 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅) ∈ ((mulGrp‘(𝐼 mPoly (𝑆 ↾s 𝑅))) MndHom (mulGrp‘(𝑆 ↑s (𝐵 ↑m 𝐼)))) ∧ 𝑖 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ 𝑗 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆 ↑s (𝐵 ↑m 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
123	117, 41, 47, 122	syl3anc 1367	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆 ↑s (𝐵 ↑m 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
124		mpfind.ct	. . . . . . . . . . . 12 ⊢ · = (.r‘𝑆)
125	9, 13, 56, 57, 59, 60, 124, 120	pwsmulrval 16766	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖)(.r‘(𝑆 ↑s (𝐵 ↑m 𝐼)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
126	123, 125	eqtrd 2858	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
127		ovex 7191	. . . . . . . . . . . . . . 15 ⊢ (𝑓 ∘f · 𝑔) ∈ V
128		mpfind.wf	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑓 ∘f · 𝑔) → (𝜓 ↔ 𝜎))
129	127, 128	elab 3669	. . . . . . . . . . . . . 14 ⊢ ((𝑓 ∘f · 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ 𝜎)
130		oveq12 7167	. . . . . . . . . . . . . . 15 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝑓 ∘f · 𝑔) = ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)))
131	130	eleq1d 2899	. . . . . . . . . . . . . 14 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → ((𝑓 ∘f · 𝑔) ∈ {𝑥 ∣ 𝜓} ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
132	129, 131	syl5bbr 287	. . . . . . . . . . . . 13 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (𝜎 ↔ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓}))
133	94, 132	imbi12d 347	. . . . . . . . . . . 12 ⊢ ((𝑓 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∧ 𝑔 = (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) → (((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜎) ↔ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})))
134		mpfind.mu	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑄 ∧ 𝜏) ∧ (𝑔 ∈ 𝑄 ∧ 𝜂))) → 𝜎)
135	77, 78, 133, 134	vtocl2 3563	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∈ {𝑥 ∣ 𝜓}) ∧ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ 𝑄 ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗) ∈ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
136	64, 70, 76, 135	syl12anc 834	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑖) ∘f · (((𝐼 evalSub 𝑆)‘𝑅)‘𝑗)) ∈ {𝑥 ∣ 𝜓})
137	126, 136	eqeltrd 2915	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})
138		elpreima 6830	. . . . . . . . . . 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 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ ((𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘(𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗)) ∈ {𝑥 ∣ 𝜓})))
141	112, 137, 140	mpbir2and 711	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
142	141	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ (𝑖 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ∧ 𝑗 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))) → (𝑖(.r‘(𝐼 mPoly (𝑆 ↾s 𝑅)))𝑗) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
143	7	mplassa 20237	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ V ∧ (𝑆 ↾s 𝑅) ∈ CRing) → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ AssAlg)
144	26, 30, 143	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ AssAlg)
145		eqid 2823	. . . . . . . . . . . . 13 ⊢ (Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))) = (Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))
146	25, 145	asclrhm 20121	. . . . . . . . . . . 12 ⊢ ((𝐼 mPoly (𝑆 ↾s 𝑅)) ∈ AssAlg → (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∈ ((Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))) RingHom (𝐼 mPoly (𝑆 ↾s 𝑅))))
147		eqid 2823	. . . . . . . . . . . . 13 ⊢ (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) = (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
148	147, 12	rhmf 19480	. . . . . . . . . . . 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 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅))):(Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))⟶(Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
151	7, 26, 30	mplsca 20227	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑆 ↾s 𝑅) = (Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
152	151	fveq2d 6676	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘(𝑆 ↾s 𝑅)) = (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))))
153	152	eleq2d 2900	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑖 ∈ (Base‘(𝑆 ↾s 𝑅)) ↔ 𝑖 ∈ (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅))))))
154	153	biimpa 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑖 ∈ (Base‘(Scalar‘(𝐼 mPoly (𝑆 ↾s 𝑅)))))
155	150, 154	ffvelrnd 6854	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
156	26	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝐼 ∈ V)
157	27	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑆 ∈ CRing)
158	28	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑅 ∈ (SubRing‘𝑆))
159	10	subrgss 19538	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ (SubRing‘𝑆) → 𝑅 ⊆ 𝐵)
160	8, 10	ressbas2 16557	. . . . . . . . . . . . . 14 ⊢ (𝑅 ⊆ 𝐵 → 𝑅 = (Base‘(𝑆 ↾s 𝑅)))
161	28, 159, 160	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 = (Base‘(𝑆 ↾s 𝑅)))
162	161	eleq2d 2900	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑖 ∈ 𝑅 ↔ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))))
163	162	biimpar 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → 𝑖 ∈ 𝑅)
164	6, 7, 8, 10, 25, 156, 157, 158, 163	evlssca 20304	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) = ((𝐵 ↑m 𝐼) × {𝑖}))
165		mpfind.co	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝑅) → 𝜒)
166	165	ralrimiva 3184	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑓 ∈ 𝑅 𝜒)
167		ovex 7191	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵 ↑m 𝐼) ∈ V
168		snex 5334	. . . . . . . . . . . . . . . . 17 ⊢ {𝑓} ∈ V
169	167, 168	xpex 7478	. . . . . . . . . . . . . . . 16 ⊢ ((𝐵 ↑m 𝐼) × {𝑓}) ∈ V
170		mpfind.wa	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ((𝐵 ↑m 𝐼) × {𝑓}) → (𝜓 ↔ 𝜒))
171	169, 170	elab 3669	. . . . . . . . . . . . . . 15 ⊢ (((𝐵 ↑m 𝐼) × {𝑓}) ∈ {𝑥 ∣ 𝜓} ↔ 𝜒)
172		sneq 4579	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = 𝑖 → {𝑓} = {𝑖})
173	172	xpeq2d 5587	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑖 → ((𝐵 ↑m 𝐼) × {𝑓}) = ((𝐵 ↑m 𝐼) × {𝑖}))
174	173	eleq1d 2899	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑖 → (((𝐵 ↑m 𝐼) × {𝑓}) ∈ {𝑥 ∣ 𝜓} ↔ ((𝐵 ↑m 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓}))
175	171, 174	syl5bbr 287	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑖 → (𝜒 ↔ ((𝐵 ↑m 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓}))
176	175	cbvralvw 3451	. . . . . . . . . . . . 13 ⊢ (∀𝑓 ∈ 𝑅 𝜒 ↔ ∀𝑖 ∈ 𝑅 ((𝐵 ↑m 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
177	166, 176	sylib 220	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑖 ∈ 𝑅 ((𝐵 ↑m 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
178	177	r19.21bi 3210	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝑅) → ((𝐵 ↑m 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
179	163, 178	syldan 593	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((𝐵 ↑m 𝐼) × {𝑖}) ∈ {𝑥 ∣ 𝜓})
180	164, 179	eqeltrd 2915	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) ∈ {𝑥 ∣ 𝜓})
181		elpreima 6830	. . . . . . . . . . 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 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
184	155, 180, 183	mpbir2and 711	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
185	184	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ 𝑖 ∈ (Base‘(𝑆 ↾s 𝑅))) → ((algSc‘(𝐼 mPoly (𝑆 ↾s 𝑅)))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
186	26	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝐼 ∈ V)
187	32	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (𝑆 ↾s 𝑅) ∈ Ring)
188		simpr 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝑖 ∈ 𝐼)
189	7, 22, 12, 186, 187, 188	mvrcl 20231	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → ((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
190	27	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝑆 ∈ CRing)
191	28	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝑅 ∈ (SubRing‘𝑆))
192	6, 22, 8, 10, 186, 190, 191, 188	evlsvar 20305	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) = (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑖)))
193		mpfind.pr	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐼) → 𝜃)
194	167	mptex 6988	. . . . . . . . . . . . . . 15 ⊢ (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) ∈ V
195		mpfind.wb	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) → (𝜓 ↔ 𝜃))
196	194, 195	elab 3669	. . . . . . . . . . . . . 14 ⊢ ((𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓} ↔ 𝜃)
197	193, 196	sylibr 236	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐼) → (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓})
198	197	ralrimiva 3184	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑓 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓})
199		fveq2 6672	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑖 → (𝑔‘𝑓) = (𝑔‘𝑖))
200	199	mpteq2dv 5164	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑖 → (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) = (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑖)))
201	200	eleq1d 2899	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑖 → ((𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓} ↔ (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓}))
202	201	cbvralvw 3451	. . . . . . . . . . . 12 ⊢ (∀𝑓 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑓)) ∈ {𝑥 ∣ 𝜓} ↔ ∀𝑖 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓})
203	198, 202	sylib 220	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑖 ∈ 𝐼 (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓})
204	203	r19.21bi 3210	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (𝑔 ∈ (𝐵 ↑m 𝐼) ↦ (𝑔‘𝑖)) ∈ {𝑥 ∣ 𝜓})
205	192, 204	eqeltrd 2915	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) ∈ {𝑥 ∣ 𝜓})
206		elpreima 6830	. . . . . . . . . . 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 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}) ↔ (((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))) ∧ (((𝐼 evalSub 𝑆)‘𝑅)‘((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖)) ∈ {𝑥 ∣ 𝜓})))
209	189, 205, 208	mpbir2and 711	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → ((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
210	209	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) ∧ 𝑖 ∈ 𝐼) → ((𝐼 mVar (𝑆 ↾s 𝑅))‘𝑖) ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
211		simpr 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅))))
212	26	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → 𝐼 ∈ V)
213	30	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (𝑆 ↾s 𝑅) ∈ CRing)
214	21, 22, 7, 23, 24, 25, 12, 110, 142, 185, 210, 211, 212, 213	mplind 20284	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → 𝑦 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓}))
215		fvimacnvi 6824	. . . . . 6 ⊢ ((Fun ((𝐼 evalSub 𝑆)‘𝑅) ∧ 𝑦 ∈ (◡((𝐼 evalSub 𝑆)‘𝑅) “ {𝑥 ∣ 𝜓})) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥 ∣ 𝜓})
216	20, 214, 215	syl2an2r 683	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → (((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥 ∣ 𝜓})
217		eleq1 2902	. . . . 5 ⊢ ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) ∈ {𝑥 ∣ 𝜓} ↔ 𝐴 ∈ {𝑥 ∣ 𝜓}))
218	216, 217	syl5ibcom 247	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))) → ((((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → 𝐴 ∈ {𝑥 ∣ 𝜓}))
219	218	rexlimdva 3286	. . 3 ⊢ (𝜑 → (∃𝑦 ∈ (Base‘(𝐼 mPoly (𝑆 ↾s 𝑅)))(((𝐼 evalSub 𝑆)‘𝑅)‘𝑦) = 𝐴 → 𝐴 ∈ {𝑥 ∣ 𝜓}))
220	19, 219	mpd 15	. 2 ⊢ (𝜑 → 𝐴 ∈ {𝑥 ∣ 𝜓})
221		mpfind.wg	. . . 4 ⊢ (𝑥 = 𝐴 → (𝜓 ↔ 𝜌))
222	221	elabg 3668	. . 3 ⊢ (𝐴 ∈ 𝑄 → (𝐴 ∈ {𝑥 ∣ 𝜓} ↔ 𝜌))
223	1, 222	syl 17	. 2 ⊢ (𝜑 → (𝐴 ∈ {𝑥 ∣ 𝜓} ↔ 𝜌))
224	220, 223	mpbid 234	1 ⊢ (𝜑 → 𝜌)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114  {cab 2801  ∀wral 3140  ∃wrex 3141  Vcvv 3496   ⊆ wss 3938  {csn 4569   ↦ cmpt 5148   × cxp 5555  ^◡ccnv 5556  ran crn 5558   “ cima 5560  Fun wfun 6351   Fn wfn 6352  ⟶wf 6353  ‘cfv 6357  (class class class)co 7158   ∘_f cof 7409   ↑_m cmap 8408  Basecbs 16485   ↾_s cress 16486  +_gcplusg 16567  ._rcmulr 16568  Scalarcsca 16570   ↑_s cpws 16722   MndHom cmhm 17956   GrpHom cghm 18357  mulGrpcmgp 19241  Ringcrg 19299  CRingccrg 19300   RingHom crh 19466  SubRingcsubrg 19533  AssAlgcasa 20084  algSccascl 20086   mVar cmvr 20134   mPoly cmpl 20135   evalSub ces 20286

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-iin 4924  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-se 5517  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-isom 6366  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-ofr 7412  df-om 7583  df-1st 7691  df-2nd 7692  df-supp 7833  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-2o 8105  df-oadd 8108  df-er 8291  df-map 8410  df-pm 8411  df-ixp 8464  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-fsupp 8836  df-sup 8908  df-oi 8976  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-fz 12896  df-fzo 13037  df-seq 13373  df-hash 13694  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-ress 16493  df-plusg 16580  df-mulr 16581  df-sca 16583  df-vsca 16584  df-ip 16585  df-tset 16586  df-ple 16587  df-ds 16589  df-hom 16591  df-cco 16592  df-0g 16717  df-gsum 16718  df-prds 16723  df-pws 16725  df-mre 16859  df-mrc 16860  df-acs 16862  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-mhm 17958  df-submnd 17959  df-grp 18108  df-minusg 18109  df-sbg 18110  df-mulg 18227  df-subg 18278  df-ghm 18358  df-cntz 18449  df-cmn 18910  df-abl 18911  df-mgp 19242  df-ur 19254  df-srg 19258  df-ring 19301  df-cring 19302  df-rnghom 19469  df-subrg 19535  df-lmod 19638  df-lss 19706  df-lsp 19746  df-assa 20087  df-asp 20088  df-ascl 20089  df-psr 20138  df-mvr 20139  df-mpl 20140  df-evls 20288

This theorem is referenced by:  pf1ind  20520  mzpmfp  39351