8 lines
169 B
Text
8 lines
169 B
Text
import data.tuple
|
||
open nat
|
||
universe variables u
|
||
variable {α : Type u}
|
||
|
||
def head (n) : tuple α (succ n) → α
|
||
| ⟨[], H⟩ := by contradiction
|
||
| ⟨a::b, H⟩ := a
|