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 | |
| 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
| -rw-r--r-- | tactics/elim.ml | 2 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 | ||||
| -rw-r--r-- | tactics/tactics.mli | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/tactics/elim.ml b/tactics/elim.ml index 1b56914e92..15ca016330 100644 --- a/tactics/elim.ml +++ b/tactics/elim.ml @@ -202,7 +202,7 @@ let rec intro_pattern p = and case_last = (tclLAST_HYP h_simplest_case) in match p with | WildPat -> (tclTHEN intro clear_last) - | IdPat id -> intro_mustbe id + | IdPat id -> intro_mustbe_force id | DisjPat l -> (tclTHEN introf (tclTHENS (tclTHEN case_last clear_last) 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 diff --git a/tactics/tactics.mli b/tactics/tactics.mli index b91aa09e62..411dbf0b02 100644 --- a/tactics/tactics.mli +++ b/tactics/tactics.mli @@ -67,7 +67,7 @@ val dyn_intro_move : tactic_arg list -> tactic val intro_replacing : identifier -> tactic val intro_using : identifier -> tactic -val intro_mustbe : identifier -> tactic +val intro_mustbe_force : identifier -> tactic val intros_using : identifier list -> tactic val intro_erasing : identifier -> tactic val intros_replacing : identifier list -> tactic |