diff options
| -rw-r--r-- | tactics/tactics.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index cb735fb05..0c0579295 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1078,12 +1078,9 @@ let letin_tac with_eq name c occs gl = (* Tactics "pose proof" (usetac=None) and "assert" (otherwise) *) let forward usetac ipat c gl = - match usetac with - | None -> - let t = refresh_universes (pf_type_of gl c) in - tclTHENS (assert_as true ipat t) [exact_no_check c; tclIDTAC] gl - | Some tac -> - tclTHENS (assert_as true ipat c) [tac; tclIDTAC] gl + let tac = match usetac with None -> exact_no_check c | Some tac -> tac in + let t = refresh_universes (pf_type_of gl c) in + tclTHENFIRST (assert_as true ipat t) tac gl (*****************************) (* High-level induction *) |