a time range ?tr1 succeeds a time range ?tr2.
(<=> (After ?Tr1 ?Tr2) (Tp< (Time-Range.End-Time ?Tr2) (Time-Range.Start-Time ?Tr1)))
(<=> (After $Arg1 $Arg2) (Before $Arg2 $Arg1)) (<=> (After ?Tr1 ?Tr2) (Tp< (Time-Range.End-Time ?Tr2) (Time-Range.Start-Time ?Tr1))) (<=> (After= ?Tr1 ?Tr2) (Or (After ?Tr1 ?Tr2) (Meets ?Tr2 ?Tr1)))