diff options
| author | glondu | 2010-06-07 10:49:42 +0000 |
|---|---|---|
| committer | glondu | 2010-06-07 10:49:42 +0000 |
| commit | 6b7191b8828578930b7c58017c8c58fd1890b458 (patch) | |
| tree | 4f56d61fa0fd9639d5ebf9011eaf31b2c334a1ae | |
| parent | 3b66b994f4a27c8a2660d1d335e6bc41ebfe795f (diff) | |
Fix comment
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13085 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/refiner.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index a66ab60819..cafc4100f2 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -125,7 +125,8 @@ let start_tac gls = let finish_tac (sigr,gl) = repackage sigr gl -(* Apply [taci.(i)] on the first n subgoals and [tac] on the others *) +(* Apply [tacfi.(i)] on the first n subgoals, [tacli.(i)] on the last + m subgoals, and [tac] on the others *) let thens3parts_tac tacfi tac tacli (sigr,gs) = let nf = Array.length tacfi in let nl = Array.length tacli in |