diff options
author | vsiles <vsiles@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-05-16 12:57:44 +0000 |
---|---|---|
committer | vsiles <vsiles@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-05-16 12:57:44 +0000 |
commit | befdbea90f91f85482c14a78120cf94b5bb0b5ea (patch) | |
tree | 89f097171f901f67645106b0f99e667b13412cee /plugins/rtauto | |
parent | f2145e3d67e2889f38ad6e2aa475edc55d134c66 (diff) |
Fixed my last patch: these files no longer use nat_beq (automatically
generated) but rather use beq_nat (Arith.EqNat)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14126 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/rtauto')
-rw-r--r-- | plugins/rtauto/Bintree.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/rtauto/Bintree.v b/plugins/rtauto/Bintree.v index e3e9078e3..b34cf338b 100644 --- a/plugins/rtauto/Bintree.v +++ b/plugins/rtauto/Bintree.v @@ -8,6 +8,7 @@ Require Export List. Require Export BinPos. +Require Arith.EqNat. Open Scope positive_scope. @@ -59,7 +60,7 @@ simpl;auto. Qed. Lemma Lget_app : forall (A:Set) (a:A) l i, -Lget i (l ++ a :: nil) = if nat_beq i (length l) then Some a else Lget i l. +Lget i (l ++ a :: nil) = if Arith.EqNat.beq_nat i (length l) then Some a else Lget i l. Proof. induction l;simpl Lget;simpl length. intros [ | i];simpl;reflexivity. |