anchor.diff:      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
  -    recheck_debug "*" env item_wp;
  -    recheck_debug "_" env item_elab;
  +    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
   
  
positive.code:   let recheck_debug s env t =
      Util.print2 "Term has been %s-transformed to:\n%s\n----------\n" s (Print.term_to_string t);
      let t, _, _ = tc_term env t in
      Util.print1 "Re-checked; got:\n%s\n----------\n" (Print.term_to_string t)
    in
  
    // TODO: check that [_comp] is [Tot Type]
  
negative.code: 
    let dmff_env = DMFF.empty env (tc_constant Range.dummyRange) in
    let dmff_env, wp_type = DMFF.star_type_definition dmff_env repr in
    let wp_type = recheck_debug "*" env wp_type in
  
    // Building: [a -> wp a -> Effect]
    let effect_signature =
  