exception NoWellTypedInterpretation
-module Environment :
+module EnvironmentP3 :
sig
type t
- val empty : t
+ val empty : string
val to_string : t -> string
val of_string : string -> t
end
-module Make (C : Disambiguate_types.Callbacks) :
+module Make (C : DisambiguateTypes.Callbacks) :
sig
val disambiguate_term :
MQIConn.handle ->
Cic.context ->
Cic.metasenv ->
string ->
- Environment.t -> (* previous interpretation status *)
- Environment.t * (* new interpretation status *)
- Cic.metasenv * (* new metasenv *)
- Cic.term (* disambiguated term *)
+ EnvironmentP3.t -> (* previous interpretation status *)
+ (EnvironmentP3.t * (* new interpretation status *)
+ Cic.metasenv * (* new metasenv *)
+ Cic.term) list (* disambiguated term *)
end