anchor.diff:          | None ->
             if not (Options.interactive ()) then
               FStar.Errors.warn (range_of_lid l)
  -              (BU.format1 "Admitting %s without a definition" (Print.lid_to_string l));
  +              (BU.format1 "Admitting %s without a definition" l.str);
             let quals = Assumption :: se.sigquals in
             BU.smap_add (sigmap env) l.str ({ se with sigquals = quals },
                                             false)
  
positive.code:       match (Subst.compress e).n with
        | Tm_fvar fv -> Some fv.fv_name.v
        | _ -> None
  
  let try_lookup_lid_no_resolve (env: env) l =
    let env' = {env with scope_mods = [] ; exported_ids=empty_exported_id_smap; includes=empty_include_smap }
  
negative.code:     let lid = qual (current_module env) id in
      find_in_module env lid k_global_def k_not_found
  
  let lid_is_curmod env lid =
    match env.curmodule with
    | None -> false
    | Some m -> lid_equals lid m
  
  let module_is_defined env lid =
      lid_is_curmod env lid ||
      List.existsb (fun x -> lid_equals lid (fst x)) env.modules
  
  let resolve_module_name env lid (honor_ns: bool) : option<lident> =
  