X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaTypes.ml;h=a772ae94695933f7a27fd20ae50783936074ec6b;hb=489639a3c319d0349a9c864fd0eeaf659daa3d3f;hp=e295b9c0f7b80c9f74dddeef107e71b8310bbfff;hpb=d46411c038cccb932638fd9d131c5d858c80ac5e;p=helm.git

diff --git a/matita/matita/matitaTypes.ml b/matita/matita/matitaTypes.ml
index e295b9c0f..a772ae946 100644
--- a/matita/matita/matitaTypes.ml
+++ b/matita/matita/matitaTypes.ml
@@ -45,12 +45,9 @@ type abouts =
 type mathViewer_entry =
   [ `About of abouts  (* current proof *)
   | `Check of string  (* term *)
-  | `Cic of Cic.term * Cic.metasenv
   | `NCic of NCic.term * NCic.context * NCic.metasenv * NCic.substitution
   | `Dir of string  (* "directory" in cic uris namespace *)
-  | `Uri of UriManager.uri (* cic object uri *)
   | `NRef of NReference.reference (* cic object uri *)
-  | `Univs of UriManager.uri
   ]
 
 let string_of_entry = function
@@ -63,12 +60,9 @@ let string_of_entry = function
   | `About `Grammar -> "about:grammar"
   | `About `Hints -> "about:hints"
   | `Check _ -> "check:"
-  | `Cic (_, _) -> "term:"
   | `NCic (_, _, _, _) -> "nterm:"
   | `Dir uri -> uri
-  | `Uri uri -> UriManager.string_of_uri uri
   | `NRef nref -> NReference.string_of_reference nref
-  | `Univs uri -> "univs:" ^ UriManager.string_of_uri uri
 
 let entry_of_string = function
   | "about:blank" -> `About `Blank
@@ -81,16 +75,3 @@ let entry_of_string = function
   | "about:grammar"    -> `About `Grammar
   | _ ->  (* only about entries supported ATM *)
       raise (Invalid_argument "entry_of_string")
-
-class type mathViewer =
-  object
-    (** @param reuse if set reused last opened cic browser otherwise 
-     *  opens a new one. default is false
-     *)
-    method show_entry: ?reuse:bool -> mathViewer_entry -> unit
-    method show_uri_list:
-      ?reuse:bool -> entry:mathViewer_entry -> UriManager.uri list -> unit
-    method screenshot: 
-      GrafiteTypes.status -> NCic.metasenv -> NCic.metasenv ->
-        NCic.substitution -> string -> unit
-  end