anchor.diff:      signature     = (let us, t, _ = signature in (us, t));
       combinators   = combinators;
       actions       = List.map (tc_action env0) ed.actions }
  -
  -let check_and_gen env t k =
  -    // BU.print1 "\x1b[01;36mcheck and gen \x1b[00m%s\n" (Print.term_to_string t);
  -    TcUtil.generalize_universes env (tc_check_trivial_guard env t k)
   
   let tc_non_layered_eff_decl env0 (ed:S.eff_decl) (_quals : list<qualifier>) : S.eff_decl =
     if Env.debug env0 <| Options.Other "ED" then
  
positive.code:    *   - Unify the type of the combinator (as typechecked) with k
     *   - Record k in the effect declaration (along with the combinator)
     *)
  
  
    (*
  
negative.code:   sub
  
  let tc_lift env sub r =
    let check_and_gen env t k =
      // BU.print1 "\x1b[01;36mcheck and gen \x1b[00m%s\n" (Print.term_to_string t);
      TcUtil.generalize_universes env (tc_check_trivial_guard env t k) in
  
    let ed_src = Env.get_effect_decl env sub.source in
    let ed_tgt = Env.get_effect_decl env sub.target in
  
  