diff options
Diffstat (limited to 'plugins/rtauto/Bintree.v')
-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. |