diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-08-02 14:45:24 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-08-02 19:13:51 +0200 |
| commit | 979de570714d340aaab7a6e99e08d46aa616e7da (patch) | |
| tree | cdc7c70266c00b267dba9e698a40b79bb381ceae /kernel/sorts.ml | |
| parent | f556da10a117396c2c796f6915321b67849f65cd (diff) | |
A patch renaming equal into eq in the module dealing with
hash-consing, so as to avoid having too many kinds of equalities with
same name.
Diffstat (limited to 'kernel/sorts.ml')
| -rw-r--r-- | kernel/sorts.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/sorts.ml b/kernel/sorts.ml index e2854abfd..2baf9b133 100644 --- a/kernel/sorts.ml +++ b/kernel/sorts.ml @@ -98,7 +98,7 @@ module Hsorts = let u' = huniv u in if u' == u then c else Type u' | s -> s - let equal s1 s2 = match (s1,s2) with + let eq s1 s2 = match (s1,s2) with | (Prop c1, Prop c2) -> c1 == c2 | (Type u1, Type u2) -> u1 == u2 |_ -> false |