diff options
Diffstat (limited to 'kernel/term.ml')
-rw-r--r-- | kernel/term.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 14154b6c8..a052d6dfc 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -76,6 +76,8 @@ let sorts_ord s1 s2 = | Prop _, Type _ -> -1 | Type _, Prop _ -> 1 +let sorts_eq s1 s2 = Int.equal (sorts_ord s1 s2) 0 + let is_prop_sort = function | Prop Null -> true | _ -> false |