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/constr.ml | |
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/constr.ml')
-rw-r--r-- | kernel/constr.ml | 4 |
1 files changed, 2 insertions, 2 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)) -> |