From befdbea90f91f85482c14a78120cf94b5bb0b5ea Mon Sep 17 00:00:00 2001 From: vsiles Date: Mon, 16 May 2011 12:57:44 +0000 Subject: 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 --- plugins/rtauto/Bintree.v | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'plugins/rtauto/Bintree.v') 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. -- cgit v1.2.3