fact: Definition Nested (A B:nat -> Tpoint -> Prop) := (forall n, exists An Bn, A n An /\ B n 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.Definitions