diff options
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 2d1ba7756..c933ec44e 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -3870,11 +3870,18 @@ module New = struct let exact_proof c = Proofview.V82.tactic (exact_proof c) + open Genredexpr + open Locus + let refine c = let c = Goal.Refinable.make begin fun h -> Goal.Refinable.constr_of_open_constr h true c end in Proofview.Goal.lift c >>= fun c -> - Proofview.tclSENSITIVE (Goal.refine c) + Proofview.tclSENSITIVE (Goal.refine c) <*> + Proofview.V82.tactic (reduce + (Lazy {rBeta=true;rIota=false;rZeta=false;rDelta=false;rConst=[]}) + {onhyps=None; concl_occs=AllOccurrences } + ) end |