fact: Definition Nested_bis (A B:nat -> Tpoint -> Prop) := (forall n, exists An Bn, A n An /\ B n Bn) /\ (forall n An An', A n An -> A n An' -> An = An') /\ (forall n Bn Bn', B n Bn -> B n Bn' -> Bn = Bn') /\ forall n An Am Bm Bn, A n An -> A (S n) Am -> B (S n) Bm -> B n Bn -> Bet An Am Bm /\ Bet Am Bm Bn /\ Am <> Bm.
imports: GeoCoq.Tarski_dev.Ch05_bet_le GeoCoq.Axioms.continuity_axioms Logic.ChoiceFacts