remove print_theorynotfound from Env. Why was it there?

src/core/env.ml

@@ -63,5 +63,3 @@ let find_theory env sl s =
 
 let env_tag env = env.env_tag
 
-let print_theorynotfound fmt (l,s) =
-  Format.fprintf fmt "%s.%s" (String.concat "." l) s

src/core/env.mli

@@ -34,4 +34,3 @@ val env_tag : env -> int
 
 exception TheoryNotFound of string list * string
 
-val print_theorynotfound : Format.formatter -> string list * string -> unit

src/driver/driver.ml

@@ -227,8 +227,9 @@ let load_rules env driver {thr_name = loc,qualid; thr_rules = trl} =
   let id,qfile = qualid_to_slist qualid in
   let th = try
     find_theory env qfile id 
-  with Env.TheoryNotFound (l,s) -> errorm ~loc "theory %a not found" 
-    Env.print_theorynotfound (l,s) in
+  with Env.TheoryNotFound (l,s) -> 
+    errorm ~loc "theory %s.%s not found" (String.concat "." l) s
+  in
   let add_htheory cloned id t =
     try
       let t2,t3 = Hid.find driver.drv_theory id in