diff options
Diffstat (limited to 'theories/Arith')
| -rw-r--r-- | theories/Arith/Compare_dec.v | 2 | ||||
| -rw-r--r-- | theories/Arith/Le.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Arith/Compare_dec.v b/theories/Arith/Compare_dec.v index a90a9ce99..76132aed0 100644 --- a/theories/Arith/Compare_dec.v +++ b/theories/Arith/Compare_dec.v @@ -201,7 +201,7 @@ Qed. Lemma nat_compare_spec : forall x y, CompareSpec (x=y) (x<y) (y<x) (nat_compare x y). Proof. - intros. + intros. destruct (nat_compare x y) eqn:?; constructor. apply nat_compare_eq; auto. apply <- nat_compare_lt; auto. diff --git a/theories/Arith/Le.v b/theories/Arith/Le.v index 1febb76b6..c3386787d 100644 --- a/theories/Arith/Le.v +++ b/theories/Arith/Le.v @@ -54,7 +54,7 @@ Hint Resolve le_0_n le_Sn_0: arith v62. Theorem le_n_0_eq : forall n, n <= 0 -> 0 = n. Proof. - induction n; auto with arith. + induction n. auto with arith. idtac. auto with arith. intro; contradiction le_Sn_0 with n. Qed. Hint Immediate le_n_0_eq: arith v62. |