case a
p : ℕ
R : Type ?u.66399
hp : Fact (Nat.Prime p)
inst✝ : CommRing R
⊢ ↑(map (Int.castRingHom ℚ)) (wittMul p 0) = ↑(map (Int.castRingHom ℚ)) (X (0, 0) * X (1, 0))
p : ℕ
R : Type ?u.66399
hp : Fact (Nat.Prime p)
inst✝ : CommRing R
⊢ wittMul 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.66399
hp : Fact (Nat.Prime p)
inst✝ : CommRing R
⊢ ↑(map (Int.castRingHom ℚ)) (wittMul p 0) = ↑(map (Int.castRingHom ℚ)) (X (0, 0) * X (1, 0))
simp only [wittMul, wittStructureRat, rename_X, xInTermsOfW_zero, map_X, wittPolynomial_zero,
  RingHom.map_mul, bind₁_X_right, AlgHom.map_mul, map_wittStructureInt]