From 512c2c28d009cc05845e705c662908a2764e18a5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 31 Mar 2003 22:17:30 +0000
Subject: Ajout double_plus

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3828 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Arith/Div2.v | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/theories/Arith/Div2.v b/theories/Arith/Div2.v
index a6782c5f8c..b05eaa77d8 100644
--- a/theories/Arith/Div2.v
+++ b/theories/Arith/Div2.v
@@ -106,6 +106,13 @@ Proof.
 Intro. Unfold double. Simpl. Auto with arith.
 Qed.
 
+Lemma double_plus : (m,n:nat) (double (plus m n))=(plus (double m) (double n)).
+Proof.
+Intros m n. Unfold double.
+Do 2 Rewrite -> plus_assoc_r. Rewrite -> (plus_permute n).
+Reflexivity.
+Qed.
+
 Hints Resolve double_S : arith.
 
 Lemma even_odd_double : (n:nat) 
-- 
cgit v1.2.3