anchor.diff:              let t = find (can get_const_type) constructors
               failwith("define_type: constant " + t + " already defined")
           else 
  -            let retval = define_type_raw defspec
  +            let retval = define_type_raw_002 defspec
               the_inductive_types := (s, retval) :: (!the_inductive_types)
               retval
   
  
positive.code: (* ------------------------------------------------------------------------- *)
  
  // CAUTION: change to bypass value restrictions
  let rec define_type_raw_002 def : thm * thm = 
      let generalize_recursion_theorem = 
          let ELIM_OUTCOMBS = GEN_REWRITE_RULE TOP_DEPTH_CONV [OUTL; OUTR]
          let rec mk_sum tys = 
  
negative.code: (* Hence extend type definition to nested types.                             *)
  (* ------------------------------------------------------------------------- *)
  
  let define_type_raw = 
  
      (* ----------------------------------------------------------------------- *)
      (* Dispose of trivial antecedent.                                          *)
  