fact: Fixpoint afs_rest (ns ac : list nat) (l : nat) := match l with | S l => if existsb (Nat.eqb l) ns then afs_rest ns ac l else afs_rest ns (l::ac) l | _ => ac end.
imports: Coq(Setoid List Relations Wellfounded PeanoNat) CoLoR(weaved_relation list_permut terminaison)