parent
4208c44939
commit
ef33882e2f
1 changed files with 6 additions and 0 deletions
6
tests/lean/run/2835.lean
Normal file
6
tests/lean/run/2835.lean
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
@[simp] theorem imp_self' {a : Prop} : (a → a) ↔ True := ⟨fun _ => trivial, fun _ => id⟩
|
||||
|
||||
example {P : Prop} : P → P := by simp only [imp_self']
|
||||
|
||||
example {α : Prop} {P : α → Prop} {f : ∀ {a}, P a → α} {a : α} : (h : P a) → P (f h) := by
|
||||
simp only [imp_self']
|
||||
Loading…
Add table
Reference in a new issue