X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FdoubleTypeInference.mli;h=aa151988b233875ab4721aa3106b2189a73bd778;hb=a4df9661e15509e5da6ed9c57e3ab6a27a440c3f;hp=4de5bc00c16c19523861917a63f36c1d26a1d2a6;hpb=cedc0cfe0ea81f94ac8b88b71d8f855a33329593;p=helm.git

diff --git a/helm/gTopLevel/doubleTypeInference.mli b/helm/gTopLevel/doubleTypeInference.mli
index 4de5bc00c..aa151988b 100644
--- 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