From 380acdd0100d55cd908a96731365c1ce287e2d10 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 28 Dec 2006 16:26:45 +0000
Subject: Remplacement de la définition de Pind et Prec par une définition
 suggérée par Conor McBride qui ne fait pas intervenir eq_rect et qui permet
 de montrer "facilement" (mais avec l'axiome K) les équations de réduction de
 Prec.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9465 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/rtauto/Bintree.v | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'contrib/rtauto')

diff --git a/contrib/rtauto/Bintree.v b/contrib/rtauto/Bintree.v
index 8827da1004..67a952b73f 100644
--- a/contrib/rtauto/Bintree.v
+++ b/contrib/rtauto/Bintree.v
@@ -20,15 +20,6 @@ Ltac caseq t := generalize (refl_equal t); pattern t at -1; case t.
 
 Functional Scheme Pcompare_ind := Induction for Pcompare Sort Prop.
 
-Lemma Prect : forall P : positive -> Type,
-       P 1 ->
-       (forall n : positive, P n -> P (Psucc n)) -> forall p : positive, P p.
-intros P H1 Hsucc n; induction n.
-rewrite <- plus_iter_xI; apply Hsucc; apply iterate_add; assumption.
-rewrite <- plus_iter_xO; apply iterate_add; assumption.
-assumption.
-Qed.
-
 Lemma Gt_Eq_Gt : forall p q cmp,
        (p ?= q) Eq = Gt -> (p ?= q) cmp = Gt.
 apply (Pcompare_ind (fun p q cmp _ => (p ?= q) Eq = Gt -> (p ?= q) cmp = Gt));
-- 
cgit v1.2.3