diff options
| author | filliatr | 1999-08-20 15:00:59 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-20 15:00:59 +0000 |
| commit | e08245e74ef52395052b926fc39d79e52f59af09 (patch) | |
| tree | d6e428173c43e01c852505da13d9b744cccbb49d /kernel/evd.mli | |
| parent | 10f4e87cca4f83700c9b6a8acffc081de66dc164 (diff) | |
machine: execute = typage avec univers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@18 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/evd.mli')
| -rw-r--r-- | kernel/evd.mli | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/evd.mli b/kernel/evd.mli index 8ed6babc08..bdbd759156 100644 --- a/kernel/evd.mli +++ b/kernel/evd.mli @@ -19,10 +19,10 @@ type evar_body = | EVAR_DEFINED of constr type 'a evar_info = { - concl : constr; - hyps : context; - body : evar_body; - info : 'a option } + evar_concl : typed_type; + evar_hyps : context; + evar_body : evar_body; + evar_info : 'a option } type 'a evar_map @@ -36,7 +36,7 @@ val toList : 'a evar_map -> (section_path * 'a evar_info) list 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 + 'a evar_map -> section_path -> context -> typed_type -> 'a evar_map val define : 'a evar_map -> section_path -> constr -> 'a evar_map |