diff options
-rw-r--r-- | theories/MSets/MSetAVL.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/MSets/MSetAVL.v b/theories/MSets/MSetAVL.v index d8486180c..6825e6881 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. |