From 7dfb0fb915fa095f8af57e8bb5e4727ebb61304a Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Sun, 3 Nov 2013 20:48:34 +0100 Subject: - Rename eq to equal in Univ, document new modules, set interfaces. A try at hashconsing all universes instances seems to incur a big cost. - Do hashconsing of universe instances in constr. - Little fix in obligations w.r.t. non-polymorphic constants. Conflicts: kernel/constr.ml kernel/declareops.ml kernel/inductive.ml kernel/univ.mli --- checker/term.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'checker/term.ml') diff --git a/checker/term.ml b/checker/term.ml index 67d380336..ea81f5dab 100644 --- a/checker/term.ml +++ b/checker/term.ml @@ -347,7 +347,7 @@ let compare_sorts s1 s2 = match s1, s2 with | Pos, Null -> false | Null, Pos -> false end -| Type u1, Type u2 -> Universe.eq u1 u2 +| Type u1, Type u2 -> Universe.equal u1 u2 | Prop _, Type _ -> false | Type _, Prop _ -> false -- cgit v1.2.3