diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-25 09:35:44 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-25 09:35:44 +0000 |
| commit | b050bc27442c234eafcb8ad634c33897d92c2f15 (patch) | |
| tree | f1e625a3bee24cbb1ba5d08377f6601f34c8798c /proofs/logic.ml | |
| parent | b02da518c51456b003c61f9775050fbfe6090629 (diff) | |
Add support for remaining side-conditions in "apply in as".
Tolerate that the place where to move an hypothesis with destruct is not
"safe" if the lemma has dependent parameters inferred lately.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12412 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
| -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 eddf387f9..0fbd8ad21 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -262,7 +262,7 @@ let move_hyp with_dep toleft (left,(idfrom,_,_ as declfrom),right) hto = if with_dep & hto <> MoveAfter hyp then (first, d::middle) else - errorlabstrm "" (str "Cannot move " ++ pr_id idfrom ++ + errorlabstrm "move_hyp" (str "Cannot move " ++ pr_id idfrom ++ pr_move_location pr_id hto ++ str (if toleft then ": it occurs in " else ": it depends on ") ++ pr_id hyp ++ str ".") |