diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/hiddentac.ml | 6 | ||||
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tactics/hiddentac.ml b/tactics/hiddentac.ml index da2b49557f..32185cb79b 100644 --- a/tactics/hiddentac.ml +++ b/tactics/hiddentac.ml @@ -74,9 +74,9 @@ let h_simple_destruct = h_simple_induction_destruct false let h_induction_destruct isrec ev lcl = abstract_tactic (TacInductionDestruct (isrec,ev,lcl)) - (induction_destruct ev isrec lcl) -let h_new_induction ev c e idl cl = h_induction_destruct ev true ([c,e,idl],cl) -let h_new_destruct ev c e idl cl = h_induction_destruct ev false ([c,e,idl],cl) + (induction_destruct isrec ev lcl) +let h_new_induction ev c e idl cl = h_induction_destruct true ev ([c,e,idl],cl) +let h_new_destruct ev c e idl cl = h_induction_destruct false ev ([c,e,idl],cl) let h_specialize n d = abstract_tactic (TacSpecialize (n,d)) (specialize n d) let h_lapply c = abstract_tactic (TacLApply c) (cut_and_apply c) diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 72064f4e52..a754d1265b 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2345,7 +2345,7 @@ and interp_atomic ist gl tac = (Option.map (interp_intro_pattern ist gl) ipato, Option.map (interp_intro_pattern ist gl) ipats)))) sigma l in let cls = Option.map (interp_clause ist gl) cls in - tclWITHHOLES ev (h_induction_destruct ev isrec) sigma (l,cls) + tclWITHHOLES ev (h_induction_destruct isrec ev) sigma (l,cls) | TacDoubleInduction (h1,h2) -> let h1 = interp_quantified_hypothesis ist h1 in let h2 = interp_quantified_hypothesis ist h2 in |