lean4-htt/old_tests/tests/lean/run/simp_eta.lean
2018-04-10 12:56:55 -07:00

12 lines
231 B
Text

example (f g : nat → nat) (h : f = g) : (λ x, f x) = g :=
begin
simp,
guard_target f = g,
exact h
end
example (f g : nat → nat) (h : f = g) : (λ x, f x) = g :=
begin
fail_if_success {simp {eta := ff}},
exact h
end