diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-24 16:02:39 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-24 16:02:39 +0000 |
| commit | de7abebd102227bda6af04a3078479ea09db1da3 (patch) | |
| tree | 4277ffb3bf0c7bd228cc124fb7d0faaf898ba56e /library/lib.ml | |
| parent | 417653e0119f8b7479d9a52725c4cb32b3d4af14 (diff) | |
broke cyclic dependencies
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11253 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/lib.ml')
| -rw-r--r-- | library/lib.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/lib.ml b/library/lib.ml index 31b94cc96..553d353d6 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -438,13 +438,14 @@ let what_is_opened () = find_entry_p is_something_opened - the list of variables on which each inductive depends in this section - the list of substitution to do at section closing *) +type binding_kind = Explicit | Implicit -type variable_info = Names.identifier * Rawterm.binding_kind * Term.constr option * Term.types +type variable_info = Names.identifier * binding_kind * Term.constr option * Term.types type variable_context = variable_info list type abstr_list = variable_context Names.Cmap.t * variable_context Names.KNmap.t let sectab = - ref ([] : ((Names.identifier * Rawterm.binding_kind * Term.types option) list * Cooking.work_list * abstr_list) list) + ref ([] : ((Names.identifier * binding_kind * Term.types option) list * Cooking.work_list * abstr_list) list) let add_section () = sectab := ([],(Names.Cmap.empty,Names.KNmap.empty),(Names.Cmap.empty,Names.KNmap.empty)) :: !sectab |