diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-05 15:38:50 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-05 15:38:50 +0000 |
commit | 82b65b9c0296b20cca44c7c05865bf9750084ab8 (patch) | |
tree | 4c92bb422145327f655bf3d89f4bcea9039a4859 /kernel/term.ml | |
parent | 38ac6e0eff49662636e8db6ceb5f4badbdc7795a (diff) |
More monomorphization.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16260 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |