fact: Fixpoint optlast {A} (l:list A) := match l with | nil => None | x::nil => Some x | _::l => optlast l end.
imports: Coq(Bool Equalities Orders OrdersFacts OrdersLists) Coq(Morphisms Permutation SetoidPermutation) MMaps(Utils Comparisons Interface)