fact: Fixpoint nth_option(A : Set)(ls : list A)(i : nat) := match ls with | nil => None | a :: ls' => match i with | O => Some a | S i' => nth_option ls' i' end end.
imports: FCF.Rat List Permutation Arith FCF.EqDec FCF.StdNat Bool Permutation