diff options
Diffstat (limited to 'tactics/extraargs.mli')
-rw-r--r-- | tactics/extraargs.mli | 58 |
1 files changed, 28 insertions, 30 deletions
diff --git a/tactics/extraargs.mli b/tactics/extraargs.mli index 8a0ae066..ef084e9d 100644 --- a/tactics/extraargs.mli +++ b/tactics/extraargs.mli @@ -1,55 +1,54 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2015 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) open Tacexpr -open Term open Names -open Proof_type -open Topconstr -open Termops +open Constrexpr open Glob_term +open Misctypes -val rawwit_orient : bool raw_abstract_argument_type -val globwit_orient : bool glob_abstract_argument_type -val wit_orient : bool typed_abstract_argument_type +val wit_orient : bool Genarg.uniform_genarg_type val orient : bool Pcoq.Gram.entry val pr_orient : bool -> Pp.std_ppcmds val occurrences : (int list or_var) Pcoq.Gram.entry -val rawwit_occurrences : (int list or_var) raw_abstract_argument_type -val wit_occurrences : (int list) typed_abstract_argument_type -val pr_occurrences : int list Glob_term.or_var -> Pp.std_ppcmds +val wit_occurrences : (int list or_var, int list or_var, int list) Genarg.genarg_type +val pr_occurrences : int list or_var -> Pp.std_ppcmds +val occurrences_of : int list -> Locus.occurrences + +val wit_glob : + (constr_expr, + Tacexpr.glob_constr_and_expr, + Tacinterp.interp_sign * glob_constr) Genarg.genarg_type + +val wit_lglob : + (constr_expr, + Tacexpr.glob_constr_and_expr, + Tacinterp.interp_sign * glob_constr) Genarg.genarg_type -val rawwit_glob : constr_expr raw_abstract_argument_type -val wit_glob : (Tacinterp.interp_sign * glob_constr) typed_abstract_argument_type val glob : constr_expr Pcoq.Gram.entry +val lglob : constr_expr Pcoq.Gram.entry -type 'id gen_place= ('id * hyp_location_flag,unit) location +type 'id gen_place= ('id * Locus.hyp_location_flag,unit) location -type loc_place = identifier Util.located gen_place -type place = identifier gen_place +type loc_place = Id.t Loc.located gen_place +type place = Id.t gen_place -val rawwit_hloc : loc_place raw_abstract_argument_type -val wit_hloc : place typed_abstract_argument_type +val wit_hloc : (loc_place, loc_place, place) Genarg.genarg_type val hloc : loc_place Pcoq.Gram.entry val pr_hloc : loc_place -> Pp.std_ppcmds -val in_arg_hyp: (Names.identifier Util.located list option * bool) Pcoq.Gram.entry -val globwit_in_arg_hyp : (Names.identifier Util.located list option * bool) glob_abstract_argument_type -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) 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 pr_in_arg_hyp : (Names.identifier list option * bool) -> Pp.std_ppcmds - val by_arg_tac : Tacexpr.raw_tactic_expr option Pcoq.Gram.entry -val rawwit_by_arg_tac : raw_tactic_expr option raw_abstract_argument_type -val wit_by_arg_tac : glob_tactic_expr option typed_abstract_argument_type +val wit_by_arg_tac : + (raw_tactic_expr option, + glob_tactic_expr option, + glob_tactic_expr option) Genarg.genarg_type + val pr_by_arg_tac : (int * Ppextend.parenRelation -> raw_tactic_expr -> Pp.std_ppcmds) -> raw_tactic_expr option -> Pp.std_ppcmds @@ -58,5 +57,4 @@ val pr_by_arg_tac : (** Spiwack: Primitive for retroknowledge registration *) val retroknowledge_field : Retroknowledge.field Pcoq.Gram.entry -val rawwit_retroknowledge_field : Retroknowledge.field raw_abstract_argument_type -val wit_retroknowledge_field : Retroknowledge.field typed_abstract_argument_type +val wit_retroknowledge_field : (Retroknowledge.field, unit, unit) Genarg.genarg_type |