13 lines
230 B
Text
13 lines
230 B
Text
inductive list (T : Type) : Type :=
|
|
nil {} : list T,
|
|
cons : T → list T → list T
|
|
|
|
|
|
section
|
|
variable {T : Type}
|
|
|
|
definition concat (s t : list T) : list T
|
|
:= list.rec t (fun x l u, list.cons x u) s
|
|
|
|
reducible concat
|
|
end
|