diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-08-02 14:45:24 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-03-22 11:35:46 +0100 |
| commit | 2e557589920156fe84335e72c5e765347bcc7c9c (patch) | |
| tree | e6d29f6f405764c933255feeb1d0e8add843efa7 /kernel/sorts.ml | |
| parent | 920f1548e9245ddfc8b923c5039a5e09dc0c87d4 (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 a90736884..62013b38f 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 |