proposition: Lemma fresh_rcons : forall (s : seq A) (a t : A), fresh (rcons s t) a -> fresh (t :: s) a.
proof: Proof. intros s a t H; induction s. simpl; by inversion H. simpl; simpl in H; split. apply IHs; by inversion H. split. by inversion H. apply IHs; by inversion H. Defined.
imports: ssreflect CSetoids CSetoidFun CFields CPolynomials Program Omega Equivalence Morphisms Wf Morphisms CRings CRing_Homomorphisms Rational Setoid CPoly_NthCoeff CPoly_Degree CReals Intervals CauchySeq IntervalFunct MoreIntervals MoreFunctions Composition seq