fact: Fixpoint findL {elt} x (l : klist elt) := match l with | [] => None | (y,v) :: l => match K.compare x y with | Eq => Some v | _ => findL x l end end.
imports: Coq(Bool BinPos Pnat Setoid SetoidList PeanoNat) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)