anchor.diff:    | Some (_, arity, _, _) -> Some arity
     | None -> None
   
  -let tc_tot_or_gtot_term_maybe_fastpath env t =
  +let typeof_well_typed_tot_or_gtot_term_maybe_fastpath env t =
     match env.typeof_well_typed_tot_or_gtot_term env t with
     | None ->
       let _, ty, _ = env.typeof_tot_or_gtot_term env t false in
  
positive.code:     tc_term=tc_term;
      typeof_tot_or_gtot_term=typeof_tot_or_gtot_term;
      typeof_well_typed_tot_or_gtot_term = typeof_tot_or_gtot_term_fastpath;
      tc_check_well_typed_tot_or_gtot_term_with_fallback =
        tc_check_tot_or_gtot_term_maybe_fastpath;
      universe_of=universe_of;
      universeof_well_typed_term=universeof_fastpath;
  
  
negative.code: type goal = term
  
  type must_tot = bool
  
  type lift_comp_t = env -> comp -> comp * guard_t
  
  