| Eq -> "="
| Incomparable -> "I"
+type environment = Cic.metasenv * Cic.context * CicUniv.universe_graph
+
module OrderedTerm =
struct
type t = Cic.term
module IntSet = Set.Make(OrderedInt)
let compute_equality_weight (ty,left,right,o) =
- let factor = 1 in
+ let factor = 2 in
match o with
| Lt ->
let w, m = (weight_of_term
| (m, _, n) when m > 0 && n > 0 ->
Incomparable
| _ -> assert false
-
;;
let s = UriManager.string_of_uri (LibraryObjects.eq_URI ()) in
UriManager.uri_of_string (s ^ "#xpointer(1/1/1)")
let trans_eq_URI () = LibraryObjects.trans_eq_URI ~eq:(LibraryObjects.eq_URI ())
+
+let metas_of_term t =
+ List.map fst (CicUtil.metas_of_term t)
+;;
+