anchor.diff:  let check_module env m b =
     if Options.debug_any()
     then BU.print2 "Checking %s: %s\n" (if m.is_interface then "i'face" else "module") (Print.lid_to_string m.name);
  +  if Options.dump_module m.name.str
  +  then BU.print1 "Module before type checking:\n%s\n" (Print.modul_to_string m);
   
     let env = {env with lax=not (Options.should_verify m.name.str)} in
     let m, m_iface_opt, env = tc_modul env m b in
  
positive.code: 
      [se], []
  
  let for_export hidden se : list<sigelt> * list<lident> =
     (* Exporting symbols based on whether they have been marked 'abstract'
  
  
negative.code: let tc_inductive env ses quals lids =
      let env = Env.push env "tc_inductive" in
  
      if Env.debug env Options.Low then
          BU.print1 ">>>>>>>>>>>>>>tc_inductive %s\n" (FStar.Common.string_of_list Print.sigelt_to_string ses);
  
      let sig_bndle, tcs, datas = TcInductive.check_inductive_well_typedness env ses quals lids in
      (* we have a well-typed inductive;
              we still need to check whether or not it supports equality
  