anchor.diff:          log ps (fun () ->
               BU.print2 "Pointwise_rec: making equality %s = %s\n" (Print.term_to_string t)
                                                                    (Print.term_to_string ut));
  -        bind (add_irrelevant_goal env (U.mk_eq2 (TcTerm.universe_of env typ) typ t ut)) (fun _ ->
  +        bind (add_irrelevant_goal env (U.mk_eq2 (TcTerm.universe_of env typ) typ t ut) opts) (fun _ ->
           focus (
               bind tau (fun _ ->
               Rel.force_trivial_guard env guard;
  
positive.code:                     | _ -> failwith "exact_lemma: impossible: not a lemma"
      in
      if Rel.teq_nosmt goal.context post goal.goal_ty
      then let _ = solve goal t in bind dismiss (fun _ -> add_irrelevant_goal goal.context pre)
      else fail3 "%s : %s does not exactly solve the goal %s"
                      (Print.term_to_string t)
                      (Print.term_to_string post)
  
negative.code:     log ps (fun () ->
          BU.print1 "Pointwise starting with %s\n" (Print.term_to_string gt));
      bind dismiss_all (fun _ ->
      bind (tac_bottom_fold_env (pointwise_rec ps tau g.opts) g.context gt) (fun gt' ->
      log ps (fun () ->
          BU.print1 "Pointwise seems to have succeded with %s\n" (Print.term_to_string gt'));
      bind (push_goals gs) (fun _ ->
  