diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-12-17 19:12:11 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-12-17 19:38:36 +0100 |
| commit | 6b2ec938010c50dae3ec6c87ff8ea7f2a4012b92 (patch) | |
| tree | bf02ac37d72cdfe17c765796632464ee42a8de58 /kernel/univ.ml | |
| parent | e4ac6f91e8d95a168cdaeaec72cf761b7b6da4b7 (diff) | |
Ensuring the good invariants of hashcons table generation in the API.
Diffstat (limited to 'kernel/univ.ml')
| -rw-r--r-- | kernel/univ.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index dd43e17be..2cac50fda 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -488,7 +488,7 @@ struct include Hashcons.Make(ExprHash) let make = - Hashcons.simple_hcons generate Level.hcons + Hashcons.simple_hcons generate hcons Level.hcons let hash = ExprHash.hash let equal x y = x == y || (let (u,n) = x and (v,n') = y in @@ -1391,8 +1391,8 @@ module Hconstraints = let hash = Hashtbl.hash end) -let hcons_constraint = Hashcons.simple_hcons Hconstraint.generate Level.hcons -let hcons_constraints = Hashcons.simple_hcons Hconstraints.generate hcons_constraint +let hcons_constraint = Hashcons.simple_hcons Hconstraint.generate Hconstraint.hcons Level.hcons +let hcons_constraints = Hashcons.simple_hcons Hconstraints.generate Hconstraints.hcons hcons_constraint (** A value with universe constraints. *) @@ -1775,7 +1775,7 @@ struct module HInstance = Hashcons.Make(HInstancestruct) - let hcons = Hashcons.simple_hcons HInstance.generate Level.hcons + let hcons = Hashcons.simple_hcons HInstance.generate HInstance.hcons Level.hcons let hash = HInstancestruct.hash @@ -2125,7 +2125,7 @@ module Huniverse_set = end) let hcons_universe_set = - Hashcons.simple_hcons Huniverse_set.generate Level.hcons + Hashcons.simple_hcons Huniverse_set.generate Huniverse_set.hcons Level.hcons let hcons_universe_context_set (v, c) = (hcons_universe_set v, hcons_constraints c) |