X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fdisambiguation%2FdisambiguateTypes.ml;h=50d1d59da6013658ca50d4012f18e550e773ed94;hb=d51f9674886d1e609a6ea792b65871dcde4f6503;hp=f6e03d098ccd555de2bab69a0b4f41bb417cf4b5;hpb=f6b7c6ae353e014761a3d24dbc87e00d828d7f2d;p=helm.git

diff --git a/matita/components/disambiguation/disambiguateTypes.ml b/matita/components/disambiguation/disambiguateTypes.ml
index f6e03d098..50d1d59da 100644
--- a/matita/components/disambiguation/disambiguateTypes.ml
+++ b/matita/components/disambiguation/disambiguateTypes.ml
@@ -25,6 +25,12 @@
 
 (* $Id$ *)
 
+type 'a expected_type = [ `XTNone       (* unknown *)
+                        | `XTSome of 'a (* the given term *) 
+		        | `XTSort       (* any sort *)
+		        | `XTInd        (* any (co)inductive type *)
+                        ]
+
 type domain_item =
   | Id of string               (* literal *)
   | Symbol of string * int     (* literal, instance num *)