diff options
| author | herbelin | 2010-06-13 11:09:51 +0000 |
|---|---|---|
| committer | herbelin | 2010-06-13 11:09:51 +0000 |
| commit | 928d186f5dcc649793ea9f3dd8f880d93786dfe7 (patch) | |
| tree | 35dba013cc375c73fd78d4476e326dfca747d127 /proofs | |
| parent | f30692968587b96d7be86062efa57a777ddbbf09 (diff) | |
Fixed bug #2314 (inversion using not checking the correctness of its arguments
enough)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13126 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 6 | ||||
| -rw-r--r-- | proofs/clenv.mli | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index dade69865c..8b4b41219b 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -440,11 +440,11 @@ let clenv_match_args bl clenv = clenv_assign_binding clenv k c) clenv bl +exception NoSuchBinding + let clenv_constrain_last_binding c clenv = let all_mvs = collect_metas clenv.templval.rebus in - let k = - try list_last all_mvs - with Failure _ -> anomaly "clenv_constrain_with_bindings" in + let k = try list_last all_mvs with Failure _ -> raise NoSuchBinding in clenv_assign_binding clenv k c let clenv_constrain_dep_args hyps_only bl clenv = diff --git a/proofs/clenv.mli b/proofs/clenv.mli index 209024c9c4..9a93adc440 100644 --- a/proofs/clenv.mli +++ b/proofs/clenv.mli @@ -85,6 +85,8 @@ type arg_bindings = constr explicit_bindings val clenv_independent : clausenv -> metavariable list val clenv_missing : clausenv -> metavariable list +(** for the purpose of inversion tactics *) +exception NoSuchBinding val clenv_constrain_last_binding : constr -> clausenv -> clausenv (** defines metas corresponding to the name of the bindings *) |