diff options
| author | clrenard | 2001-11-06 13:05:45 +0000 |
|---|---|---|
| committer | clrenard | 2001-11-06 13:05:45 +0000 |
| commit | 22ac53765e6f3d8ee2f05ad5fcdb046fbf4b6baf (patch) | |
| tree | 3c7468e9f0703d9e70b3aea539aaf8a28ec6a0ed /pretyping/evd.mli | |
| parent | 8cd83fb8dd41521bbc109d37dd49dd3aae0de373 (diff) | |
Suppression des local_constraints, des ctxtty et du focus.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2163 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.mli')
| -rw-r--r-- | pretyping/evd.mli | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/pretyping/evd.mli b/pretyping/evd.mli index f6192c7e50..f6a2bb43ac 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -26,32 +26,31 @@ type evar_body = | Evar_empty | Evar_defined of constr -type 'a evar_info = { +type evar_info = { evar_concl : constr; evar_hyps : named_context; - evar_body : evar_body; - evar_info : 'a option } + evar_body : evar_body} -type 'a evar_map +type evar_map -val empty : 'a evar_map +val empty : evar_map -val add : 'a evar_map -> evar -> 'a evar_info -> 'a evar_map +val add : evar_map -> evar -> evar_info -> evar_map -val dom : 'a evar_map -> evar list -val map : 'a evar_map -> evar -> 'a evar_info -val rmv : 'a evar_map -> evar -> 'a evar_map -val remap : 'a evar_map -> evar -> 'a evar_info -> 'a evar_map -val in_dom : 'a evar_map -> evar -> bool -val to_list : 'a evar_map -> (evar * 'a evar_info) list +val dom : evar_map -> evar list +val map : evar_map -> evar -> evar_info +val rmv : evar_map -> evar -> evar_map +val remap : evar_map -> evar -> evar_info -> evar_map +val in_dom : evar_map -> evar -> bool +val to_list : evar_map -> (evar * evar_info) list -val define : 'a evar_map -> evar -> constr -> 'a evar_map +val define : evar_map -> evar -> constr -> evar_map -val non_instantiated : 'a evar_map -> (evar * 'a evar_info) list -val is_evar : 'a evar_map -> evar -> bool +val non_instantiated : evar_map -> (evar * evar_info) list +val is_evar : evar_map -> evar -> bool -val is_defined : 'a evar_map -> evar -> bool +val is_defined : evar_map -> evar -> bool -val evar_body : 'a evar_info -> evar_body +val evar_body : evar_info -> evar_body val id_of_existential : evar -> identifier |