lean2/tests/lean/whnf_tac.lean

12 lines
142 B
Text
Raw Normal View History

import logic
definition id {A : Type} (a : A) := a
theorem tst (a : Prop) : a → id a :=
begin
intro Ha,
whnf,
state,
apply Ha
end