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:     | _ -> ()
      end
  
  let namespace_is_open env lid =
    List.existsb (function
                  | Open_module_or_namespace (ns, Open_namespace) -> lid_equals lid ns
                  | _ -> false) env.scope_mods
  
  let shorten_module_path env ids is_full_path =
    // FIXME this could be faster (module_is_defined and namespace_is_open are slow)
    let rec aux revns id =
      let lid = FStar.Ident.lid_of_ns_and_id (List.rev revns) id in
      if namespace_is_open env lid
  
negative.code:       match (Subst.compress e).n with
        | Tm_fvar fv -> Some fv.fv_name.v
        | _ -> None
  
  let shorten_lid' env lid =
    let (_, short) = shorten_module_path env lid.ns true in
    lid_of_ns_and_id short lid.ident
  
  let shorten_lid env lid =
    match env.curmodule with
    | None -> shorten_lid' env lid
    | _ ->
      let lid_without_ns = lid_of_ns_and_id [] lid.ident in
      match resolve_to_fully_qualified_name env lid_without_ns with
      // Simple case: lid without namespace resolves to itself
      | Some lid' when lid'.str = lid.str -> lid_without_ns
      | _ -> shorten_lid' env lid
  
  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 }
  