fact: Fixpoint plength_aux (l:klist elt)(p:positive) := match l with | nil => p | _::l => plength_aux l (Pos.succ p) end.
imports: Coq(Bool BinPos Pnat Setoid SetoidList PeanoNat) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)