diff options
| author | aspiwack | 2007-12-07 17:02:48 +0000 |
|---|---|---|
| committer | aspiwack | 2007-12-07 17:02:48 +0000 |
| commit | d619f795a7ffcd46ae6d3eea022f9520cc72ad3d (patch) | |
| tree | 0cba5e9a76730a4abc6284a084524d3fb608e1b5 /proofs | |
| parent | 8b327a118a02e8c29f1c49774c6b2d78e2179b79 (diff) | |
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
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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) |