case hs
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
⊢ ∀ (i : σ →₀ ℕ), ↑f (coeff i p) ∈ s

R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs : ∀ (i : σ →₀ ℕ), ↑f (coeff i p) ∈ s
⊢ eval₂ f v p ∈ s
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
⊢ eval₂ f v p ∈ s
replace hs : ∀ i, f (p.coeff i) ∈ s
case h_C
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f (coeff i p) ∈ s
a : R
hs : ∀ (i : σ →₀ ℕ), ↑f (coeff i (↑C a)) ∈ s
⊢ eval₂ f v (↑C a) ∈ s

case h_add_weak
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
⊢ eval₂ f✝ v
      ((let_fun this := ↑(monomial a) b;
        this) +
        f) ∈
    s
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs : ∀ (i : σ →₀ ℕ), ↑f (coeff i p) ∈ s
⊢ eval₂ f v p ∈ s
induction' p using MvPolynomial.induction_on''' with a a b f ha _ ih
case h_add_weak
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
⊢ (↑f✝ b * Finsupp.prod a fun n e => v n ^ e) + eval₂ f✝ v f ∈ s
case h_add_weak
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
⊢ eval₂ f✝ v
      ((let_fun this := ↑(monomial a) b;
        this) +
        f) ∈
    s
rw [eval₂_add, eval₂_monomial]
case h_add_weak.refine'_1
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
⊢ ↑f✝ b ∈ s

case h_add_weak.refine'_2
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
⊢ ↑f✝ (coeff i f) ∈ s
case h_add_weak
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
⊢ (↑f✝ b * Finsupp.prod a fun n e => v n ^ e) + eval₂ f✝ v f ∈ s
refine' add_mem (mul_mem _ <| prod_mem fun i _ => pow_mem (hv _) _) (ih fun i => _)
case h_add_weak.refine'_2
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this :
  ↑f✝
      (coeff i
        ((let_fun this := ↑(monomial a) b;
          this) +
          f)) ∈
    s
⊢ ↑f✝ (coeff i f) ∈ s
case h_add_weak.refine'_2
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
⊢ ↑f✝ (coeff i f) ∈ s
have := hs i
case h_add_weak.refine'_2
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this✝ :
  ↑f✝
      (coeff i
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff i f) ∈
    s
this : ↑f✝ ((if a = i then b else 0) + coeff i f) ∈ s
⊢ ↑f✝ (coeff i f) ∈ s
case h_add_weak.refine'_2
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this :
  ↑f✝
      (coeff i
        ((let_fun this := ↑(monomial a) b;
          this) +
          f)) ∈
    s
⊢ ↑f✝ (coeff i f) ∈ s
rw [coeff_add, coeff_monomial] at this
case h_add_weak.refine'_2.inl
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this✝ :
  ↑f✝
      (coeff i
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff i f) ∈
    s
this : ↑f✝ ((if a = i then b else 0) + coeff i f) ∈ s
h : a = i
⊢ ↑f✝ (coeff i f) ∈ s

case h_add_weak.refine'_2.inr
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this✝ :
  ↑f✝
      (coeff i
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff i f) ∈
    s
this : ↑f✝ ((if a = i then b else 0) + coeff i f) ∈ s
h : ¬a = i
⊢ ↑f✝ (coeff i f) ∈ s
case h_add_weak.refine'_2
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this✝ :
  ↑f✝
      (coeff i
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff i f) ∈
    s
this : ↑f✝ ((if a = i then b else 0) + coeff i f) ∈ s
⊢ ↑f✝ (coeff i f) ∈ s
split_ifs at this with h
case hs
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
⊢ ↑f (coeff i p) ∈ s
case hs
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
⊢ ∀ (i : σ →₀ ℕ), ↑f (coeff i p) ∈ s
intro i
case pos
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
hi : i ∈ support p
⊢ ↑f (coeff i p) ∈ s

