diff options
| author | herbelin | 2002-01-15 17:36:33 +0000 |
|---|---|---|
| committer | herbelin | 2002-01-15 17:36:33 +0000 |
| commit | 7828f8b9c1dcca09a5d0dcdc9bd6d0c3e8b9542f (patch) | |
| tree | a74c95a48662454e34facdb52e2e1dd549c11de1 /tactics/tactics.ml | |
| parent | 2e742c21d1fd6ccfb39e844d8b4820b7c83d5171 (diff) | |
Mise de Intros id au format de Intro en forçant aussi la réduction si demandé
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2397 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tactics.ml')
| -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 18ec501b86..5e72ed2dd8 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -327,7 +327,7 @@ let rec intro_gen name_flag move_flag force_flag gl = else raise e -let intro_mustbe id = intro_gen (IntroMustBe id) None false +let intro_mustbe_force id = intro_gen (IntroMustBe id) None true let intro_using id = intro_gen (IntroBasedOn (id,[])) None false let intro_force force_flag = intro_gen (IntroAvoid []) None force_flag let intro = intro_force false |