anchor.diff:              | [], _ ->
                 //nothing generalized, or
                 //only universes generalized, still need to compress out invariant-broken uvars
  -              let c = N.normalize_comp [N.Beta; N.NoDeltaSteps; N.NoFullNorm] env c in
  +              let c = N.normalize_comp [N.Beta; N.NoDeltaSteps; N.NoFullNorm; N.Exclude N.Zeta] env c in
                 let e = N.reduce_uvar_solutions env e in
                 e, c
   
               | _ ->
                 //before we manipulate the term further, we must normalize it to get rid of the invariant-broken uvars
                 let e0, c0 = e, c in
  -              let c = N.normalize_comp [N.Beta; N.NoDeltaSteps; N.CompressUvars; N.NoFullNorm] env c in
  +              let c = N.normalize_comp [N.Beta; N.NoDeltaSteps; N.CompressUvars; N.NoFullNorm; N.Exclude N.Zeta] env c in
                 let e = N.reduce_uvar_solutions env e in
                 //now, with the uvars gone, we can close over the newly introduced type names
                 let t = match (SS.compress (U.comp_result c)).n with
  
positive.code:         if debug env Options.Medium
          then BU.print1 "Normalizing before generalizing:\n\t %s\n" (Print.comp_to_string c);
           let c = if Env.should_verify env
                   then Normalize.normalize_comp [N.Beta; N.Eager_unfolding; N.NoFullNorm] env c
                   else Normalize.normalize_comp [N.Beta; N.NoFullNorm] env c in
           if debug env Options.Medium then
              BU.print1 "Normalized to:\n\t %s\n" (Print.comp_to_string c);
           c in
  
negative.code:               | Fixed ({n=Tm_abs(_, {n=Tm_name a}, _)}) -> a, Some S.imp_tag
                | Fixed _ -> failwith "Unexpected instantiation of mutually recursive uvar"
                | _ ->
                    let k = N.normalize [N.Beta; N.Exclude N.Zeta] env k in
                    let bs, kres = U.arrow_formals k in
                    let a = S.new_bv (Some <| Env.get_range env) kres in
                    let t = U.abs bs (S.bv_to_name a) (Some (Inl (U.lcomp_of_comp (S.mk_Total kres)))) in
  