let s1, s2, t1, t2 be Real; { |[s,t]| where s, t is Real : ( s1 < s & s < s2 & t1 < t & t < t2 ) } is Subset of
{ |[sb,tb]| where sb, tb is Real : ( s1 < sb & sb < s2 & t1 < tb & tb < t2 ) } c= REAL 2
hence
{ |[s,t]| where s, t is Real : ( s1 < s & s < s2 & t1 < t & t < t2 ) } is Subset of
; verum