diff options
| author | ppedrot | 2012-11-20 18:09:47 +0000 |
|---|---|---|
| committer | ppedrot | 2012-11-20 18:09:47 +0000 |
| commit | ad3449aaf7bfed47b476f958f1c1ebfb898effc3 (patch) | |
| tree | cf1d49e3b4dd4318be30aac24c360edcc7ea7837 /pretyping | |
| parent | 0d825a503df4ed7dc76145a3b5a82c2e8c3c5e80 (diff) | |
Cleaning and small optimization in CList.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15988 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarconv.ml | 2 | ||||
| -rw-r--r-- | pretyping/evarutil.ml | 4 | ||||
| -rw-r--r-- | pretyping/evd.ml | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 30f6de5c2a..26b3267133 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -635,7 +635,7 @@ let second_order_matching ts env_rhs evd (evk,args) argoccs rhs = | Some _ -> error "Selection of specific occurrences not supported" | None -> let evty = set_holes evdref cty subst in - let instance = snd (List.filter2 (fun b c -> b) (filter,instance)) in + let _, instance = List.filter2 (fun b c -> b) filter instance in let evd,ev = new_evar_instance sign !evdref evty ~filter instance in evdref := evd; evsref := (fst (destEvar ev),evty)::!evsref; diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 45df12e460..7ccc9d493e 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -249,7 +249,7 @@ let apply_subfilter filter subfilter = filter ([], List.rev subfilter)) let extract_subfilter initial_filter refined_filter = - snd (List.filter2 (fun b1 b2 -> b1) (initial_filter,refined_filter)) + snd (List.filter2 (fun b1 b2 -> b1) initial_filter refined_filter) (**********************) (* Creating new evars *) @@ -376,7 +376,7 @@ let restrict_evar_key evd evk filter candidates = let sign = evar_hyps evi in let src = evi.evar_source in let evd,newevk = new_pure_evar evd sign ccl ~src ~filter ?candidates in - let ctxt = snd (List.filter2 (fun b c -> b) (filter,evar_context evi)) in + let _, ctxt = List.filter2 (fun b c -> b) filter (evar_context evi) in let id_inst = Array.of_list (List.map (fun (id,_,_) -> mkVar id) ctxt) in Evd.define evk (mkEvar(newevk,id_inst)) evd,newevk diff --git a/pretyping/evd.ml b/pretyping/evd.ml index c838b422da..d24509c858 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -56,7 +56,7 @@ let evar_body evi = evi.evar_body let evar_filter evi = evi.evar_filter let evar_unfiltered_env evi = Global.env_of_context evi.evar_hyps let evar_filtered_context evi = - snd (List.filter2 (fun b c -> b) (evar_filter evi,evar_context evi)) + snd (List.filter2 (fun b c -> b) (evar_filter evi) (evar_context evi)) let evar_env evi = List.fold_right push_named (evar_filtered_context evi) (reset_context (Global.env())) |