anchor.diff:    let l = norm_eff_name env l in
     lid_equals l C.effect_PURE_lid
     || lid_equals l C.effect_GHOST_lid
  -
  -let mk_comp_l mname u_result result wp flags =
  -  mk_Comp ({ comp_univs=[u_result];
  -             effect_name=mname;
  -             result_typ=result;
  -             effect_args=[S.as_arg wp];
  -             flags=flags})
  -
  -let mk_comp md = mk_comp_l md.mname
   
   let lax_mk_tot_or_comp_l mname u_result result flags =
       if Ident.lid_equals mname C.effect_Tot_lid
  
positive.code:             if env.lax
              && Options.ml_ish() //NS: Disabling this optimization temporarily
              then S.tun
              else let a, kwp = Env.wp_signature env C.effect_PURE_lid in
                   let k = SS.subst [NT(a, t)] kwp in
                   let ret_wp = m |> U.get_return_vc_combinator in
                   N.normalize [Env.Beta; Env.NoFullNorm]
                              env
                              (mk_Tm_app (inst_effect_fun_with [u_t] env m ret_wp)
  
negative.code:   c
  
  (* private *)
  
  (*
   * Bind for indexed effects
  