diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-31 11:46:29 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-31 11:46:29 +0000 |
commit | 301d5af223390fa5c82da9ae9958f610493ba814 (patch) | |
tree | 304f4b7b194ace4c6fac67af90a0bcdf3ff3537f /pretyping/evarutil.ml | |
parent | aca8a6bbb4fa372cd3b27680eee642082d1c2ad5 (diff) |
Nettoyage de Generic
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@482 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarutil.ml')
-rw-r--r-- | pretyping/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 5e89dbc5d..863843d4f 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -244,7 +244,7 @@ let new_isevar isevars env typ k = *) let evar_define isevars lhs rhs = let (ev,argsv) = destEvar lhs in - if occur_opern (Evar ev) rhs then error_occur_check CCI empty_env ev rhs; + if occur_evar ev rhs then error_occur_check CCI empty_env ev rhs; let args = List.map (function (VAR _ | Rel _) as t -> t | _ -> mkImplicit) (Array.to_list argsv) in let evd = ise_map isevars ev in |