diff options
| author | Théo Zimmermann | 2016-10-01 08:37:59 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2016-10-01 09:07:04 +0200 |
| commit | cc407dc4272928944af06ee141d71ff3c9622347 (patch) | |
| tree | 5bd2bcf74f0675e86cd6864e520b4cad167b25bb | |
| parent | 064de6f6839c4ef963b83018812c5d4113eb2bb9 (diff) | |
Micro refactoring: use exact_no_check.
This does not affect the semantics of these functions.
| -rw-r--r-- | tactics/tactics.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index c550df1019..c8cdae53be 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1937,9 +1937,7 @@ let exact_check c = let cast_no_check cast c = Proofview.Goal.enter { enter = begin fun gl -> let concl = Proofview.Goal.concl (Proofview.Goal.assume gl) in - Refine.refine ~unsafe:true { run = begin fun sigma -> - Sigma.here (Term.mkCast (c, cast, concl)) sigma - end } + exact_no_check (Term.mkCast (c, cast, concl)) end } let vm_cast_no_check c = cast_no_check Term.VMcast c @@ -1976,7 +1974,7 @@ let assumption = in if is_same_type then (Proofview.Unsafe.tclEVARS sigma) <*> - Refine.refine ~unsafe:true { run = fun h -> Sigma.here (mkVar (get_id decl)) h } + exact_no_check (mkVar (get_id decl)) else arec gl only_eq rest in let assumption_tac = { enter = begin fun gl -> |