diff options
| author | filliatr | 1999-10-18 13:51:32 +0000 |
|---|---|---|
| committer | filliatr | 1999-10-18 13:51:32 +0000 |
| commit | 154f0fc69c79383cc75795554eb7e0256c8299d8 (patch) | |
| tree | d39ed1dbe4d0c555a8373592162eee3043583a1a /kernel/evd.mli | |
| parent | 22e4ceb13d18c8b941f6a27cc83f547dd90104b8 (diff) | |
- déplacement (encore une fois !) des variables existentielles : elles sont
toujours dans le noyau (en ce sens que Reduction et Typeops les
connaissent) mais dans un argument supplémentaire A COTE de l'environnement
(de type unsafe_env)
- Indtypes et Typing n'utilisent strictement que Evd.empty
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@106 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/evd.mli')
| -rw-r--r-- | kernel/evd.mli | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/kernel/evd.mli b/kernel/evd.mli index 89cefcab11..80e767fa85 100644 --- a/kernel/evd.mli +++ b/kernel/evd.mli @@ -21,28 +21,30 @@ type evar_body = | Evar_empty | Evar_defined of constr -type evar_info = { +type 'a evar_info = { evar_concl : constr; evar_hyps : typed_type signature; - evar_body : evar_body } + evar_body : evar_body; + evar_info : 'a } -type evar_map +type 'a evar_map -val add : evar_map -> evar -> evar_info -> evar_map +val empty : 'a evar_map -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 add : 'a evar_map -> evar -> 'a evar_info -> 'a evar_map -val mt_evd : 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 define : evar_map -> evar -> constr -> evar_map +val define : 'a evar_map -> evar -> constr -> 'a evar_map -val non_instantiated : evar_map -> (evar * evar_info) list -val is_evar : evar_map -> evar -> bool +val non_instantiated : 'a evar_map -> (evar * 'a evar_info) list +val is_evar : 'a evar_map -> evar -> bool -val is_defined : evar_map -> evar -> bool +val is_defined : 'a evar_map -> evar -> bool +val metamap : 'a evar_map -> (int * constr) list |