diff options
| -rw-r--r-- | test-suite/bugs/opened/shouldnotfail/1449.v | 5 | ||||
| -rw-r--r-- | theories/ZArith/Znat.v | 5 |
2 files changed, 5 insertions, 5 deletions
diff --git a/test-suite/bugs/opened/shouldnotfail/1449.v b/test-suite/bugs/opened/shouldnotfail/1449.v deleted file mode 100644 index d9695360f9..0000000000 --- a/test-suite/bugs/opened/shouldnotfail/1449.v +++ /dev/null @@ -1,5 +0,0 @@ -Require Import Arith. - -Goal 0 <= 0. - eapply le_trans. - setoid_rewrite mult_comm. diff --git a/theories/ZArith/Znat.v b/theories/ZArith/Znat.v index ec37c1412f..5d3b201607 100644 --- a/theories/ZArith/Znat.v +++ b/theories/ZArith/Znat.v @@ -29,6 +29,11 @@ Definition neq (x y:nat) := x <> y. (** Injection and successor *) +Theorem inj_0 : Z_of_nat 0 = 0%Z. +Proof. + reflexivity. +Qed. + Theorem inj_S : forall n:nat, Z_of_nat (S n) = Zsucc (Z_of_nat n). Proof. intro y; induction y as [| n H]; |