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) ;
      }