diff options
| -rw-r--r-- | theories/Arith/Compare_dec.v | 2 | ||||
| -rw-r--r-- | theories/Arith/Peano_dec.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Arith/Compare_dec.v b/theories/Arith/Compare_dec.v index ce54239f92..8b7e2c61d1 100644 --- a/theories/Arith/Compare_dec.v +++ b/theories/Arith/Compare_dec.v @@ -34,7 +34,7 @@ Defined. Definition le_lt_dec n m : {n <= m} + {m < n}. induction n. auto with arith. - induction m. + destruct m. auto with arith. elim (IHn m); auto with arith. Defined. diff --git a/theories/Arith/Peano_dec.v b/theories/Arith/Peano_dec.v index 5a9e980738..42335f98ba 100644 --- a/theories/Arith/Peano_dec.v +++ b/theories/Arith/Peano_dec.v @@ -23,7 +23,7 @@ Defined. Theorem eq_nat_dec : forall n m, {n = m} + {n <> m}. Proof. - induction n; induction m; auto. + induction n; destruct m; auto. elim (IHn m); auto. Defined. |