diff options
| author | herbelin | 2003-10-08 15:17:19 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-08 15:17:19 +0000 |
| commit | dbf0f6ff1b2e6555ed2c75da2bdec88d27962d49 (patch) | |
| tree | d1b500b36a56e49b8ddf5522039f2023bca351a9 /interp/constrintern.mli | |
| parent | 2a3fc79d268cf4d0bf1476e5d0b6466ac05108be (diff) | |
Prise en compte des paramètres implicites d'inductifs pour la globalisation des types de constructeur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4548 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.mli')
| -rw-r--r-- | interp/constrintern.mli | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/interp/constrintern.mli b/interp/constrintern.mli index 809e80e3e3..fa71624358 100644 --- a/interp/constrintern.mli +++ b/interp/constrintern.mli @@ -33,7 +33,9 @@ open Termops - insert existential variables for implicit arguments *) -type implicits_env = (identifier * Impargs.implicits_list) list +type implicits_env = (* For interpretation of inductive type with implicits *) + identifier list * + (identifier * (identifier list * Impargs.implicits_list)) list type ltac_sign = identifier list * (identifier * identifier option) list @@ -43,7 +45,7 @@ type ltac_env = (* Interprets global names, including syntactic defs and section variables *) val interp_rawconstr : evar_map -> env -> constr_expr -> rawconstr -val interp_rawconstr_gen : bool -> evar_map -> env -> implicits_env -> +val interp_rawconstr_gen : bool -> evar_map -> env -> bool -> ltac_sign -> constr_expr -> rawconstr (*s Composing the translation with typing *) @@ -80,8 +82,8 @@ val interp_openconstr_gen : (* Interprets constr patterns according to a list of instantiations (variables)*) -val interp_constrpattern_gen : evar_map -> env -> ltac_env -> constr_expr -> - patvar list * constr_pattern +val interp_constrpattern_gen : evar_map -> env -> identifier list -> + constr_expr -> patvar list * constr_pattern val interp_constrpattern : evar_map -> env -> constr_expr -> patvar list * constr_pattern |