Metamath Proof Explorer


Theorem mzpincl

Description: Polynomial closedness is a universal first-order property and passes to intersections. This is where the closure properties of the polynomial ring itself are proved. (Contributed by Stefan O'Rear, 4-Oct-2014)

Ref Expression
Assertion mzpincl ⊢ V ∈ V → mzPoly ⁡ V ∈ mzPolyCld ⁡ V

Proof

Step Hyp Ref Expression
1 mzpval ⊢ V ∈ V → mzPoly ⁡ V = ⋂ mzPolyCld ⁡ V
2 mzpclall ⊢ V ∈ V → ℤ ℤ V ∈ mzPolyCld ⁡ V
3 intss1 ⊢ ℤ ℤ V ∈ mzPolyCld ⁡ V → ⋂ mzPolyCld ⁡ V ⊆ ℤ ℤ V
4 2 3 syl ⊢ V ∈ V → ⋂ mzPolyCld ⁡ V ⊆ ℤ ℤ V
5 simpr ⊢ V ∈ V ∧ f ∈ ℤ ∧ a ∈ mzPolyCld ⁡ V → a ∈ mzPolyCld ⁡ V
6 simplr ⊢ V ∈ V ∧ f ∈ ℤ ∧ a ∈ mzPolyCld ⁡ V → f ∈ ℤ
7 mzpcl1 ⊢ a ∈ mzPolyCld ⁡ V ∧ f ∈ ℤ → ℤ V × f ∈ a
8 5 6 7 syl2anc ⊢ V ∈ V ∧ f ∈ ℤ ∧ a ∈ mzPolyCld ⁡ V → ℤ V × f ∈ a
9 8 ralrimiva ⊢ V ∈ V ∧ f ∈ ℤ → ∀ a ∈ mzPolyCld ⁡ V ℤ V × f ∈ a
10 ovex ⊢ ℤ V ∈ V
11 vsnex ⊢ f ∈ V
12 10 11 xpex ⊢ ℤ V × f ∈ V
13 12 elint2 ⊢ ℤ V × f ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V ℤ V × f ∈ a
14 9 13 sylibr ⊢ V ∈ V ∧ f ∈ ℤ → ℤ V × f ∈ ⋂ mzPolyCld ⁡ V
15 14 ralrimiva ⊢ V ∈ V → ∀ f ∈ ℤ ℤ V × f ∈ ⋂ mzPolyCld ⁡ V
16 simpr ⊢ V ∈ V ∧ f ∈ V ∧ a ∈ mzPolyCld ⁡ V → a ∈ mzPolyCld ⁡ V
17 simplr ⊢ V ∈ V ∧ f ∈ V ∧ a ∈ mzPolyCld ⁡ V → f ∈ V
18 mzpcl2 ⊢ a ∈ mzPolyCld ⁡ V ∧ f ∈ V → g ∈ ℤ V ⟼ g ⁡ f ∈ a
19 16 17 18 syl2anc ⊢ V ∈ V ∧ f ∈ V ∧ a ∈ mzPolyCld ⁡ V → g ∈ ℤ V ⟼ g ⁡ f ∈ a
20 19 ralrimiva ⊢ V ∈ V ∧ f ∈ V → ∀ a ∈ mzPolyCld ⁡ V g ∈ ℤ V ⟼ g ⁡ f ∈ a
21 10 mptex ⊢ g ∈ ℤ V ⟼ g ⁡ f ∈ V
22 21 elint2 ⊢ g ∈ ℤ V ⟼ g ⁡ f ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V g ∈ ℤ V ⟼ g ⁡ f ∈ a
23 20 22 sylibr ⊢ V ∈ V ∧ f ∈ V → g ∈ ℤ V ⟼ g ⁡ f ∈ ⋂ mzPolyCld ⁡ V
24 23 ralrimiva ⊢ V ∈ V → ∀ f ∈ V g ∈ ℤ V ⟼ g ⁡ f ∈ ⋂ mzPolyCld ⁡ V
25 15 24 jca ⊢ V ∈ V → ∀ f ∈ ℤ ℤ V × f ∈ ⋂ mzPolyCld ⁡ V ∧ ∀ f ∈ V g ∈ ℤ V ⟼ g ⁡ f ∈ ⋂ mzPolyCld ⁡ V
26 vex ⊢ f ∈ V
27 26 elint2 ⊢ f ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V f ∈ a
28 vex ⊢ g ∈ V
29 28 elint2 ⊢ g ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V g ∈ a
30 mzpcl34 ⊢ a ∈ mzPolyCld ⁡ V ∧ f ∈ a ∧ g ∈ a → f + f g ∈ a ∧ f × f g ∈ a
31 30 3expib ⊢ a ∈ mzPolyCld ⁡ V → f ∈ a ∧ g ∈ a → f + f g ∈ a ∧ f × f g ∈ a
32 31 ralimia ⊢ ∀ a ∈ mzPolyCld ⁡ V f ∈ a ∧ g ∈ a → ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a ∧ f × f g ∈ a
33 r19.26 ⊢ ∀ a ∈ mzPolyCld ⁡ V f ∈ a ∧ g ∈ a ↔ ∀ a ∈ mzPolyCld ⁡ V f ∈ a ∧ ∀ a ∈ mzPolyCld ⁡ V g ∈ a
34 r19.26 ⊢ ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a ∧ f × f g ∈ a ↔ ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a ∧ ∀ a ∈ mzPolyCld ⁡ V f × f g ∈ a
35 32 33 34 3imtr3i ⊢ ∀ a ∈ mzPolyCld ⁡ V f ∈ a ∧ ∀ a ∈ mzPolyCld ⁡ V g ∈ a → ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a ∧ ∀ a ∈ mzPolyCld ⁡ V f × f g ∈ a
36 27 29 35 syl2anb ⊢ f ∈ ⋂ mzPolyCld ⁡ V ∧ g ∈ ⋂ mzPolyCld ⁡ V → ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a ∧ ∀ a ∈ mzPolyCld ⁡ V f × f g ∈ a
37 ovex ⊢ f + f g ∈ V
38 37 elint2 ⊢ f + f g ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a
39 ovex ⊢ f × f g ∈ V
40 39 elint2 ⊢ f × f g ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V f × f g ∈ a
41 38 40 anbi12i ⊢ f + f g ∈ ⋂ mzPolyCld ⁡ V ∧ f × f g ∈ ⋂ mzPolyCld ⁡ V ↔ ∀ a ∈ mzPolyCld ⁡ V f + f g ∈ a ∧ ∀ a ∈ mzPolyCld ⁡ V f × f g ∈ a
42 36 41 sylibr ⊢ f ∈ ⋂ mzPolyCld ⁡ V ∧ g ∈ ⋂ mzPolyCld ⁡ V → f + f g ∈ ⋂ mzPolyCld ⁡ V ∧ f × f g ∈ ⋂ mzPolyCld ⁡ V
43 42 a1i ⊢ V ∈ V → f ∈ ⋂ mzPolyCld ⁡ V ∧ g ∈ ⋂ mzPolyCld ⁡ V → f + f g ∈ ⋂ mzPolyCld ⁡ V ∧ f × f g ∈ ⋂ mzPolyCld ⁡ V
44 43 ralrimivv ⊢ V ∈ V → ∀ f ∈ ⋂ mzPolyCld ⁡ V ∀ g ∈ ⋂ mzPolyCld ⁡ V f + f g ∈ ⋂ mzPolyCld ⁡ V ∧ f × f g ∈ ⋂ mzPolyCld ⁡ V
45 4 25 44 jca32 ⊢ V ∈ V → ⋂ mzPolyCld ⁡ V ⊆ ℤ ℤ V ∧ ∀ f ∈ ℤ ℤ V × f ∈ ⋂ mzPolyCld ⁡ V ∧ ∀ f ∈ V g ∈ ℤ V ⟼ g ⁡ f ∈ ⋂ mzPolyCld ⁡ V ∧ ∀ f ∈ ⋂ mzPolyCld ⁡ V ∀ g ∈ ⋂ mzPolyCld ⁡ V f + f g ∈ ⋂ mzPolyCld ⁡ V ∧ f × f g ∈ ⋂ mzPolyCld ⁡ V
46 elmzpcl ⊢ V ∈ V → ⋂ mzPolyCld ⁡ V ∈ mzPolyCld ⁡ V ↔ ⋂ mzPolyCld ⁡ V ⊆ ℤ ℤ V ∧ ∀ f ∈ ℤ ℤ V × f ∈ ⋂ mzPolyCld ⁡ V ∧ ∀ f ∈ V g ∈ ℤ V ⟼ g ⁡ f ∈ ⋂ mzPolyCld ⁡ V ∧ ∀ f ∈ ⋂ mzPolyCld ⁡ V ∀ g ∈ ⋂ mzPolyCld ⁡ V f + f g ∈ ⋂ mzPolyCld ⁡ V ∧ f × f g ∈ ⋂ mzPolyCld ⁡ V
47 45 46 mpbird ⊢ V ∈ V → ⋂ mzPolyCld ⁡ V ∈ mzPolyCld ⁡ V
48 1 47 eqeltrd ⊢ V ∈ V → mzPoly ⁡ V ∈ mzPolyCld ⁡ V