north_halfline p = { |[(p `1),r]| where r is Real : r >= p `2 } by Th31;
then |[(p `1),(p `2)]| in north_halfline p ;
hence not north_halfline p is empty ; :: thesis: verum