let is_computed () =
  (* check whether annotations are computed for the
     set of functions selected through the command-line option,
     and for the selected set of command-line options *)

  if not (Ast.is_computed ()) then false
  else
    let include_function kf =
      let fsel = FunctionSelection.get () in
      Datatype.String.Set.is_empty fsel
      || let name = Kernel_function.get_name kf in
         Datatype.String.Set.mem name fsel
    in
      try
        Globals.Functions.iter
          (fun kf ->
             if include_function kf then
               begin
                 match kf.fundec with
                   | Declaration _ -> ()
                   | Definition _ -> if not(is_computed_kf kf) then raise Exit
               end
          )
        ;
        true
      with Exit -> false