diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.ml | 2 | ||||
| -rw-r--r-- | tactics/elim.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 634e71f99a..2dc69c55bf 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -10,7 +10,7 @@ open Sign open Inductive open Evd open Reduction -open Typing_ev +open Typing open Tacmach open Proof_trees open Pfedit diff --git a/tactics/elim.ml b/tactics/elim.ml index 3fe9430c8c..2505f3b0a3 100644 --- a/tactics/elim.ml +++ b/tactics/elim.ml @@ -100,13 +100,13 @@ let dyn_decompose args gl = match args with | [Clause ids; Command c] -> decompose_these (pf_constr_of_com gl c) ids gl - | [CLAUSE ids; Constr c] -> + | [Clause ids; Constr c] -> decompose_these c ids gl | l -> bad_tactic_args "DecomposeThese" l gl let h_decompose = let v_decompose = hide_tactic "DecomposeThese" dyn_decompose in - fun ids c -> v_decompose [(CLAUSE ids);(CONSTR c)] + fun ids c -> v_decompose [Clause ids; Constr c] let vernac_decompose_and = hide_constr_tactic "DecomposeAnd" decompose_and |