anchor.diff:            (c1 |> S.mk_Comp |> Print.comp_to_string)
             (c2 |> S.mk_Comp |> Print.comp_to_string);
   
  -      let c1, g_lift = 
  +      let c1, g_lift =
           c1 |> S.mk_Comp |> edge.mlift.mlift_wp env
              |> (fun (c, g) -> U.comp_to_comp_typ c, g) in
   
  
positive.code: and maybe_defer_to_user_tac (env:Env.env) prob reason wl : solution =
    match prob.relation with
    | EQ ->
      let should_defer_tac t = 
        let head, _ = U.head_and_args t in
        match (SS.compress head).n with
        | Tm_uvar(uv, _) -> 
          should_defer_uvar_to_user_tac wl.tcenv uv, uv.ctx_uvar_reason
        | _ -> false, ""
      in
      let l1, r1 = should_defer_tac prob.lhs in
      let l2, r2 = should_defer_tac prob.rhs in
      if l1 || l2 
      then defer_to_user_tac env (TProb prob) (r1 ^ ", " ^ r2) wl
      else solve env (defer_lit reason (TProb prob) wl)
    | _ -> solve env (defer_lit reason (TProb prob) wl)
  
negative.code:       if debug
        then Errors.diag (Env.get_range env)
                         (BU.format1 "Before normalization VC=\n%s\n" (Print.term_to_string vc));
        let vc =
          Profiling.profile
            (fun () -> N.normalize [Env.Eager_unfolding; Env.Simplify; Env.Primops] env vc)
            (Some (Ident.string_of_lid (Env.current_module env)))
  