diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-07-13 14:51:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-07-13 14:51:37 +0000 |
| commit | 055a8ba614e55c7f799620583885b390d6d34b15 (patch) | |
| tree | d3b6ed9e571304c2c6a83503716566409c988323 /proofs | |
| parent | 11a12c1108358d3ceb6372f01ef9a79ff99b3a4c (diff) | |
Correction double bug #986: Fold ne préserve pas nécessairement le typage et test de conversion buggé dans Logic.convert_hyp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7212 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/logic.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 74a1cf762..013cf227f 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -393,9 +393,10 @@ let convert_hyp sign sigma (id,b,bt as d) = apply_to_hyp sign id (fun sign (_,c,ct) _ -> let env = Global.env_of_context sign in - if !check && not (is_conv env sigma bt ct) && - not (option_compare (is_conv env sigma) b c) then - error "convert-hyp rule passed non-converting term"; + 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 + error ("Incorrect change of the body of "^(string_of_id id)); add_named_decl d sign) |