From f1967c38371e3d9cd7c38623540e5191c7cd2d6e Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 6 Jun 2009 21:34:37 +0000 Subject: 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 --- proofs/proof_type.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'proofs/proof_type.ml') 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 -- cgit v1.2.3