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 -> []