anchor.diff:    // Making the assumption that the thing we're passed is a top-level name.
     match (SS.compress (N.normalize [ N.EraseUniverses ] env.env t)).n with
     | Tm_fvar { fv_name = lid } ->
  -      let t = N.normalize [ N.UnfoldUntil Delta_constant; N.NoInline ] env.env t in
  +      // Start back from the original [t]... can't re-normalize a term without
  +      // universes (because it is now ill-typed)
  +      let t = N.normalize [ N.UnfoldUntil Delta_constant; N.NoInline; N.EraseUniverses ] env.env t in
         Util.print1 "Recording definition of %s\n" (text_of_lid lid.v);
         let keep, ret = f env t in
         { env with definitions = (lid.v, keep) :: env.definitions }, ret
  
positive.code:           is_tuple_constructor (SS.compress head)
          ) ->
              true
          | Tm_uinst (head, _) ->
              is_valid_application head
          | _ ->
              false
        in
  
negative.code:   let mk x = mk x None t.pos in
    let mk_star_to_type = mk_star_to_type mk in
    //Util.print1 "[debug]: star_type %s\n" (Print.term_to_string t);
    let normalize = N.normalize [ N.EraseUniverses; N.UnfoldUntil S.Delta_constant ] env.env in
    let t = normalize t in
    let t = SS.compress t in
    match t.n with
  