diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-06 20:28:42 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-06 20:28:42 +0000 |
| commit | 3c9fe09ad4cdba24b906658cb14df0b44ed634a2 (patch) | |
| tree | 15f4226b2d5540833a71ffc3d2d9a75b4e89565d /tactics | |
| parent | 30c687b1fd0d2d9d3299f71971dc230cdd042e79 (diff) | |
Suite 10518
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10521 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index b5a5f984f..a403832ff 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -731,7 +731,8 @@ let rec intern_atomic lf ist x = TacReduce (intern_red_expr ist r, clause_app (intern_hyp_location ist) cl) | TacChange (occl,c,cl) -> TacChange (Option.map (intern_constr_occurrence ist) occl, - (if occl = None then intern_type ist c else intern_constr ist c), + (if occl = None & cl.onhyps = None & cl.concl_occs = [] + then intern_type ist c else intern_constr ist c), clause_app (intern_hyp_location ist) cl) (* Equivalence relations *) |