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