diff options
| author | Pierre-Marie Pédrot | 2016-11-18 20:26:15 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:28:50 +0100 |
| commit | 8b660087beb2209e52bc4412dc82c6727963c6a5 (patch) | |
| tree | c45f8a2cc5bbc0573caa24562fbb15e9c776b5dd /ltac | |
| parent | 485bbfbed4ae4a28119c4e42c5e40fd77abf4f8a (diff) | |
Elim API using EConstr.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/extratactics.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ltac/extratactics.ml4 b/ltac/extratactics.ml4 index c39b1a0e94..faf545d4fc 100644 --- a/ltac/extratactics.ml4 +++ b/ltac/extratactics.ml4 @@ -172,11 +172,11 @@ END (* Decompose *) TACTIC EXTEND decompose_sum -| [ "decompose" "sum" constr(c) ] -> [ Elim.h_decompose_or c ] +| [ "decompose" "sum" constr(c) ] -> [ Elim.h_decompose_or (EConstr.of_constr c) ] END TACTIC EXTEND decompose_record -| [ "decompose" "record" constr(c) ] -> [ Elim.h_decompose_and c ] +| [ "decompose" "record" constr(c) ] -> [ Elim.h_decompose_and (EConstr.of_constr c) ] END (**********************************************************************) @@ -1055,7 +1055,7 @@ let decompose l c = end } TACTIC EXTEND decompose -| [ "decompose" "[" ne_constr_list(l) "]" constr(c) ] -> [ decompose l c ] +| [ "decompose" "[" ne_constr_list(l) "]" constr(c) ] -> [ decompose l (EConstr.of_constr c) ] END (** library/keys *) |