diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-11 11:10:31 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-11 11:10:31 +0000 |
| commit | f69af1fe44d2a1ff7260147ca643a4f4981379cd (patch) | |
| tree | c6e9f5b6d09067ec7a4c4d8bcc117d3a5348a232 /proofs/tacexpr.ml | |
| parent | 12bdc17cd540af8b635db3ea4f0095bcc15fec4b (diff) | |
Correction de deux bugs liés au commit 11094 sur les clauses "at" et "in".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11100 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tacexpr.ml')
| -rw-r--r-- | proofs/tacexpr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml index 17961fd42..1808fd3aa 100644 --- a/proofs/tacexpr.ml +++ b/proofs/tacexpr.ml @@ -96,7 +96,7 @@ type 'id gclause = { onhyps : 'id raw_hyp_location list option; concl_occs : bool * int or_var list } -let nowhere = {onhyps=Some[]; concl_occs=(false,[])} +let nowhere = {onhyps=Some[]; concl_occs=no_occurrences_expr} let simple_clause_of = function | { onhyps = Some [scl]; concl_occs = occs } when occs = no_occurrences_expr -> |