diff options
Diffstat (limited to 'tactics/extraargs.mli')
| -rw-r--r-- | tactics/extraargs.mli | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/tactics/extraargs.mli b/tactics/extraargs.mli index 4a9a0c5f..74296ab0 100644 --- a/tactics/extraargs.mli +++ b/tactics/extraargs.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: extraargs.mli 9076 2006-08-23 15:05:54Z jforest $ i*) +(*i $Id: extraargs.mli 10820 2008-04-20 18:18:49Z msozeau $ i*) open Tacexpr open Term @@ -16,18 +16,22 @@ open Topconstr open Rawterm val rawwit_orient : bool raw_abstract_argument_type -val wit_orient : bool closed_abstract_argument_type +val wit_orient : bool typed_abstract_argument_type val orient : bool Pcoq.Gram.Entry.e +val occurrences : (int list or_var) Pcoq.Gram.Entry.e +val rawwit_occurrences : (int list or_var) raw_abstract_argument_type +val wit_occurrences : (int list) typed_abstract_argument_type + val rawwit_morphism_signature : Setoid_replace.morphism_signature raw_abstract_argument_type val wit_morphism_signature : - Setoid_replace.morphism_signature closed_abstract_argument_type + Setoid_replace.morphism_signature typed_abstract_argument_type val morphism_signature : Setoid_replace.morphism_signature Pcoq.Gram.Entry.e val rawwit_raw : constr_expr raw_abstract_argument_type -val wit_raw : rawconstr closed_abstract_argument_type +val wit_raw : rawconstr typed_abstract_argument_type val raw : constr_expr Pcoq.Gram.Entry.e type 'id gen_place= ('id * hyp_location_flag,unit) location @@ -36,17 +40,25 @@ type loc_place = identifier Util.located gen_place type place = identifier gen_place val rawwit_hloc : loc_place raw_abstract_argument_type -val wit_hloc : place closed_abstract_argument_type +val wit_hloc : place typed_abstract_argument_type val hloc : loc_place Pcoq.Gram.Entry.e val in_arg_hyp: (Names.identifier Util.located list option * bool) Pcoq.Gram.Entry.e val rawwit_in_arg_hyp : (Names.identifier Util.located list option * bool) raw_abstract_argument_type -val wit_in_arg_hyp : (Names.identifier list option * bool) closed_abstract_argument_type +val wit_in_arg_hyp : (Names.identifier list option * bool) typed_abstract_argument_type val raw_in_arg_hyp_to_clause : (Names.identifier Util.located list option * bool) -> Tacticals.clause val glob_in_arg_hyp_to_clause : (Names.identifier list option * bool) -> Tacticals.clause val by_arg_tac : Tacexpr.raw_tactic_expr option Pcoq.Gram.Entry.e val rawwit_by_arg_tac : raw_tactic_expr option raw_abstract_argument_type -val wit_by_arg_tac : glob_tactic_expr option closed_abstract_argument_type +val wit_by_arg_tac : glob_tactic_expr option typed_abstract_argument_type + + + +(* Spiwack: Primitive for retroknowledge registration *) + +val retroknowledge_field : Retroknowledge.field Pcoq.Gram.Entry.e +val rawwit_retroknowledge_field : Retroknowledge.field raw_abstract_argument_type +val wit_retroknowledge_field : Retroknowledge.field typed_abstract_argument_type |