14 lines
No EOL
236 B
Text
14 lines
No EOL
236 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, cons x u) s
|
|
|
|
opaque_hint (hiding concat)
|
|
|
|
end |