case a
p : ℕ
R : Type ?u.60999
hp : Fact (Nat.Prime p)
inst✝ : CommRing R
⊢ ↑(map (Int.castRingHom ℚ)) (wittSub p 0) = ↑(map (Int.castRingHom ℚ)) (X (0, 0) - X (1, 0))
p : ℕ
R : Type ?u.60999
hp : Fact (Nat.Prime p)
inst✝ : CommRing R
⊢ wittSub p 0 = X (0, 0) - X (1, 0)
apply MvPolynomial.map_injective (Int.castRingHom ℚ) Int.cast_injective
no goals
case a
p : ℕ
R : Type ?u.60999
hp : Fact (Nat.Prime p)
inst✝ : CommRing R
⊢ ↑(map (Int.castRingHom ℚ)) (wittSub p 0) = ↑(map (Int.castRingHom ℚ)) (X (0, 0) - X (1, 0))
simp only [wittSub, wittStructureRat, AlgHom.map_sub, RingHom.map_sub, rename_X,
  xInTermsOfW_zero, map_X, wittPolynomial_zero, bind₁_X_right, map_wittStructureInt]