(*
The strings contains an unreadable message
*)
-exception UniverseInconsistency of string
+exception UniverseInconsistency of string Lazy.t
(*
Cic.Type of universe
*)
val empty_ugraph: universe_graph
+(* an universe that does nothing: i.e. no constraints are kept, no merges.. *)
+val oblivion_ugraph: universe_graph
+
(*
These are the real functions to add eq/ge/gt constraints
to the passed graph, returning an updated graph or raising
val add_gt:
?fast:bool -> universe -> universe -> universe_graph -> universe_graph
+val do_rank: universe_graph -> unit
+val get_rank: universe -> int
+
(*
debug function to print the graph to standard error
*)
(** re-hash-cons a single universe *)
val recons_univ: universe -> universe
- (** consistency chek that should be done before committin the graph to the
+ (** consistency check that should be done before committin the graph to the
* cache *)
val assert_univs_have_uri: universe_graph -> universe list-> unit
val get_spent_time: unit -> float
val reset_spent_time: unit -> unit
+val is_anon: universe -> bool