diff options
| author | herbelin | 2006-01-21 11:02:20 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-21 11:02:20 +0000 |
| commit | 44d42fe1cf68c042fdcacacfe1b9c6eb7e62773b (patch) | |
| tree | 8578e4442fc951cc19e6988fd1a802a89feb36d0 | |
| parent | a6a6bf8aaf48be6d12d5d08ef42301236f7b38d8 (diff) | |
Backtrack commit précédent (incompatible avec le choix de prendre Idtac comme défaut pour ne rien faire)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7906 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 7d7c4e3190..f57b490fc4 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1080,7 +1080,7 @@ let forward usetac ipat c gl = 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) [tclCOMPLETE tac; tclIDTAC] gl + tclTHENS (assert_as true ipat c) [tac; tclIDTAC] gl (*****************************) (* High-level induction *) |