13 lines
245 B
Text
13 lines
245 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
|
|
|
|
attribute concat [reducible]
|
|
end
|