diff --git a/src/Init/Core.lean b/src/Init/Core.lean index 315ef6868bfd..6b538b773403 100644 --- a/src/Init/Core.lean +++ b/src/Init/Core.lean @@ -171,6 +171,8 @@ instance thunkCoe : CoeTail α (Thunk α) where -- Since coercions are expanded eagerly, `a` is evaluated lazily. coe a := ⟨fun _ => a⟩ +instance [Inhabited α] : Inhabited (Thunk α) := ⟨.pure default⟩ + /-- A variation on `Eq.ndrec` with the equality argument first. -/ abbrev Eq.ndrecOn.{u1, u2} {α : Sort u2} {a : α} {motive : α → Sort u1} {b : α} (h : a = b) (m : motive a) : motive b := Eq.ndrec m h