6 lines
133 B
Text
6 lines
133 B
Text
--
|
||
|
||
def head {α} (xs : List α) (h : xs = [] → False) : α :=
|
||
match (generalizing := false) he:xs with
|
||
| [] => h he
|
||
| x::_ => x
|