lean4-htt/tests/lean/elab12.lean
2017-03-09 18:41:19 -08:00

14 lines
393 B
Text

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