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/univ.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/univ.ml')
| -rw-r--r-- | kernel/univ.ml | 3 |
1 files changed, 0 insertions, 3 deletions
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' |