X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fdisambiguation%2FdisambiguateTypes.mli;h=ef24e2ce8879be688a45c03df279ce660c98ad91;hb=f7da48c844105a52a705872dfa0d4104de010c82;hp=1e99fd404ace0ebfad221082340ed3b98365b144;hpb=225887a9f23aac79d4cca907da026917b7df04dc;p=helm.git

diff --git a/matita/components/disambiguation/disambiguateTypes.mli b/matita/components/disambiguation/disambiguateTypes.mli
index 1e99fd404..ef24e2ce8 100644
--- a/matita/components/disambiguation/disambiguateTypes.mli
+++ b/matita/components/disambiguation/disambiguateTypes.mli
@@ -23,6 +23,12 @@
  * http://helm.cs.unibo.it/
  *)
 
+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 *)