let xxx_type_of_aux' m c t =
let t1 = Sys.time () in
- let res = TypeInference.type_of_aux' m c t in
+ let res = CicTypeChecker.type_of_aux' m c t in
let t2 = Sys.time () in
type_of_aux'_add_time := !type_of_aux'_add_time +. t2 -. t1 ;
res
match n with
C.Anonymous -> n
| C.Name n' ->
- if TypeInference.does_not_occur 1 t then
+ if DoubleTypeInference.does_not_occur 1 t then
C.Anonymous
else
C.Name n'