List.map (fun (_,t) -> t) constructors
else
let term_type =
- TypeInference.type_of_aux' metasenv context term in
+ CicTypeChecker.type_of_aux' metasenv context term in
(match term_type with
C.Appl (hd::params) ->
List.map (fun (_,t) -> clean_up t params) constructors