diff options
| author |  Stephane Glondu <steph@glondu.net> | 2009-07-04 13:28:35 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2009-07-04 13:28:35 +0200 |
| commit | e4282ea99c664d8d58067bee199cbbcf881b60d5 (patch) | |
| tree | d4c4a873eb055c728666f367469fa26c3417793a /proofs/tacmach.ml | |
| parent | a0a94c1340a63cdb824507b973393882666ba52a (diff) | |
Imported Upstream version 8.2.pl1+dfsgupstream/8.2.pl1+dfsg
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 14 |
1 files changed, 9 insertions, 5 deletions
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 *) |