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

14 lines
403 B
Text

#check (assume a : nat, have H : 0, from rfl a,
(H a a) : ∀ a : nat, a = a)
#check (assume a : nat, have H : a = a, from rfl a,
(H a a) : ∀ a : nat, a = a)
#check (assume a : nat, have H : a = a, from a + 0,
(H a a) : ∀ a : nat, a = a)
#check (assume a : nat, have H : a = a, from rfl,
(H a) : ∀ a : nat, a = a)
#check (assume a : nat, have H : a = a, from rfl,
H : ∀ a : nat, a = a)