Section finFun.
Context (X : finType) Y {reg__X:registered X} {reg__Y:registered Y}.
Context {eqbX : X -> X -> bool} `{eqbClass X eqbX} `{@eqbCompT X _ eqbX _}.

Lemma finFun_computableTime_const (f:X -> Y) (d:Y):
{c & computableTime' f (fun _ _ => (c,tt))}.