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