diff options
| author | herbelin | 2003-09-21 22:44:27 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-21 22:44:27 +0000 |
| commit | 0df8820d7fbdd21c46b2b2945b25d770a40de463 (patch) | |
| tree | 8a690fb2aecefb2a1477f8167e2fb67a2e029f6f /interp/topconstr.ml | |
| parent | 2e594ffc47bb73c5aa69aaf570af4606092b9e7f (diff) | |
Mise en place d'implicites par noms en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4430 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/topconstr.ml')
| -rw-r--r-- | interp/topconstr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index c3b44b9e2c..0848833496 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -400,7 +400,7 @@ let match_aconstr c (metas_scl,pat) = type notation = string -type explicitation = int +type explicitation = ExplByPos of int | ExplByName of identifier type proj_flag = int option (* [Some n] = proj of the n-th visible argument *) @@ -421,7 +421,7 @@ type constr_expr = | CLetIn of loc * name located * constr_expr * constr_expr | CAppExpl of loc * (proj_flag * reference) * constr_expr list | CApp of loc * (proj_flag * constr_expr) * - (constr_expr * explicitation option) list + (constr_expr * explicitation located option) list | CCases of loc * (constr_expr option * constr_expr option) * (constr_expr * (name * (loc * reference * name list) option)) list * (loc * cases_pattern_expr list * constr_expr) list |