let define duser items =
let k = duser.d_info.l_var_info in
List.iter
(fun (name,item) ->
let section =
match item with
| Function _ | Predicate _ -> S_User_Sig
| Axiom _ -> S_User_Prop
| _ -> assert false
in
F.add_declaration {
d_name = name ;
d_section = section ;
d_title = (fun fmt -> pp_userdef_title fmt duser) ;
d_descr = (fun fmt -> pp_userdef_descr fmt duser) ;
d_source = None ;
d_item = item ;
})
items ;
Hdef.remove lock k