Section int.
Context {X : Type}.
Context {HX : registered X}.
Fixpoint list_eqbTime (eqbT: timeComplexity (X -> X -> bool)) (A B:list X) :=
match A,B with
a::A,b::B => callTime2 eqbT a b + 22 + list_eqbTime eqbT A B
| _,_ => 9
end.
Global Instance term_list_eqb : computableTime' (list_eqb (X:=X))
(fun _ eqbT => (1,(fun A _ => (5,fun B _ => (list_eqbTime eqbT A B,tt))))).

Lemma list_eqbTime_bound_r (eqbT : timeComplexity (X -> X -> bool)) (A B : list X) f:
(forall (x y:X), callTime2 eqbT x y <= f y) ->
list_eqbTime eqbT A B <= sumn (map f B) + 9 + length B * 22.