blob: 3cea8940324baab0f7f3e4f20326602cefa64748 [file] [edit]
universe u
axiom f {α : Sort u} (a : α) : α
axiom f_eq {α : Sort u} (a : α) : f a = a
example (a : Nat) : f id a = a := by
simp only [f_eq]
trace_state
rfl