diff options
author | 2007-02-19 22:37:24 +0000 | |
---|---|---|
committer | 2007-02-19 22:37:24 +0000 | |
commit | dc7f5e8bbd6fb7da277ee89278211105157b2041 (patch) | |
tree | 9eb04573e989e98789ee81dccc25e3cd8119ebf1 | |
parent | d7d22275c0d82d41d1d9fc94161e34f6d9dc98d9 (diff) |
Correct coq depend, add eq_rect elimination tactic to SubtacTactics
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9661 85f007b7-540e-0410-9357-904b9bb8a0f7
-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. |