diff options
| -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 |