diff options
| author | herbelin | 2006-01-20 22:30:38 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-20 22:30:38 +0000 |
| commit | a5f8a0b25a6f610d3323913b4e4307cf0dc393ff (patch) | |
| tree | 35b64be8f5c7f590ff66bb1dcc4a0da2244ef607 | |
| parent | 7d170e8e2ee9bc08bfb05f623190a51680410a37 (diff) | |
Ajout de la contrainte de résoudre l'assertion dans 'assert by'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7902 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 f57b490fc4..7d7c4e3190 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) [tac; tclIDTAC] gl + tclTHENS (assert_as true ipat c) [tclCOMPLETE tac; tclIDTAC] gl (*****************************) (* High-level induction *) |