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

11 lines
194 B
Text

example (a b : nat) (h : a = b) : (λ x, x) a = b :=
begin
simp,
exact h
end
example (a b : nat) (h : a = b) : (λ x, x) a = b :=
begin
fail_if_success {simp {beta := ff}},
exact h
end