fact: Fixpoint rest (p r s n : nat) {struct n} : nat := match n with | O => r | S n' => match s with | O => 0 | S O => rest p 0 p n' | S s' => rest p (S r) s' n' end end.
imports: Reals trajectory_const constants ails_def tau Omega