blob: caa0fd31cb3c04d40305d26749c5c975aa9dd751 [file] [edit]
attribute [simp] eq_iff_true_of_subsingleton
example : True := trivial
structure Func' (α : Sort _) (β : Sort _) :=
(toFun : α → β)
def r : Func' α α := ⟨id⟩
@[simp] theorem r_toFun {α : Sort u_1} (a : α) : Func'.toFun r a = id a := rfl
example (x y : α) (h : x = y) : r.toFun x = y := by simp <;> rw [h]
theorem noissue (x y : α) (h : x = y) : r.toFun x = y := by simp <;> rw [h]