theorem Th29:
  core s in coset s
  proof
    consider t being the carrier' of X-valued RedSequence of ConstructionRed X
    such that
A1: t.1 = s & t.len t = core s and
    for i st 1 <= i & i < len t holds not emp t/.i & t/.(i+1) = pop(t/.i)
    by Def19;
    ConstructionRed X reduces s, core s by A1; then
    core s in {s1: ConstructionRed X reduces s,s1};
    hence thesis by Th25;
  end;
