diff options
| author | filliatr | 1999-08-19 08:17:17 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-19 08:17:17 +0000 |
| commit | 10f4e87cca4f83700c9b6a8acffc081de66dc164 (patch) | |
| tree | 71d963bff3495ecd124abc9466890f83d42577f0 /kernel/evd.mli | |
| parent | 2178b546a941803548bd2699a860086ad8f5f1d5 (diff) | |
mise en place programmation literaire (generation de doc/coq.tex)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/evd.mli')
| -rw-r--r-- | kernel/evd.mli | 37 |
1 files changed, 22 insertions, 15 deletions
diff --git a/kernel/evd.mli b/kernel/evd.mli index cb606941c0..8ed6babc08 100644 --- a/kernel/evd.mli +++ b/kernel/evd.mli @@ -1,36 +1,43 @@ (* $Id$ *) +(*i*) open Names open Term open Sign +(*i*) -(* The type of mappings for existential variables *) +(* The type of mappings for existential variables. + The keys are section paths and the associated information is a record + containing the type of the evar ([concl]), the signature under which + it was introduced ([hyps]), its definition ([body]) and any other + possible information if necessary ([info]). +*) type evar_body = | EVAR_EMPTY | EVAR_DEFINED of constr type 'a evar_info = { - concl : constr; (* the type of the evar ... *) - hyps : context; (* ... under a certain signature *) - body : evar_body; (* its definition *) - info : 'a option (* any other possible information necessary *) -} + concl : constr; + hyps : context; + body : evar_body; + info : 'a option } type 'a evar_map -val dom : 'c evar_map -> section_path list -val map : 'c evar_map -> section_path -> 'c evar_info -val rmv : 'c evar_map -> section_path -> 'c evar_map -val remap : 'c evar_map -> section_path -> 'c evar_info -> 'c evar_map -val in_dom : 'c evar_map -> section_path -> bool -val toList : 'c evar_map -> (section_path * 'c evar_info) list +val dom : 'a evar_map -> section_path list +val map : 'a evar_map -> section_path -> 'a evar_info +val rmv : 'a evar_map -> section_path -> 'a evar_map +val remap : 'a evar_map -> section_path -> 'a evar_info -> 'a evar_map +val in_dom : 'a evar_map -> section_path -> bool +val toList : 'a evar_map -> (section_path * 'a evar_info) list -val mt_evd : 'c evar_map +val mt_evd : 'a evar_map val add_with_info : 'a evar_map -> section_path -> 'a evar_info -> 'a evar_map -val add_noinfo : 'a evar_map -> section_path -> context -> - constr -> 'a evar_map +val add_noinfo : + 'a evar_map -> section_path -> context -> constr -> 'a evar_map + val define : 'a evar_map -> section_path -> constr -> 'a evar_map val non_instantiated : 'a evar_map -> (section_path * 'a evar_info) list |