From d619f795a7ffcd46ae6d3eea022f9520cc72ad3d Mon Sep 17 00:00:00 2001
From: aspiwack
Date: Fri, 7 Dec 2007 17:02:48 +0000
Subject: Util.option_compare devient Option.Misc.Compare et change un peu de
 type ( ('a -> 'b -> bool) -> 'a option -> 'b option -> bool devient la même
 chose mais avec 'a='b ) et de contenu pour avoir une sémantique plus claire.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10353 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/logic.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/logic.ml b/proofs/logic.ml
index 136f613436..9573f54382 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -378,7 +378,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_compare (is_conv env sigma) b c) then
+       if !check && not (Option.Misc.compare (is_conv env sigma) b c) then
 	 error ("Incorrect change of the body of "^(string_of_id id));
        d)
 
-- 
cgit v1.2.3