Section forallb.
Variable (X : Type).
Context (H : registered X).
Definition c__forallb := 15.
Definition forallb_time (fT : X -> nat) (l : list X) := sumn (map (fun elm => fT elm + c__forallb) l) + c__forallb.
Global Instance term_forallb : computableTime' (@forallb X) (fun f fT => (1, fun l _ => (forallb_time (callTime fT) l, tt))).

Lemma forallb_time_const c (l:list X):
forallb_time (fun _ =>  c) l = length l * (c+c__forallb) + c__forallb.