diff options
| -rw-r--r-- | .depend.coq | 2 | ||||
| -rw-r--r-- | contrib/subtac/SubtacTactics.v | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/.depend.coq b/.depend.coq index c09410497..42e70fb2b 100644 --- a/.depend.coq +++ b/.depend.coq @@ -363,7 +363,7 @@ contrib/field/LegacyField.vo: contrib/field/LegacyField.v contrib/field/LegacyFi contrib/fourier/Fourier_util.vo: contrib/fourier/Fourier_util.v theories/Reals/Rbase.vo contrib/fourier/Fourier.vo: contrib/fourier/Fourier.v contrib/ring/quote.cmo contrib/ring/ring.cmo contrib/fourier/fourier.cmo contrib/fourier/fourierR.cmo contrib/field/field.cmo contrib/fourier/Fourier_util.vo contrib/field/LegacyField.vo theories/Reals/DiscrR.vo contrib/subtac/SubtacTactics.vo: contrib/subtac/SubtacTactics.v -contrib/subtac/Utils.vo: contrib/subtac/Utils.v theories/Logic/ProofIrrelevance.vo +contrib/subtac/Utils.vo: contrib/subtac/Utils.v contrib/subtac/SubtacTactics.vo theories/Bool/Sumbool.vo theories/Logic/ProofIrrelevance.vo contrib/subtac/FixSub.vo: contrib/subtac/FixSub.v theories/Init/Wf.vo contrib/subtac/Utils.vo theories/Arith/Wf_nat.vo theories/Arith/Lt.vo contrib/subtac/Subtac.vo: contrib/subtac/Subtac.v contrib/subtac/Utils.vo contrib/subtac/FixSub.vo contrib/subtac/FunctionalExtensionality.vo: contrib/subtac/FunctionalExtensionality.v contrib/subtac/Utils.vo contrib/subtac/FixSub.vo diff --git a/contrib/subtac/SubtacTactics.v b/contrib/subtac/SubtacTactics.v index 17ebb4411..8c8f7c43a 100644 --- a/contrib/subtac/SubtacTactics.v +++ b/contrib/subtac/SubtacTactics.v @@ -73,3 +73,11 @@ Ltac bang := | context [False_rect _ ?p] => elim p end end. + +Ltac elim_eq_rect := + match goal with + | [ |- ?t ] => + match t with + context [ @eq_rect _ _ _ _ _ ?p ] => try case p ; simpl + end + end. |