diff options
Diffstat (limited to 'proofs/clenv.ml')
| -rw-r--r-- | proofs/clenv.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index dade69865..8b4b41219 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 = |