let add_axiom obj src name path prop =
let dname = D.fresh_name R.prefix name in
D.add_declaration {
d_name = dname ;
d_section = S_typedef ;
d_source = src ;
d_item = Formula.Axiom prop ;
d_title = (fun fmt -> Format.fprintf fmt "%s in loaded object %s" R.prefix obj) ;
d_descr = (fun fmt -> Format.fprintf fmt "Path %s" path) ;
}