anchor.diff:      let univ_names, t = Subst.open_univ_vars univ_names t in
       let t = remove_uvar_solutions env t in
       let t = Subst.close_univ_vars univ_names t in
  +    let t = elim_delayed_subst_term t in
       let binders, tc =
           match binders with
           | [] -> [], Inl t
  
positive.code:       end
  
  //////////////////////////////////////////////////////////////////
  //Eliminating all unification variables in a sigelt
  //////////////////////////////////////////////////////////////////
  let elim_uvars_aux_tc (env:Env.env) (univ_names:univ_names) (binders:binders) (tc:either<typ, comp>) =
      let t =
        match binders, tc with
  
negative.code: 
  let rec norm : cfg -> env -> stack -> term -> term =
      fun cfg env stack t ->
          log cfg  (fun () ->
              let t = compress t in
              BU.print4 ">>> %s\nNorm %s with with %s env elements top of the stack %s \n"
                                          (Print.tag_of_term t)
                                          (Print.term_to_string t)
                                          (BU.string_of_int (List.length env))
                                          (stack_to_string (fst <| firstn 4 stack)));
          match t.n with
            | Tm_unknown
            | Tm_constant _
            | Tm_name _
  
  