From 471e50d415a30191f0ebdaa707ce1889990d4923 Mon Sep 17 00:00:00 2001
From: werner
Date: Thu, 12 Jun 2008 16:03:32 +0000
Subject: Changing the definitions of pred and minus in the style of GG in
 order for them to preserve the structural order.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11115 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/Peano.v | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/theories/Init/Peano.v b/theories/Init/Peano.v
index a7e1a39aa2..27a8c5a916 100644
--- a/theories/Init/Peano.v
+++ b/theories/Init/Peano.v
@@ -164,7 +164,11 @@ Notation mult_succ_r_reverse := mult_n_Sm (only parsing).
 Fixpoint minus (n m:nat) {struct n} : nat :=
   match n, m with
   | O, _ => n
-  | S k, O => S k
+  | S k, O => n
+(*=======
+
+  | O, _ => n
+  | S k, O => S k *)
   | S k, S l => k - l
   end
 
-- 
cgit v1.2.3