anchor.diff:      let item, item_comp = open_and_check item in
       if not (Util.is_total_lcomp item_comp) then
         raise (Err ("Computation for [item] is not total!"));
  -    printfn "elaborate_and_star: Checking %s; got %s\n" (Print.term_to_string item) (Print.lcomp_to_string item_comp);
       let item_t, item_wp, item_elab = DMFF.star_expr dmff_env item in
  -    printfn "elaborate_and_star: Checking %s; got item_t %s\n" (Print.term_to_string item) (Print.term_to_string item_t);
       let item_wp = recheck_debug "*" env item_wp in
       let item_elab = recheck_debug "_" env item_elab in
       dmff_env, item_t, item_wp, item_elab
  
positive.code:           (*         (Print.term_to_string (N.normalize [N.Beta] env act_typ)); *)
            let univs, act_defn = TcUtil.generalize_universes env act_defn in
            let act_typ = N.normalize [N.Beta] env act_typ in
            printfn "Checked action %s at type %s" (Print.term_to_string act_defn) (Print.tscheme_to_string (univs, act_typ));
            {act with 
                action_univs=univs;
                action_defn=act_defn;
  
negative.code:       let env = Env.push_sigelt env se in
        let env, ses = ne.actions |> List.fold_left (fun (env, ses) a -> 
            let se_let = Util.action_as_lb a in
            Env.push_sigelt env se_let, se_let::ses) (env, [se]) in
        [se], env
  
  