Ajout des fonctions tail-recursives tail_plus et tail_mult.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2194 85f007b7-540e-0410-9357-904b9bb8a0f7

2 files changed, 55 insertions, 0 deletions

diff --git a/theories/Arith/Mult.v b/theories/Arith/Mult.v
index 86404aca3f..f1f73303aa 100755
--- a/theories/Arith/Mult.v
+++ b/theories/Arith/Mult.v
@@ -97,3 +97,38 @@ Proof.
   Apply le_lt_trans with m:=(mult (S m) p). Assumption.
   Apply mult_lt. Assumption.
 Qed.
+
+(**************************************************************************)
+(*                         Tail-recursive mult                            *)
+(**************************************************************************)
+
+(* [tail_mult] is an alternative definition for [mult] which is 
+  tail-recursive, whereas [mult] is not. When extracting programs 
+  from proofs, this can be useful. *)
+
+Fixpoint mult_acc [s,m,n:nat] : nat := 
+   Cases n of 
+      O => s
+      | (S p) => (mult_acc (tail_plus m s) m p)
+    end.
+
+Lemma mult_acc_aux : (n,s,m:nat)(plus s (mult n m))= (mult_acc s m n).
+Induction n; Simpl;Auto.
+Intros p H s m; Rewrite <- plus_tail_plus; Rewrite <- H.
+Rewrite <- plus_assoc_r; Apply (f_equal2 nat nat);Auto.
+Rewrite plus_sym;Auto.
+Qed.
+
+Definition tail_mult := [n,m:nat](mult_acc O m n).
+
+Lemma mult_tail_mult : (n,m:nat)(mult n m)=(tail_mult n m).
+Intros; Unfold tail_mult; Rewrite <- mult_acc_aux;Auto.
+Qed.
+
+(* [TailSimpl] transforms any [tail_plus] and [tail_mult] into [plus] 
+   and [mult] and simplify *)
+
+Tactic Definition TailSimpl := 
+   Repeat Rewrite <- plus_tail_plus; 
+   Repeat Rewrite <- mult_tail_mult; 
+   Simpl. 
diff --git a/theories/Arith/Plus.v b/theories/Arith/Plus.v
index 69bbd975a8..22f175ce78 100755
--- a/theories/Arith/Plus.v
+++ b/theories/Arith/Plus.v
@@ -160,3 +160,23 @@ Proof.
 Qed.
 
 
+(**************************************************************************)
+(*                         Tail-recursive plus                            *)
+(**************************************************************************)
+
+(* [tail_plus] is an alternative definition for [plus] which is 
+  tail-recursive, whereas [plus] is not. When extracting programs 
+  from proofs, this can be useful. *)
+
+Fixpoint plus_acc [s,n:nat] : nat := 
+   Cases n of 
+      O => s
+      | (S p) => (plus_acc (S s) p)
+    end.
+
+Definition tail_plus := [n,m:nat](plus_acc m n).
+
+Lemma plus_tail_plus : (n,m:nat)(plus n m)=(tail_plus n m).
+Induction n; Unfold tail_plus; Simpl; Auto.
+Intros p H m; Rewrite <- H; Simpl; Auto.
+Qed.