proposition: Lemma lt_in_segment2 r x s y: segmentp r s -> inc x s -> inc y (segment r x) -> inc y s.
proof: Proof. move => [_ h] xs /segmentP [le _]; apply:(h _ _ xs le). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)