diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-02-27 14:07:43 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-02-27 14:46:37 +0100 |
| commit | d98fdf1ef5789f6d5420e52c34a33debf08584e9 (patch) | |
| tree | b61a0b679df7b56ff6180924395fa5671d4c9b8f /proofs/logic.ml | |
| parent | 4d6b938e90ecd9dbfb29a0af28a7d8b6a657ae17 (diff) | |
Code refactoring thanks to the new Monad module.
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 0b9aa9907..68be51d9c 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -583,7 +583,7 @@ let prim_refiner r sigma goal = ("Name "^Id.to_string f^" already used in the environment"); mk_sign (push_named_context_val (f,None,ar) sign) oth | [] -> - Goal.list_map (fun sigma (_,_,c) -> + Evd.Monad.List.map (fun (_,_,c) sigma -> let gl,ev,sig' = Goal.V82.mk_goal sigma sign c (Goal.V82.extra sigma goal) in (gl,ev),sig') @@ -625,7 +625,7 @@ let prim_refiner r sigma goal = | Not_found -> mk_sign (push_named_context_val (f,None,ar) sign) oth) | [] -> - Goal.list_map (fun sigma(_,c) -> + Evd.Monad.List.map (fun (_,c) sigma -> let gl,ev,sigma = Goal.V82.mk_goal sigma sign c (Goal.V82.extra sigma goal) in (gl,ev),sigma) |