let add_axiom obj src name path prop =
      let dname = F.fresh_name R.prefix name in
      F.add_declaration {
        d_name = dname ;
        d_section = S_Model_Prop ;
        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) ;
      }