5 lines
117 B
Text
5 lines
117 B
Text
open tactic
|
||
|
||
def hd {α} : {l : list α // l ≠ []} → α
|
||
| ⟨[], h⟩ := by contradiction
|
||
| ⟨a::l, h⟩ := a
|