exception NoWellTypedInterpretation
-module EnvironmentP3 = Disambiguate_types.EnvironmentP3
+module EnvironmentP3 = DisambiguateTypes.EnvironmentP3
-module Make (C : Disambiguate_types.Callbacks) =
+module Make (C : DisambiguateTypes.Callbacks) =
struct
let disambiguate_term mqi_handle context metasenv term_as_string environment =
let module Disambiguate' = Disambiguate.Make (C) in
- let term = Parser.parse_term (Stream.of_string term_as_string) in
+ let term = CicTextualParser2.parse_term (Stream.of_string term_as_string) in
Disambiguate'.disambiguate_term
mqi_handle context metasenv term environment
end