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/evarutil.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/evarutil.ml')
| -rw-r--r-- | pretyping/evarutil.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 533292ec71..d4a341d1ba 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -115,7 +115,7 @@ let new_isevar_sign env sigma typ instance = error "new_isevar_sign: two vars have the same name"; let newev = new_evar() in let info = { evar_concl = typ; evar_hyps = sign; - evar_body = Evar_empty; evar_info = None } in + evar_body = Evar_empty } in (Evd.add sigma newev info, mkEvar (newev,Array.of_list instance)) (* We don't try to guess in which sort the type should be defined, since @@ -204,8 +204,8 @@ let do_restrict_hyps sigma ev args = *------------------------------------*) type evar_constraint = conv_pb * constr * constr -type 'a evar_defs = - { mutable evars : 'a Evd.evar_map; +type evar_defs = + { mutable evars : Evd.evar_map; mutable conv_pbs : evar_constraint list } let create_evar_defs evd = { evars=evd; conv_pbs=[] } @@ -464,7 +464,7 @@ let solve_refl conv_algo env isevars ev argsv1 argsv2 = let nargs = (Array.of_list (List.map mkVar (ids_of_named_context nsign))) in let newev = new_evar () in let info = { evar_concl = evd.evar_concl; evar_hyps = nsign; - evar_body = Evar_empty; evar_info = None } in + evar_body = Evar_empty } in isevars.evars <- Evd.define (Evd.add isevars.evars newev info) ev (mkEvar (newev,nargs)); [ev] |