theorem Th13:
  a <= b implies {a,b} c= [.a,b.]
  proof
    assume
A1: a <= b;
    let x be object;
    assume x in {a,b};
    then x = a or x = b by TARSKI:def 2;
    hence thesis by A1,XXREAL_1:1;
  end;
