let apply def labels =
  try
    Wp_parameters.result ~level:3 ~current:true "Lookup hints for %a."
      !Ast_printer.d_logic_var def ;
    List.map
      (fun (h,s) ->
         let sigma =
           List.map
             (fun (hdef,hused) ->
                hdef , Clabels.lookup labels hused
             ) s
         in 
         let hint = { h_name = h ; h_sigma = sigma } in
         Wp_parameters.result ~level:3 ~current:true
           "For predicate %a : instanciate lemma %a"
           !Ast_printer.d_logic_var def pp_hint hint ;
         hint
      ) (Hints.find globalhints def)
  with Not_found -> []