anchor.diff:                                    (Print.term_to_string t)) r
     end;
     (lid, uvs, tps, c)
  +
  +//let tc_polymonadic_bind env (m n p:lident) (t:S.term) : (S.term * S.typ) =  
  +
  +
  +
  
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
  
  