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.ml | |
| 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.ml')
| -rw-r--r-- | pretyping/evd.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index a80f21b521..ee99bfb4ba 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -21,13 +21,12 @@ 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 = 'a evar_info Intmap.t +type evar_map = evar_info Intmap.t let empty = Intmap.empty @@ -45,8 +44,7 @@ let define evd ev body = let newinfo = { evar_concl = oldinfo.evar_concl; evar_hyps = oldinfo.evar_hyps; - evar_body = Evar_defined body; - evar_info = oldinfo.evar_info } + evar_body = Evar_defined body} in match oldinfo.evar_body with | Evar_empty -> Intmap.add ev newinfo evd |