diff options
| author | ppedrot | 2012-12-13 14:49:35 +0000 |
|---|---|---|
| committer | ppedrot | 2012-12-13 14:49:35 +0000 |
| commit | 989d7d5f4d3d023704935f2db49090b9ac4b2e13 (patch) | |
| tree | c1f73dd93200d63e3373cf6db354d4aacd11dc68 /proofs | |
| parent | de08c197502d6e7c7c43c3b16f3bea9c9e504662 (diff) | |
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
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 2 | ||||
| -rw-r--r-- | proofs/logic.ml | 2 |
2 files changed, 2 insertions, 2 deletions
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 |