fact: Fixpoint RList_Mem (l : list R) (n : nat) {struct n} : R := match l, n with | nil, _ => [0] | cons a _, O => a | cons _ k, S y => RList_Mem k y end.
imports: CoRN.tactics.CornTac CoRN.algebra.CSums CoRN.algebra.CAbMonoids Coq.Sorting.Permutation CoRN.util.SetoidPermutation Coq.Setoids.Setoid Coq.Classes.Morphisms Coq(Lia)