diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 7fd7aabe40..8e3e48d4fc 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -8,6 +8,7 @@ (* $Id$ *) +open Pp open Util open Names open Nameops @@ -226,11 +227,21 @@ let internal_cut_rev d t = with_check (internal_cut_rev_no_check d t) let refine c = with_check (refine_no_check c) let convert_concl d sty = with_check (convert_concl_no_check d sty) let convert_hyp d = with_check (convert_hyp_no_check d) -let thin l = with_check (thin_no_check l) let thin_body c = with_check (thin_body_no_check c) let move_hyp b id id' = with_check (move_hyp_no_check b id id') let rename_hyp l = with_check (rename_hyp_no_check l) +let thin l gl = + try with_check (thin_no_check l) gl + with Evarutil.OccurHypInSimpleClause (id,ido) -> + match ido with + | None -> + errorlabstrm "" (pr_id id ++ str " is used in conclusion.") + | Some id' -> + errorlabstrm "" + (pr_id id ++ strbrk " is used in hypothesis " ++ pr_id id' ++ str ".") + + (* Pretty-printers *) open Pp |