From 39ef54919006741dba7c1860524b6800eb97a2c4 Mon Sep 17 00:00:00 2001 From: Pierre Letouzey Date: Thu, 10 Jul 2014 19:48:51 +0200 Subject: MSetRBT: unfortunate typo in compare_height (fix #3413) --- theories/MSets/MSetRBT.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'theories/MSets') diff --git a/theories/MSets/MSetRBT.v b/theories/MSets/MSetRBT.v index af67aa1ec..d7e56cdef 100644 --- a/theories/MSets/MSetRBT.v +++ b/theories/MSets/MSetRBT.v @@ -398,7 +398,7 @@ Definition skip_black t := Fixpoint compare_height (s1x s1 s2 s2x: tree) : comparison := match skip_red s1x, skip_red s1, skip_red s2, skip_red s2x with | Node _ s1x' _ _, Node _ s1' _ _, Node _ s2' _ _, Node _ s2x' _ _ => - compare_height (skip_black s2x') s1' s2' (skip_black s2x') + compare_height (skip_black s1x') s1' s2' (skip_black s2x') | _, Leaf, _, Node _ _ _ _ => Lt | Node _ _ _ _, _, Leaf, _ => Gt | Node _ s1x' _ _, Node _ s1' _ _, Node _ s2' _ _, Leaf => -- cgit v1.2.3