convert move_singular_point e (singular_point e).fst (singular_point e).snd
  (is_singular_point_singular_point e h) using 2 <;> simp [var_change]
K : Type u
inst✝¹ : Field K
inst✝ : ECTate.PerfectRing K
e : Model K
h : discr e = 0
⊢ is_singular_point
    (rst_iso ((singular_point e).fst, 0, (singular_point e).snd).fst
      ((singular_point e).fst, 0, (singular_point e).snd).snd.fst
      ((singular_point e).fst, 0, (singular_point e).snd).snd.snd e)
    (0, 0)
no goals