anchor.diff:           [Module(name, Caption msg::decls@[Caption ("End " ^ msg)])]
       else decls in
       set_env ({env with warn=true});
  -    if Env.debug tcenv Options.Low then BU.print1 "Done encoding externals for %s\n" name;
  +    if Env.debug tcenv Options.Medium then BU.print1 "Done encoding externals for %s\n" name;
       let decls = caption decls in
       Z3.giveZ3 decls
   
  
positive.code:     if Options.log_queries()
      then Term.Caption ("encoding sigelt " ^ (U.lids_of_sigelt se |> List.map Print.lid_to_string |> String.concat ", "))::decls
      else decls in
     if Env.debug tcenv Options.Low
     then BU.print1 "+++++++++++Encoding sigelt %s\n" (Print.sigelt_to_string se);
     let env = get_env (Env.current_module tcenv) tcenv in
     let decls, env = encode_top_level_facts env se in
  
negative.code:         U.close_forall_no_univs (List.rev closing) q, bindings
      in
      let env_decls, env = encode_env_bindings env bindings in
      if debug tcenv Options.Medium
      || debug tcenv <| Options.Other "SMTEncoding"
      || debug tcenv <| Options.Other "SMTQuery"
      then BU.print1 "Encoding query formula: %s\n" (Print.term_to_string q);
  