case neg
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
hi : ¬i ∈ support p
⊢ ↑f (coeff i p) ∈ s
case hs
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
⊢ ↑f (coeff i p) ∈ s
by_cases hi : i ∈ p.support
no goals
case pos
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
hi : i ∈ support p
⊢ ↑f (coeff i p) ∈ s
exact hs i hi
case neg
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
hi : ¬i ∈ support p
⊢ 0 ∈ s
case neg
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
hi : ¬i ∈ support p
⊢ ↑f (coeff i p) ∈ s
rw [MvPolynomial.not_mem_support_iff.1 hi, f.map_zero]
no goals
case neg
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
hs : ∀ (i : σ →₀ ℕ), i ∈ support p → ↑f (coeff i p) ∈ s
v : σ → S
hv : ∀ (i : σ), v i ∈ s
i : σ →₀ ℕ
hi : ¬i ∈ support p
⊢ 0 ∈ s
exact zero_mem s
no goals
case h_C
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f (coeff i p) ∈ s
a : R
hs : ∀ (i : σ →₀ ℕ), ↑f (coeff i (↑C a)) ∈ s
⊢ eval₂ f v (↑C a) ∈ s
simpa using hs 0
case h_add_weak.refine'_1
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
this :
  ↑f✝
      (coeff a
        ((let_fun this := ↑(monomial a) b;
          this) +
          f)) ∈
    s
⊢ ↑f✝ b ∈ s
case h_add_weak.refine'_1
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
⊢ ↑f✝ b ∈ s
have := hs a
no goals
case h_add_weak.refine'_1
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
this :
  ↑f✝
      (coeff a
        ((let_fun this := ↑(monomial a) b;
          this) +
          f)) ∈
    s
⊢ ↑f✝ b ∈ s
rwa [coeff_add, MvPolynomial.not_mem_support_iff.1 ha, add_zero, coeff_monomial,
  if_pos rfl] at this
case h_add_weak.refine'_2.inl
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
this✝ :
  ↑f✝
      (coeff a
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff a f) ∈
    s
this : ↑f✝ ((if a = a then b else 0) + coeff a f) ∈ s
⊢ ↑f✝ (coeff a f) ∈ s
case h_add_weak.refine'_2.inl
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this✝ :
  ↑f✝
      (coeff i
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff i f) ∈
    s
this : ↑f✝ ((if a = i then b else 0) + coeff i f) ∈ s
h : a = i
⊢ ↑f✝ (coeff i f) ∈ s
subst h
case h_add_weak.refine'_2.inl
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
this✝ :
  ↑f✝
      (coeff a
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff a f) ∈
    s
this : ↑f✝ ((if a = a then b else 0) + coeff a f) ∈ s
⊢ 0 ∈ s
case h_add_weak.refine'_2.inl
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
this✝ :
  ↑f✝
      (coeff a
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff a f) ∈
    s
this : ↑f✝ ((if a = a then b else 0) + coeff a f) ∈ s
⊢ ↑f✝ (coeff a f) ∈ s
rw [MvPolynomial.not_mem_support_iff.1 ha, map_zero]
no goals
case h_add_weak.refine'_2.inl
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
this✝ :
  ↑f✝
      (coeff a
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff a f) ∈
    s
this : ↑f✝ ((if a = a then b else 0) + coeff a f) ∈ s
⊢ 0 ∈ s
exact zero_mem _
no goals
case h_add_weak.refine'_2.inr
R : Type u
S₁ : Type v
S₂ : Type w
S₃ : Type x
σ : Type u_2
a✝¹ a' a₁ a₂ : R
e : ℕ
n m : σ
s✝ : σ →₀ ℕ
inst✝⁴ : CommSemiring R
inst✝³ : CommSemiring S₁
p✝ q : MvPolynomial σ R
S : Type u_1
subS : Type u_3
inst✝² : CommSemiring S
inst✝¹ : SetLike subS S
inst✝ : SubsemiringClass subS S
f✝ : R →+* S
p : MvPolynomial σ R
s : subS
v : σ → S
hv : ∀ (i : σ), v i ∈ s
hs✝ : ∀ (i : σ →₀ ℕ), ↑f✝ (coeff i p) ∈ s
a : σ →₀ ℕ
b : R
f : (σ →₀ ℕ) →₀ R
ha : ¬a ∈ f.support
a✝ : b ≠ 0
ih : (∀ (i : σ →₀ ℕ), ↑f✝ (coeff i f) ∈ s) → eval₂ f✝ v f ∈ s
hs :
  ∀ (i : σ →₀ ℕ),
    ↑f✝
        (coeff i
          ((let_fun this := ↑(monomial a) b;
            this) +
            f)) ∈
      s
i : σ →₀ ℕ
this✝ :
  ↑f✝
      (coeff i
          (let_fun this := ↑(monomial a) b;
          this) +
        coeff i f) ∈
    s
this : ↑f✝ ((if a = i then b else 0) + coeff i f) ∈ s
h : ¬a = i
⊢ ↑f✝ (coeff i f) ∈ s
rwa [if_neg h, zero_add] at this