From 412e75cda30682cf066974f7c80cb135b71ba90d Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 15 Jun 2010 17:03:30 +0000
Subject: MSetAVL: for nicer extraction, we create only tree_ind, not tree_rect
 and tree_case

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

diff --git a/theories/MSets/MSetAVL.v b/theories/MSets/MSetAVL.v
index d8486180cf..6825e68811 100644
--- a/theories/MSets/MSetAVL.v
+++ b/theories/MSets/MSetAVL.v
@@ -35,6 +35,9 @@ Require Import MSetInterface ZArith Int.
 
 Set Implicit Arguments.
 Unset Strict Implicit.
+(* for nicer extraction, we create only logical inductive principles *)
+Local Unset Elimination Schemes.
+Local Unset Case Analysis Schemes.
 
 (** * Ops : the pure functions *)
 
@@ -571,6 +574,8 @@ Module Import MX := OrderedTypeFacts X.
 
 (** * Automation and dedicated tactics *)
 
+Scheme tree_ind := Induction for tree Sort Prop.
+
 Local Hint Resolve MX.eq_refl MX.eq_trans MX.lt_trans @ok.
 Local Hint Immediate MX.eq_sym.
 Local Hint Unfold In lt_tree gt_tree.
-- 
cgit v1.2.3