10 lines
253 B
Text
10 lines
253 B
Text
import data.nat
|
|
open nat
|
|
|
|
inductive list (T : Type) : Type :=
|
|
nil {} : list T,
|
|
cons : T → list T → list T
|
|
|
|
definition length {T : Type} : list T → nat := list_rec 0 (fun x l m, succ m)
|
|
theorem length_nil {T : Type} : length (@nil T) = 0
|
|
:= refl _
|