diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-07-31 21:59:05 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-07-31 21:59:05 +0200 |
commit | 1ac702e5b1dd2cdf7024b3c454f042e9ec252775 (patch) | |
tree | a883a0073edeac49fd20aa4c2552b9e8a4a6227e /kernel | |
parent | 04b28b0c95f15fedb2e5eef26cd87b97b4e2120d (diff) |
Useless export of Instance.eqeq. We hashcons everything before calling this
function, so plain pointer equality is sufficient.
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/constr.ml | 4 | ||||
-rw-r--r-- | kernel/univ.ml | 3 | ||||
-rw-r--r-- | kernel/univ.mli | 3 |
3 files changed, 2 insertions, 8 deletions
diff --git a/kernel/constr.ml b/kernel/constr.ml index b2aa5690b..2a13f938b 100644 --- a/kernel/constr.ml +++ b/kernel/constr.ml @@ -741,9 +741,9 @@ let hasheq t1 t2 = | Evar (e1,l1), Evar (e2,l2) -> Evar.equal e1 e2 && array_eqeq l1 l2 | Const (c1,u1), Const (c2,u2) -> c1 == c2 && u1 == u2 | Ind ((sp1,i1),u1), Ind ((sp2,i2),u2) -> - sp1 == sp2 && Int.equal i1 i2 && Univ.Instance.eqeq u1 u2 + sp1 == sp2 && Int.equal i1 i2 && u1 == u2 | Construct (((sp1,i1),j1),u1), Construct (((sp2,i2),j2),u2) -> - sp1 == sp2 && Int.equal i1 i2 && Int.equal j1 j2 && Univ.Instance.eqeq u1 u2 + sp1 == sp2 && Int.equal i1 i2 && Int.equal j1 j2 && u1 == u2 | Case (ci1,p1,c1,bl1), Case (ci2,p2,c2,bl2) -> ci1 == ci2 && p1 == p2 && c1 == c2 && array_eqeq bl1 bl2 | Fix ((ln1, i1),(lna1,tl1,bl1)), Fix ((ln2, i2),(lna2,tl2,bl2)) -> diff --git a/kernel/univ.ml b/kernel/univ.ml index 9fc067394..4adc1e683 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -1705,7 +1705,6 @@ module Instance : sig val share : t -> t * int - val eqeq : t -> t -> bool val subst_fn : universe_level_subst_fn -> t -> t val pr : t -> Pp.std_ppcmds @@ -1776,8 +1775,6 @@ struct let to_array a = a - let eqeq = HInstancestruct.equal - let subst_fn fn t = let t' = CArray.smartmap fn t in if t' == t then t else t' diff --git a/kernel/univ.mli b/kernel/univ.mli index f9b8617c2..8f40bc5f8 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -283,9 +283,6 @@ sig val share : t -> t * int (** Simultaneous hash-consing and hash-value computation *) - val eqeq : t -> t -> bool - (** Rely on physical equality of subterms only *) - val subst_fn : universe_level_subst_fn -> t -> t (** Substitution by a level-to-level function. *) |