16 lines
241 B
Text
16 lines
241 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
|