anchor.diff:    Profiling.profile
       (fun () -> N.normalize_refinement steps env t0)
       (Some (Ident.string_of_lid (Env.current_module env)))
  -    "FStar.TypeChecker.Rel.normalize_refinement"    
  +    "FStar.TypeChecker.Rel.normalize_refinement"
   
   let base_and_refinement_maybe_delta should_delta env t1 =
      let norm_refinement env t =
  
positive.code:                     let ctx_u = { ctx_u with ctx_uvar_meta = None } in
                      let hd = { hd with imp_uvar = ctx_u } in
                      until_fixpoint (out, true) (extra @ tl)
                 | _ -> 
                      until_fixpoint (hd::out, changed) tl
  
                 end
  
negative.code:           (c1 |> S.mk_Comp |> Print.comp_to_string)
            (c2 |> S.mk_Comp |> Print.comp_to_string);
  
        let c1, g_lift =
          c1 |> S.mk_Comp |> edge.mlift.mlift_wp env
             |> (fun (c, g) -> U.comp_to_comp_typ c, g) in
  
  