anchor.diff:                      let goal = N.normalize [N.Simplify; N.Primops] env goal in
                       match check_trivial goal with
                       | Trivial ->
  -                        if (Env.debug env <| Options.Other "Rel") || (Env.debug env <| Options.Other "Tac")
  +                        if debug
                           then BU.print_string "Goal completely solved by tactic\n";
                           () // do nothing
   
  
positive.code:     match g.guard_f with
      | Trivial -> Some ret_g
      | NonTrivial vc ->
        if Env.debug env <| Options.Other "Norm"
        || Env.debug env <| Options.Other "SMTQuery"
        then Errors.diag (Env.get_range env)
                         (BU.format1 "Before normalization VC=\n%s\n" (Print.term_to_string vc));
        let vc = N.normalize [N.Eager_unfolding; N.Simplify; N.Primops] env vc in
        if Env.debug env <| Options.Other "Norm"
        || Env.debug env <| Options.Other "SMTQuery"
        then Errors.diag (Env.get_range env)
                         (BU.format1 "After normalization VC=\n%s\n" (Print.term_to_string vc));
        match check_trivial vc with
        | Trivial -> Some ret_g
        | NonTrivial vc ->
          if not use_smt then (
              if Env.debug env <| Options.Other "Rel" then
                  Errors.diag (Env.get_range env)
                              (BU.format1 "Cannot solve without SMT : %s\n" (Print.term_to_string vc));
                  None
          ) else
            let _ =
              if Env.debug env <| Options.Other "Rel"
              then Errors.diag (Env.get_range env)
                               (BU.format1 "Checking VC=\n%s\n" (Print.term_to_string vc));
              let vcs =
  
negative.code:                         FStar.Options.push ();
                          FStar.Options.set opts;
                          maybe_update_proof_ns env;
                          if debug
                          then Errors.diag (Env.get_range env)
                                           (BU.format2 "Trying to solve:\n> %s\nWith proof_ns:\n %s\n"
                                                   (Print.term_to_string goal)
                                                   (Env.string_of_proof_ns env));
                          if debug
                          then Errors.diag (Env.get_range env)
                                           (BU.format1 "Before calling solver VC=\n%s\n" (Print.term_to_string goal));
                          let res = env.solver.solve use_env_range_msg env goal in
  