anchor.diff:  
     let dmff_env = DMFF.empty env (tc_constant Range.dummyRange) in
     let dmff_env, wp_type = DMFF.star_type_definition dmff_env repr in
  -  recheck_debug "*" env wp_type;
  +  let wp_type = recheck_debug "*" env wp_type in
   
     // Building: [a -> wp a -> Effect]
     let effect_signature =
  
positive.code:     let binders = close_binders binders in
      mk (Tm_arrow (binders, effect_marker))
    in
    recheck_debug "turned into the effect signature" env effect_signature;
  
    // TODO: we assume that reading the top-level definitions in the order that
    // they come in the effect definition is enough... probably not
  
negative.code:     if not (Util.is_total_lcomp item_comp) then
        raise (Err ("Computation for [item] is not total!"));
      let dmff_env, (item_wp, item_elab) = DMFF.star_expr_definition dmff_env item in
      let item_wp = recheck_debug "*" env item_wp in
      let item_elab = recheck_debug "_" env item_elab in
      dmff_env, item_wp, item_elab
    in
  
  