Initial revision

[helm.git] / helm / gTopLevel / doubleTypeInference.mli

diff --git a/helm/gTopLevel/doubleTypeInference.mli b/helm/gTopLevel/doubleTypeInference.mli
index 4de5bc00c16c19523861917a63f36c1d26a1d2a6..aa151988b233875ab4721aa3106b2189a73bd778 100644 (file)
--- a/helm/gTopLevel/doubleTypeInference.mli
+++ b/helm/gTopLevel/doubleTypeInference.mli
@@ -6,14 +6,14 @@ exception WrongUriToMutualInductiveDefinitions of string
 exception ListTooShort
 exception RelToHiddenHypothesis
 
-type types = {synthesized : Cic.term ; expected : Cic.term};;
+type types = {synthesized : Cic.term ; expected : Cic.term option};;
 
 module CicHash :
   sig
-    type key = Cic.term
-    and 'a t
-    val find : 'a t -> key -> 'a
+    type 'a t
+    val find : 'a t -> Cic.term -> 'a
   end
+;;
 
 val double_type_of :
- Cic.metasenv -> Cic.context -> Cic.term -> types CicHash.t
+ Cic.metasenv -> Cic.context -> Cic.term -> Cic.term option -> types CicHash.t