diff options
| author | filliatr | 1999-12-02 16:43:08 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-02 16:43:08 +0000 |
| commit | 162fc39bcc36953402d668b5d7ac7b88c9966461 (patch) | |
| tree | 764403e3752e1c183ecf6831ba71e430a4b3799b /pretyping/evarutil.ml | |
| parent | 33019e47a55caf3923d08acd66077f0a52947b47 (diff) | |
modifs pour premiere edition de liens
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@189 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarutil.ml')
| -rw-r--r-- | pretyping/evarutil.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 226b6ff0de..c1313ee142 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -50,7 +50,7 @@ let new_isevar_sign env sigma typ args = error "new_isevar_sign: two vars have the same name"; let newev = Evd.new_evar() in let info = { evar_concl = typ; evar_env = env; - evar_body = Evar_empty; evar_info = () } in + evar_body = Evar_empty; evar_info = None } in (Evd.add sigma newev info, mkEvar newev args) (* We don't try to guess in which sort the type should be defined, since @@ -278,7 +278,7 @@ let solve_refl conv_algo isevars c1 c2 = let nargs = (Array.of_list (List.map mkVar (ids_of_sign nsign))) in let newev = Evd.new_evar () in let info = { evar_concl = evd.evar_concl; evar_env = nenv; - evar_body = Evar_empty; evar_info = () } in + evar_body = Evar_empty; evar_info = None } in isevars := Evd.define (Evd.add !isevars newev info) ev (mkEvar newev nargs); Some [ev] |