diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-06 21:34:37 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-06 21:34:37 +0000 |
commit | f1967c38371e3d9cd7c38623540e5191c7cd2d6e (patch) | |
tree | 7110d004c26af9646f582d167a360e82946b3fb9 /proofs/proof_type.ml | |
parent | 4ffffb89d777b1a298ca979025625a9149e7e8ac (diff) |
Fixing bug 2110 (tactic "refine" was calling (co)mutual_fix with index 0
instead of the index required by the user; extended FixRule and
Cofix accordingly).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/proof_type.ml')
-rw-r--r-- | proofs/proof_type.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/proof_type.ml b/proofs/proof_type.ml index 9f81ffee7..8a466d8df 100644 --- a/proofs/proof_type.ml +++ b/proofs/proof_type.ml @@ -29,8 +29,8 @@ open Pattern type prim_rule = | Intro of identifier | Cut of bool * bool * identifier * types - | FixRule of identifier * int * (identifier * int * constr) list - | Cofix of identifier * (identifier * constr) list + | FixRule of identifier * int * (identifier * int * constr) list * int + | Cofix of identifier * (identifier * constr) list * int | Refine of constr | Convert_concl of types * cast_kind | Convert_hyp of named_declaration |