diff options
Diffstat (limited to 'theories/NArith')
| -rw-r--r-- | theories/NArith/BinPos.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/NArith/BinPos.v b/theories/NArith/BinPos.v index 36a8458241..f0751f670a 100644 --- a/theories/NArith/BinPos.v +++ b/theories/NArith/BinPos.v @@ -802,7 +802,7 @@ Qed. Theorem Pcompare_Eq_eq : forall p q:positive, (p ?= q) Eq = Eq -> p = q. Proof. intro x; induction x as [p IHp| p IHp| ]; intro y; destruct y as [q| q| ]; - simpl in |- *; auto; intro H; + simpl in |- *; auto; intro H ; [ rewrite (IHp q); trivial | absurd ((p ?= q) Gt = Eq); [ elim (Pcompare_not_Eq p q); auto | assumption ] |