diff options
| author | notin | 2007-01-31 19:19:28 +0000 |
|---|---|---|
| committer | notin | 2007-01-31 19:19:28 +0000 |
| commit | e3b1ce78b0061f22f6e96afa181304b18f03a6c6 (patch) | |
| tree | 237e057a8326e8acf065a1eb0bdc9581fcb9e7cb /proofs | |
| parent | 785d73cfdab0e3dfdc6c12098fc9e94023eae34f (diff) | |
Correction d'un bug dans check_and_clear_in_constr + simplification de
la gestion des erreurs dans clear_hyps.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9571 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 67e0ca1fe1..7c149e9647 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -71,7 +71,7 @@ let with_check = Options.with_option check forces the user to give them in order). *) let clear_hyps sigma ids gl = let evd = ref (Evd.create_evar_defs sigma) in - let ngl = Evarutil.clear_evar_hyps_in_evi evd InGoal gl ids in + let ngl = Evarutil.clear_hyps_in_evi evd gl ids in (ngl, evars_of !evd) (* The ClearBody tactic *) |