From e4282ea99c664d8d58067bee199cbbcf881b60d5 Mon Sep 17 00:00:00 2001 From: Stephane Glondu Date: Sat, 4 Jul 2009 13:28:35 +0200 Subject: Imported Upstream version 8.2.pl1+dfsg --- proofs/tacmach.ml | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'proofs/tacmach.ml') diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 6c4f7b5e..b740baa8 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: tacmach.ml 11897 2009-02-09 19:28:02Z barras $ *) +(* $Id: tacmach.ml 12168 2009-06-06 21:34:37Z herbelin $ *) open Pp open Util @@ -211,11 +211,15 @@ let rec rename_hyp_no_check l gl = match l with tclTHEN (refiner (Prim (Rename (id1,id2)))) (rename_hyp_no_check l) gl -let mutual_fix f n others gl = - with_check (refiner (Prim (FixRule (f,n,others)))) gl +let mutual_fix_with_index f n others j gl = + with_check (refiner (Prim (FixRule (f,n,others,j)))) gl -let mutual_cofix f others gl = - with_check (refiner (Prim (Cofix (f,others)))) gl +let mutual_fix f n others = mutual_fix_with_index f n others 0 + +let mutual_cofix_with_index f others j gl = + with_check (refiner (Prim (Cofix (f,others,j)))) gl + +let mutual_cofix f others = mutual_cofix_with_index f others 0 (* Versions with consistency checks *) -- cgit v1.2.3