Section concat.
Context X `{registered X}.
Fixpoint rev_concat acc (xs : list (list X)) :=
match xs with
[] => acc
| x::xs => rev_concat (rev_append x acc) xs
end.

Lemma _term_rev_concat :
{ time : UpToC (fun l => sumn (map (@length _) l) + length l + 1) &
computableTime' (@rev_concat) (fun _ _ => (5,fun l _ => (time l,tt)))}.