anchor.diff:                Term.mkApp(t, cvars |> List.map mkFreeV), []
   
               | None ->
  -              let tsym = varops.fresh "Tm_refine" in
  +              let tsym = varops.mk_unique ("Tm_refine_" ^ (Util.digest_of_string tkey.hash)) in
                 let cvar_sorts = List.map snd cvars in
                 let tdecl = Term.DeclFun(tsym, cvar_sorts, Term_sort, None) in
                 let t = Term.mkApp(tsym, List.map mkFreeV cvars) in
  
positive.code:                   Term.mkApp(t', cvars |> List.map mkFreeV), []
  
                  | None ->
                    let tsym = varops.fresh "Tm_arrow" in
                    let cvar_sorts = List.map snd cvars in
                    let caption =
                      if Options.log_queries()
  
negative.code:                         let cvars = Term.free_variables has_type in
                          let e_typing = Term.Assume(Term.mkForall([[has_type]], cvars, has_type), 
                                                     Some "Partial app typing", 
                                                     Some (varops.mk_unique ("partial_app_typing_" ^ (Util.digest_of_string app_tm.hash)))) in
                          app_tm, decls@decls'@decls''@[e_typing]
                  end in
  
  