From 989d7d5f4d3d023704935f2db49090b9ac4b2e13 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 13 Dec 2012 14:49:35 +0000
Subject: Renamed Option.Misc.compare to the more uniform Option.equal.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16063 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/goal.ml  | 2 +-
 proofs/logic.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/goal.ml b/proofs/goal.ml
index c076cd676c..6b672d2cbb 100644
--- a/proofs/goal.ml
+++ b/proofs/goal.ml
@@ -385,7 +385,7 @@ let convert_hyp check (id,b,bt as d) env rdefs gl info =
     (fun _ (_,c,ct) _ ->
        if check && not (Reductionops.is_conv env sigma bt ct) then
 	 Errors.error ("Incorrect change of the type of "^(Names.string_of_id id));
-       if check && not (Option.Misc.compare (Reductionops.is_conv env sigma) b c) then
+       if check && not (Option.equal (Reductionops.is_conv env sigma) b c) then
 	 Errors.error ("Incorrect change of the body of "^(Names.string_of_id id));
        d)
   in
diff --git a/proofs/logic.ml b/proofs/logic.ml
index 725f16b8ef..b8341f1aad 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -472,7 +472,7 @@ let convert_hyp sign sigma (id,b,bt as d) =
         let env = Global.env_of_context sign in
         if !check && not (is_conv env sigma bt ct) then
 	  error ("Incorrect change of the type of "^(string_of_id id)^".");
-        if !check && not (Option.Misc.compare (is_conv env sigma) b c) then
+        if !check && not (Option.equal (is_conv env sigma) b c) then
 	  error ("Incorrect change of the body of "^(string_of_id id)^".");
        if !check then reorder := check_decl_position env sign d;
        d) in
-- 
cgit v1.2.3