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