anchor.diff:  
                       | _ -> false
                   in
  -                Options.protect_top_level_axioms() &&
                   //Do not thunk ...
                   lid.nsstr <> "Prims"  //things in prims
                   && not (quals |> List.contains Logic) //logic qualified terms
  
positive.code:                       decls2@[tok_typing], push_free_var env lid arity vname (Some <| mkFreeV (mk_fv (vname, Term_sort)))
  
                      | _ when thunked ->
                        decls2, env
  
                      | _ ->
                       (* Generate a token and a function symbol;
  
negative.code:               let vname, vtok_opt, env = new_term_constant_and_tok_from_lid_maybe_thunked env lid arity thunked in
                let get_vtok () = Option.get vtok_opt in
                let vtok_tm =
                      match formals with
                      | [] when not thunked -> mkFreeV <| mk_fv (vname, Term_sort)
                      | [] when thunked -> mkApp(vname, [dummy_tm])
                      | _ -> mkApp(get_vtok(), []) //not thunked
                in
                let vtok_app = mk_Apply vtok_tm vars in
  