diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-24 08:59:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-24 08:59:18 +0000 |
| commit | ef6bddfdcf87d90e9ad7f682cfa5e24a1a53f3c5 (patch) | |
| tree | de3cf491556c49d9f82b80f2f224729b9a13d2b2 /theories/PArith | |
| parent | c250c03254bda83775647b47bc35274ea0747647 (diff) | |
Fixed a bug of destruct which was sometimes forgetting local definitions behind it.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14053 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/PArith')
| -rw-r--r-- | theories/PArith/BinPos.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/PArith/BinPos.v b/theories/PArith/BinPos.v index 4570fde72..ec18d8dc5 100644 --- a/theories/PArith/BinPos.v +++ b/theories/PArith/BinPos.v @@ -626,12 +626,12 @@ Proof. induction q as [ | p q IHq ]. apply eq_dep_eq_positive. cut (1=1). pattern 1 at 1 2 5, q'. destruct q'. trivial. - destruct p0; intros; discriminate. + destruct p; intros; discriminate. trivial. apply eq_dep_eq_positive. cut (Psucc p=Psucc p). pattern (Psucc p) at 1 2 5, q'. destruct q'. intro. destruct p; discriminate. - intro. unfold p0 in H. apply Psucc_inj in H. + intro. apply Psucc_inj in H. generalize q'. rewrite H. intro. rewrite (IHq q'0). trivial. |