X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_library%2FnCicLibrary.ml;h=70be8ae5768c31cf13bdc2c7e75a63dda843cf7c;hb=53a5acbe28212706be9c684d612aee1ccb165587;hp=d4ea77a317ba7be499218c693ed028c62bd8dfae;hpb=aab0401db0bedd941da96a32acd600af3fbe42e7;p=helm.git diff --git a/matita/components/ng_library/nCicLibrary.ml b/matita/components/ng_library/nCicLibrary.ml index d4ea77a31..70be8ae57 100644 --- a/matita/components/ng_library/nCicLibrary.ml +++ b/matita/components/ng_library/nCicLibrary.ml @@ -146,19 +146,11 @@ let load_db,set_global_aliases,get_global_aliases,add_deps,get_deps,remove_deps= let init = load_db;; -class type g_status = - object - method timestamp: timestamp - end - class status = object(self) val timestamp = (time0 : timestamp) method timestamp = timestamp method set_timestamp v = {< timestamp = v >} - method set_library_status - : 'status. #g_status as 'status -> 'self - = fun o -> self#set_timestamp o#timestamp end let time_travel status =