dsimp [dfold]
case refl.refl.succ
α : Nat → Sort u
f : (n : Nat) → α n → α (n + 1)
a : α 0
g : (n : Nat) → α n → α (n + 1)
hfg : ∀ (n : Nat) (a b : α n), a = b → f n a = g n b
n : Nat
IH : dfold f n a = dfold g n a
⊢ dfold f (succ n) a = dfold g (succ n) a
case refl.refl.succ
α : Nat → Sort u
f : (n : Nat) → α n → α (n + 1)
a : α 0
g : (n : Nat) → α n → α (n + 1)
hfg : ∀ (n : Nat) (a b : α n), a = b → f n a = g n b
n : Nat
IH : dfold f n a = dfold g n a
⊢ f n (dfold f n a) = g n (dfold g n a)