diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-26 22:34:57 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-28 18:41:12 +0200 |
| commit | 1a169b01458829f9420aea9c855b1ef28e5c847d (patch) | |
| tree | b9bf1316921444c8210e6a20c66689569772a74e /tactics/tacticals.ml | |
| parent | 1c74df16e7a539f21418ddb09419ff0106960789 (diff) | |
Fixing a subtle bug in tclWITHHOLES.
This fixes Théo's bug on eset.
Diffstat (limited to 'tactics/tacticals.ml')
| -rw-r--r-- | tactics/tacticals.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 66da9ee18..b3655d373 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -487,6 +487,7 @@ module New = struct let check_evars env sigma extsigma origsigma = let rec is_undefined_up_to_restriction sigma evk = + if Evd.mem origsigma evk then None else let evi = Evd.find sigma evk in match Evd.evar_body evi with | Evd.Evar_empty -> Some (evk,evi) @@ -500,7 +501,7 @@ module New = struct let rest = Evd.fold_undefined (fun evk evi acc -> match is_undefined_up_to_restriction sigma evk with - | Some (evk',evi) when not (Evd.mem origsigma evk) -> (evk',evi)::acc + | Some (evk',evi) -> (evk',evi)::acc | _ -> acc) extsigma [] in |