lean4-htt/tests/lean/run/generalizes.lean
2016-06-10 18:29:41 -07:00

9 lines
164 B
Text

exit
import logic
theorem tst (A B : Type) (a : A) (b : B) : a == b → b == a :=
begin
generalizes [a, b, B],
intros [B', b, a, H],
apply (heq.symm H),
end