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

18 lines
288 B
Text

example : ∀ a b : nat, a = b → b = a :=
begin
introv h,
exact h.symm
end
example : ∀ a b : nat, a = b → ∀ c, b = c → a = c :=
begin
introv h₁ h₂,
exact h₁.trans h₂
end
example : ∀ a b : nat, a = b → b = a :=
begin
introv,
intro h,
exact h.symm
end