diff options
| author | Pierre-Marie Pédrot | 2020-09-22 18:36:10 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-21 12:21:14 +0200 |
| commit | 0a46af10ffc38726207bca952775102d48ad3b15 (patch) | |
| tree | 03ca56bb87e50a5d33c29183f74058fc99302735 /plugins | |
| parent | 0590764209dcb8540b5292aca38fe2df38b90ab9 (diff) | |
Rename the GlobRef comparison modules following the standard pattern.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/firstorder/instances.ml | 2 | ||||
| -rw-r--r-- | plugins/firstorder/sequent.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/firstorder/instances.ml b/plugins/firstorder/instances.ml index f13901c36d..4adad53899 100644 --- a/plugins/firstorder/instances.ml +++ b/plugins/firstorder/instances.ml @@ -38,7 +38,7 @@ let compare_gr id1 id2 = if id1==id2 then 0 else if id1==dummy_id then 1 else if id2==dummy_id then -1 - else GlobRef.Ordered.compare id1 id2 + else GlobRef.CanOrd.compare id1 id2 module OrderedInstance= struct diff --git a/plugins/firstorder/sequent.ml b/plugins/firstorder/sequent.ml index db3631daa4..99c5f85125 100644 --- a/plugins/firstorder/sequent.ml +++ b/plugins/firstorder/sequent.ml @@ -62,7 +62,7 @@ module Hitem= struct type t = h_item let compare (id1,co1) (id2,co2)= - let c = GlobRef.Ordered.compare id1 id2 in + let c = GlobRef.CanOrd.compare id1 id2 in if c = 0 then let cmp (i1, c1) (i2, c2) = let c = Int.compare i1 i2 in |