let Y be Subset of X; :: thesis: Y is c=-linear
let x be set ; :: according to ORDINAL1:def 9 :: thesis: for b1 being set holds
( not x in Y or not b1 in Y or x,b1 are_c=-comparable )

let y be set ; :: thesis: ( not x in Y or not y in Y or x,y are_c=-comparable )
assume ( x in Y & y in Y ) ; :: thesis: x,y are_c=-comparable
hence x,y are_c=-comparable by ORDINAL1:def 9; :: thesis: verum