
theorem
  for L be reflexive transitive RelStr for X be Subset of L holds
  uparrow uparrow X = uparrow X
proof
  let L be reflexive transitive RelStr;
  let X be Subset of L;
A1: uparrow uparrow X c= uparrow X
  proof
    let x be object;
    assume
A2: x in uparrow uparrow X;
    then reconsider x1 = x as Element of L;
    consider y be Element of L such that
A3: y <= x1 and
A4: y in uparrow X by A2,WAYBEL_0:def 16;
    consider z be Element of L such that
A5: z <= y and
A6: z in X by A4,WAYBEL_0:def 16;
    z <= x1 by A3,A5,YELLOW_0:def 2;
    hence thesis by A6,WAYBEL_0:def 16;
  end;
  uparrow X c= uparrow uparrow X by WAYBEL_0:16;
  hence thesis by A1;
end;
