diff options
| author | herbelin | 2007-02-21 17:07:50 +0000 |
|---|---|---|
| committer | herbelin | 2007-02-21 17:07:50 +0000 |
| commit | 673455fadfc0ca4df1fa33a629c57694bf442394 (patch) | |
| tree | ecf37553eaa5878f349f56c22440d94255f3c719 /pretyping/evarutil.ml | |
| parent | 3e5f0e1521168412e3f0982a6c5456fd2978e63b (diff) | |
Prise en compte de l'environnement dans les pbs de conversion + MAJ CHANGES
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9664 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 6f50dc93fe..54e84db86f 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -598,7 +598,7 @@ let solve_pattern_eqn env l1 c = * ass. *) -let status_changed lev (pbty,t1,t2) = +let status_changed lev (pbty,_,t1,t2) = try List.mem (head_evar t1) lev or List.mem (head_evar t2) lev with Failure _ -> @@ -657,7 +657,7 @@ let solve_simple_eqn conv_algo env isevars (pbty,(n1,args1 as ev1),t2) = evar_define env ev1 t2 isevars in let (isevars,pbs) = get_conv_pbs isevars (status_changed lsp) in List.fold_left - (fun (isevars,b as p) (pbty,t1,t2) -> + (fun (isevars,b as p) (pbty,env,t1,t2) -> if b then conv_algo env isevars pbty t1 t2 else p) (isevars,true) pbs with e when precatchable_exception e -> |