a time range ?tr1 succeeds a time range ?tr2.
(<=> (After ?Tr1 ?Tr2) (Tp< (Time-Range.End-Time ?Tr2) (Time-Range.Start-Time ?Tr1)))