case coeff.h
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
⊢ coeff (↑(ofPowerSeries Γ R) PowerSeries.X) n = coeff (↑(single 1) 1) n
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
⊢ ↑(ofPowerSeries Γ R) PowerSeries.X = ↑(single 1) 1
ext n
case coeff.h
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      n =
    if n = 1 then 1 else 0
case coeff.h
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
⊢ coeff (↑(ofPowerSeries Γ R) PowerSeries.X) n = coeff (↑(single 1) 1) n
simp only [single_coeff, ofPowerSeries_apply, RingHom.coe_mk]
case coeff.h.inl
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : n = 1
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      n =
    1

case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      n =
    0
case coeff.h
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      n =
    if n = 1 then 1 else 0
split_ifs with hn
case coeff.h.inl
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : n = 1
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      1 =
    1
case coeff.h.inl
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : n = 1
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      n =
    1
rw [hn]
no goals
case coeff.h.inl
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : n = 1
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      1 =
    1
convert @embDomain_coeff ℕ R _ _ Γ _ _ _ 1 <;> simp
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
⊢ ¬n ∈
      ↑{ toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
            map_rel_iff' :=
              (_ :
                ∀ {a b : ℕ},
                  ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                      ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                    a ≤ b) } ''
        support (↑(RingEquiv.symm toPowerSeries) PowerSeries.X)
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
⊢ coeff
      (embDomain
        { toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
          map_rel_iff' :=
            (_ :
              ∀ {a b : ℕ},
                ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                  a ≤ b) }
        (↑(RingEquiv.symm toPowerSeries) PowerSeries.X))
      n =
    0
rw [embDomain_notin_image_support]
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
⊢ ∀ (x : ℕ),
    ¬((if x = 1 then 1 else 0) ≠ 0 ∧
        ↑{ toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
                map_rel_iff' :=
                  (_ :
                    ∀ {a b : ℕ},
                      ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                          ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                        a ≤ b) }
            x =
          n)
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
⊢ ¬n ∈
      ↑{ toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
            map_rel_iff' :=
              (_ :
                ∀ {a b : ℕ},
                  ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                      ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                    a ≤ b) } ''
        support (↑(RingEquiv.symm toPowerSeries) PowerSeries.X)
simp only [not_exists, Set.mem_image, toPowerSeries_symm_apply_coeff, mem_support,
  PowerSeries.coeff_X]
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
x✝ : ℕ
⊢ ¬((if x✝ = 1 then 1 else 0) ≠ 0 ∧
      ↑{ toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
              map_rel_iff' :=
                (_ :
                  ∀ {a b : ℕ},
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                        ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                      a ≤ b) }
          x✝ =
        n)
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
⊢ ∀ (x : ℕ),
    ¬((if x = 1 then 1 else 0) ≠ 0 ∧
        ↑{ toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
                map_rel_iff' :=
                  (_ :
                    ∀ {a b : ℕ},
                      ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                          ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                        a ≤ b) }
            x =
          n)
intro
no goals
case coeff.h.inr
Γ : Type u_1
R : Type u_2
inst✝¹ : Semiring R
inst✝ : StrictOrderedSemiring Γ
n : Γ
hn : ¬n = 1
x✝ : ℕ
⊢ ¬((if x✝ = 1 then 1 else 0) ≠ 0 ∧
      ↑{ toEmbedding := { toFun := Nat.cast, inj' := (_ : Injective Nat.cast) },
              map_rel_iff' :=
                (_ :
                  ∀ {a b : ℕ},
                    ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } a ≤
                        ↑{ toFun := Nat.cast, inj' := (_ : Injective Nat.cast) } b ↔
                      a ≤ b) }
          x✝ =
        n)
simp (config := { contextual := true }) [Ne.symm hn]